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Ich verschenke RUN zum Bezugspreis von DM 68.— 
(12 Ausgaben), inkl. MwSt. und 1S 
Auslandsendpreis: DM 78.—, für di 
Luftpostversand auf Anfrage. 


Adresse des Bestellers (Rechnungsanschrift 


e ocl 
Name Vorname 

Straße, Nr./Postlach 

PLZ Wohnon 


Datum 


Adresse des Beschenkten: 


Name Vorname 
Straße, Nr./Postiac! 


Macht Spaß, ist nützlie 
und kommt 12 mal pr& 
Jahr ins Haus. Ein 
Geschenk mit bestem 
Erinnerungswert. 


\ Geschenk-Abo Bestellcoupoı 


Laufzeit des Geschenkabonnements- 


isch um weitere 12 Monate verlän- 
nes nicht acht Wochen vor Äbl=$ 
vird 

nement soll auf ein Jahr (12 Ausoz 
en) begrenzt sein. 

Garantie: 
Ich weiß, daß 


ich diese Vereinbarung innerhalb wa 
ier Bestelladresse widerrufen kann 
ung genügt die rechtzeitige Absendu=g 
rufs. Ich bestätige dies durch meine zu 
Unterschrift. 


Gewünschte Zahlungsweise: 


m Bequem und bargeldlos durch Bankabbuchm 


(vom Scheck abschreiben) Geldinstitut 


Bankleitzahl 


sntonummer/Inhaber 


egen Rechnung, zahlbar sofort nach Erha® 


Aus der Redaktion 


32 Lstuugs er Tips uucl Vrcks 


Er ist zu Ende: Unser großer 
Ideenwettbewerb „Gröprowaz 
II". 101 glückliche Gewinner 
erhalten Preise im Wert von 
50000 Mark. Die Auswahl zu 
treffen, welche Einsendungen 
einen der Preise erhalten, war 
schwierig. Neue und vor allem 
gute Ideen und Beiträge akti- 
ver RUN-Leser heizten uns, von 
der Redaktion, kräftig ein. Täg- 
lich liefen zwei Kilometer 
Listings und Beschreibungen, 
entsprechend der doppelten 
Strecke zum Wirtshaus an der 
Ecke, durch unsere Hände. 
Spiele, Anwendungen und Uti- 
lities mußten unseren Anfor- 
derungen standhalten. Im er- 
sten Durchgang wurde ge- 
prüft, ob die Programme feh- 
lerfrei funktionieren. Fanden 
wir Errors in einem Beitrag, 
ging die Einsendung mit ent- 
sprechendem Vermerk (zum 
Beispiel: Syntax Error in 3450) 
an den Einsender zurück. 
Während dieses Testlaufs ord- 
neten wir Programme nach 
Themen. Allein aus der Sparte 
Adreßverwaltungen traten 18 
Programme den Wettstreit an. 
Ähnlich stapelten sich Beiträge 
unter den Bezeichnungen: 

— Vokabeltrainer, 

— Mathetrainer, 

— Basic-Erweiterungen, 


rose 


— Sprite- und Zeichensatzedi- 
toren 

— sowie Musikprogramme. 

Im zweiten Durchgang drehten 
wir diese Beiträge erbar- 
mungslos durch die Mangel. 
Sinn, Qualität, Aufmachung 
und Dokumentation müssen 
stimmen, damit ein Beitrag in 
der RUN veröffentlicht wird. 

Nach diesem Test, uninteres- 
sante Beiträge eilten bereits 
den Autoren entgegen, waren 
die Brief- und Paketberge so- 
weit abgebaut, daß man die 
Köpfe der zuständigen Redak- 
teure wieder erkennen konnte. 
Alle verbliebenen und zum 
Veröffentlichen vorgesehenen 
Programme hatten ein Gesamt- 


=. 


volumen von sechs Waschkör- 
ben oder, auf einen Berg von 
zwei Metern Breite und drei 
Metern Länge gehäuft, eine 
Höhe von 85 Zentimetern. Zu- 
sammen ergab das 4,32mal 
den gelben Teil unseres Mo- 
nats-Magazins. Da wir jedoch 
weder unseren Lesern noch 
unseren Autoren zumuten woll- 
ten, drei oder gar vier Monate 
zu warten, bevor diese Arbei- 
ten zu lesen sind, mußte eine 
Extra-Publikation her. Aus die- 
sem Grund befaßt sich unser 
erstes Sonderheft des Jahres 
1987 auf 23 Seiten mit interes- 
santen Tricks und Speicher- 
stellen. 32 Listings reizen zum 
Abtippen. Und obwohl die 
meisten Programme nur ein bis 
zwei Seiten lang und damit in 
wenigen Minuten eingetippt 
sind, bieten wir alle Software 
dieses Heftes auf zwei Disket- 
ten an! 

Gibt es Probleme beim Eintip- 
pen, stehen wir mit Rat und Tat 
zur Seite. 

Dienstags, zwischen 16 und 18 
Uhr, ist unser Telefon mit Ruf- 
nummer 089/3 60 86-228 be- 
setzt. Dann geben wir Antwor- 
ten und Lösungsvorschläge. 


Gut Byte wünscht die 
Redaktion. RUN 
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Errors unter der Lupe 


Starke Medizin gegen Programmfehler 10 
Was ist wo im 128er Basic-ROM? 

Sprungadressen der Basic-Befehle 13 
TEDdy im C16 

So funktioniert der TExtDisplay-Chip 14 
Im Kernal des C128 

Wichtige Subroutinen des 128er-ROM 16 
Z80-Programmiercodes im Überblick 

Die Sprache des Zilog 80-Prozessors 20 
Was ist wo in dem C16/116/Plus4? 

Interessantes zwischen $100 und $1000 22 
Von 0 auf 255: Nullseite des C16 

So manipuliert man das Betriebssystem 28 
SYS, PEEK und POKE im Commodore 64 

Tricks und Kniffe mit dem 64er 31 
Geschwindigkeit ist Trumpf 

Blitzschnell: „Power Basic" läßt alle stehen 33 
Datasette als Datensafe 

1lOmal schneller laden und speichern 40 
Organisierte Datasetten: „Tape-Directory“ 
Inhaltsverzeichnisse von Datenkassetten erstellen 4] 
Dämonenhaft: DMON-Diskmonitor 

Disketten auf die Bits geschaut 42 
HELP hilft beim Fehler suchen 

Simuliert den HELP-Befehl des C16/128 46 
Floppy auf die Sprünge geholfen mit dem „Boot 

Sector Manager“ 

Anschalten-Laden-Starten 48 
Auf den Track gekommen 

Kopierprogramme austricksen 52 
Diskette o.k.? 

DIAN prüft Magnetscheiben 54 
Y mal zwei 

Grafiken auf der Folterbank 54 
Adressen verwalten mit dem C64 

Namen speichern, sortieren, drucken 56 
Schillernd Texten mit C16 und „AT-Text“ 

Tipp-Ex pensioniert 7] 
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Die „Wende“ in 


Grusinien oder: 
| Gut geschmiert 

ist halb 

gewonnen 


Auf 23 Seiten gibte es raffinierte 
Tricks; sind wichti 


ter erläutert; stehen Antworten 
zu bislang ungeklärten Fragen. 


Betriebssysteme der C64, 128 
und C16, Das Nachschlagewerk 
bei kniffligen Fragen. 

ab Seite 10 
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Bose sein ist Sahn wer 
Das wissen unser Helmut un 
alle Leser, die das Spielelistin 
ab Seite 59 abtippen. Denn i, 
diesem Programm geht es dar: 
um, mit eigenen Parteien di 
Macht im Land Grusinien an sic 
zu reißen und den obersten P 
sten, Reichskanzler, zu besetzen 
Mißtrauensanträge, Schiebun 
gen, Hetzkampagnen führe 
zum Erfolg! 

Seite 


Im Gegensatz zu erfundenen 
Geistergeschichten ist der Dis- 
ketten-Monitor DMON Wirklich- 
keit, Mit Hilfe seiner Befehle 
durchforstet man Directories, 
Programm- und Datenfiles. Dis- 
kettenschreib-/Lesefehler ver- 
lieren ihren Schrecken. Entwik- 
kelt in Maschinensprache bear- 
beitet dieses Utility alle Aufga- 
ben mit rasanter Geschwindig- 
keit, Dreieinhalb Seiten Listing 
ab Seite 42 


Dämonenhaft: 
DBMON- 
Diskmonitor 
Re 
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Endlos neue Spielvariationenmit Entwerfen und 


„Runman Construction Set" ga- 
rantiert der eingebaute Spiele- 
generator. Jeder Spieler stellt 
seine eigenen Felder aus Trep- 
pen, Mauern, Bomben und Stan- 
gen zusammen. Schwierigkeits- 
stufen, Spielfiguren- und Geg- 
nerzahlen sind frei definierbar. 
Ein komplett konstruiertes Spiel 
mit 8 Levels ist in diesem Super- 
Programm bereits enthalten. 
Seite 88 
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PÜER SELSSTRben 


Guten Appetit: Commodore „verdaut“ 
Karteikarten 


Sortieren, Duplizieren, Editieren > 75 
Ti 
Spielelistings 


Die „Wende“ in Grusinien 


Gut geschmiert ist halb gewonnen 5 


Krater sprengen ist nicht schwer ... 
Auf der Flucht vor dem Imperium 79 
EL EL ne] 
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Wasser im Commodore 64 
„Schiffe versenken“ mit dem Computer 8l 
a OR 5 


Wer hat den richtigen Dreh: „Othello“ 


Denkspiel für C16/116/Plus4 85 


Entwerfen und Spielen in einem: RCS 
Spielegenerator für den 64er 88 
an nina u SE 


„Explode“ jagt den Commodore in die Luft 


Basic-Kurs anhand eines Denkspieles 104 


Die Erde als Abfalleimer 

Müllbeseitigung der Zukunft 109 
Bandwürmer im Computer 

Operation „Wurmus“: Bytes essen l j j 
Das Schwert der Samurai 

Harte Karate-Kämpfe überstehen 112 
Angriff auf Schlummerland 

Flugzeugjagd mit einer Flak 124 
Gimmy‘'s entführen in NIM 

Das bekannte Denkspiel gegen den C64 126 
5in eine Reihe 

Intelligenter Algorythmus macht den C64 schlau 128 
Umleitungen im Computer > 
C64 ist clever 

Nur wenig besiegen den Computer in „Cleverness" 132 
RUN an die Geschütze 

2 Geschütze, 2 Spieler, 1 Sieger 134 
Mit dem Kopf durch die Wand 

„Break out“ für den C16/116/Plus 4 136 
N 


FOG — Nebel des Grauens 


Letzte Hoffnung: Rettung aus der Luft 138 


Wer findet den Ausweg? 


Dreidimensionale Labyrinthe durchqueren 139 


Mit High-Speed über'n Bildschirm 
Spielfeldpanik in 5 Levels 142 
—— 


Sternbilder im Computer 
Grafisch dargestellt: 30 Konstellationen 146 
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Eintippen ohne 
Fehler 


In RUN werden zwei Arten von 
Programmen veröffentlicht: Basic- 
programme und Maschinenpro- 
gramme. 


Basicprogramme werden zur 
Vermeidung von Tippfehlern am 
besten mit dem Korrektor einge- 
geben. Nach jedem RETURN gibt 
er eine Prüfsumme aus, die mit 
der Prüfsumme im Listing über- 
einstimmen muß. 


Die Basiclader zu den Korrekto- 
ren für den C64 und den C128 ste- 
hen auf Seite 7. Nach dem Einpo- 
ken der Daten aktivieren sie den 
Korrektor. Anschließend ist NEW 
einzugeben. Auf Wunsch spei- 
chern sie den fertigen Korrektor 
auch ab. Er kann dann mit LOAD 
"49152 
SYS 49152 für den C64 und mit 
BLOAD "4864KORREKTOR128"/ 
SYS 4864 für den C128 gestartet 
werden. Der C64-Korrektor arbei- 
tet auch mit Simon’s Basic. Dazu 
läßt man das erste Komma in Zeile 
5000 weg. Simon’s Basic muß vor 
dem Korrektor gestartet werden. 
Der Basiclader des Korrektors für 
den C16/116/Plus/4 steht auf Sei- 
te 8. Er verfügt über keine eige- 
ne SAVE-Routine. Nach RUN kann 
man beim entsprechenden Hin- 
weis den fertigen Korrektor ab- 
speichern. Nochmaliges RUN star- 
tet das Programm. 


data a9,00,8d,af,cf,8d,b®,cf, 
data 8d,bi,cf,8d,b4,cf,8d,b5, 
data cf ,85,5c,85,5d,a2,f8,Be, 
data b2,cf,808,68,8d,b3,cf,08, 


for a=49152 to 49176 step 
B:5=-d:c=d:for b=® to 7: 


gosub 69040 


s=s+h+l-c:c=s>255:s=-255-s 
and 255:poke a+b,h+tl:next 


b:gosub 60048 


£f$="pruefsumme ok” 
h+l then F$="[rvs] 


"KORREKTOR",8/NEW/- 


:if sc> 


Steuerzeichen sind bei den Basic- 
listings immer in Klartext über- 
setzt, so bedeutet [3LEFT], daß 
dreimal Cursor links gedrückt 
werden muß. 


Maschinenprogramme können 
nicht direkt eingegeben werden. 
Dazu ist ein eigenes Programm nö- 
tig. Hier gibt es zwei gleichwerti- 
ge Möglichkeiten: Basiclader 
oder Hexdump. 

Ein Basiclader ist ein Basicpro- 
gramm, das ein Maschinenpro- 
gramm im Speicher unterbringt. 
Dazu werden die Zahlen, aus de- 
nen das Programm besteht, aus 
DATA-Zeilen ausgelesen und mit 
dem POKE-Befehl in den Speicher 
geschrieben. 

Bei einem Hexdump liegen die 
gleichen Zahlen in hexadezimaler 
Form vor. Sie werden beim C64 
mit einem speziellen Eingabepro- 
gramm, dem Checker (Seite 9), im 
Speicher abgelegt. 

RUN druckt Maschinenprogram- 
me für den C64 als kombinierte 
Hexdump-Basiclader ab. Damit 
werden zwei Fliegen mit einer 
Klappe geschlagen: Dasselbe 
Listing kann einmal als Basiclader, 
einmal als Hexdump betrachtet 
werden. Der Leser kann sich so 
die Eingabemethode aussuchen, 
die ihm am meisten zusagt. Listing 1 
zeigt ein solches Doppelprogramm. 
Es legt ein Beispielprogramm von 
32 Byte Länge im Bereich ab 49152 
($C000) ab. Listing 2 und 3 zeigen, 


pruefsummenfehler” 
gosub 68299:next a:print ” 
[down]”f”fehler”:end 

read h$:gosub 6988508:h=1* 


a Korrektor mr 


welche Teile vom Listing 1 jeweils 
wichtig sind, wenn man das Pro- 
gramm als Basiclader nutzt oder 
wenn man es als Hexdump ver- 
wendet. 


Für den Basiclader ist alles von In- 
teresse, außer den Angaben 
„C000" bis „C018" ganz links. Sie 
sind unbedingt wegzulassen! Üb- 
rig bleiben vier Basiczeilen mit 
den Nummern 10 bis 40, die Hex- 
zahlen als DATAs enthalten. Ab- 
schließend ist noch der Teil mit 
den Nummern 60000—60090 in 
Listing 1 einzugeben. Er liest die 
DATAs und poket sie in den Spei- 
cher. Dieser Programmteil ist bis 
auf Zeile 60000 bei jedem Hex- 
dump-Basiclader gleich. Er ist mit 
Prüfsummen für den Korrektor 
versehen. Bei den DATA-Zeilen 
wurde darauf verzichtet, da der 
Basiclader über ein eigenes Prüf- 
system verfügt, das Eingabefehler 
weitgehend verhindert. 


Bei Verwendung als Hexdump 
muß der Checker benutzt wer- 
den. Einzugeben sind dann nur 
die Hexzahlen (siehe Listing 3). Es 
fallen also die Basiczeilennum- 
mer, das Basicwort DATA dahin- 
ter und die Kommas zwischen den 
Hexzahlen weg. Die Hexadezimal- 
adressen „C000“ bis „C018" brau- 
chen auch nicht eingetippt zu wer- 
den, da sie vom Checker geliefert 
werden. Sie sind nur zur Orientie- 
rung abgedruckt. Ebenso entfal- 
len die Zeilen 6000060090. 


:£f=f+1 


16:h$=mid$ Ch$,2) 


l=-asc C(h$+”x”)-4B:if 1<0 
or 1>22 then 60088 


if 1<18 then return 


l-1-7:if 1>9 then return 
f$="[rvsleingabefehler”:1- 


O:f=-F+1 


print "zeile” 


peek (64)* 


e56+tpeek (E63)f$:return 


Listing 1: Beispiel für einen kombinierten Hexdump-Basiclader 


10 data 
28 data 
38 data 
48 data 


die Adressenangaben links 
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a9,00,8d,af,cf,8d,h®,cf, 
8d,bl,cf,8d,b4,cf,8d,b5, 
cf,85,50,85,5d,a2,f8,Be, 
b2,cf,08,58,Bd,b3,cf,®®, 


Listing 2: Beim Basiclader entfallen 


c020 
c288B 
co818 
cd1B 


a3 88 Bd af cf Bd b2 
Bd bi cf 8d b4 cf Bd 
cf 85 Sc 85 Sd a2 fB 
b2 cf 08 68 Bd b3 cf 


Listing 3: Beim Hexdump fallen Zeilen- 
nummern, „Data“ und Kommas weg 
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restore :for a=49152 to 439629: poke 

a,234:next :print "moment! 

f=-d:read a:y=peek (63)+psek (64)* 

e56:if a=Bd then 208 

read b,c:for d=a to b:read a$:if 
len (a$)-2 then 38 

e=-asc (a$)-48-(7 and aS>"e@"):if ast 
9” or a$>”"g” or a$>”:” and as<"a” 

then 38 

a$=-midS (a$,2):e=e*l6+tasc (a$)-48B- 
(7 and a$>”@”) 

if a$<”®0” or a$>”f” or a$>"S” and 

a$<”a” then 98 

F=f+e:poke d,e:next :if f=c then 28 

print ”pruefsummenfehler: soll”c”, 
ist”f;goto 188 

print ”eingabefehler: "a$:y-® 


108 z=-pesk (63)+peek (64)*2556:=28-strS 


(y)+str$ (-zZ):if y=-® then aS=strs 
(zZ) 


110 print "CdownJ11”as"f2up)"; :poke 


198,1:poke 631,13:end 


2008 print ”"Cdownlfertig."”:print "[down] 


soll das maschinenprogram= 
abgespeichert 


210 input ”LuplJwerden[2spaces) jT3left]” 


‚aS:if a$<>”j" then 388 


B2O sus 57812”@:49152 korrektor” ,8:poke 


193,8:poke 194,192:pcke 174,222 


230 poke 175,193:sys 52557: verify 


"49152 korrektor”,8,1 


300 a$=-"":input "Idowun)korrektor 


aktivieren? Ji3left)"”; 
then sys “45152 


-if a3-"” 3” 


999 rem hauptprogram= 
1000 data 45187, 43208,23#2,25, 


8d,82,03,8e,23,23,22,22,1 


Korrektor für den C64, Disk Version 


208 


210 


print "Cdownlfertig."”:print "[down) 
soll das maschinenprogramm auf 
kassette 

input "abgespeichert werden 
[2spaces)] J[L3left]”;a$:if a$s<>"j” 
then 308 


trap 6408:bank ®:restore :print 
"moment... 

data 1300,39,00,8d,00,ff,ad,22,036 
data 03,ae,03,03,c9,67,d®,8c,e8,8bS 
data 13,d0,08,ad,35,14,ae,36,14,d96 
data b9,14,8d4,35,14,8e,36,14,20,a89 
data 27,39,a0,39,37,14,88,10,fa,SBe 
data a9,67,a2,13,8d,02,03,8e8,23,9b8 
data 03,4c,53,fa,d8,20,24,c0,08B,3la 
data a8,27,b9,37,14,99,c0,07,88,d27 
data 19,£7,a5,d7,30,17,89,18,c5,39cc 
data eb, f0,06,c5,e4,d8,02,c6,e4,388 
data c5,e5,d0,02,c6,e5,a9,20,8d,aa9 
data 61,03,28,4c,69,fa,78,a2,13,2f1 
data Be,15,03,32,38,8e,14,03,58,7£7 
data a2,ff,86,3c,20,933,4f,86,3d,dia 
data 84,3e,ad,37,14,c9,a0,f9,18,2d3 
data a2,19,bd,37,14,9d,45,14,a9,315 
data a0,394,37,14,ca,18,f2,20,80,ee6 
data 03,aa,f9,cc,90,03,4c,d9,4d,a58 
data 29,a0,50,20,02,43,84,0d,a0,014 
data 20,84,09,84,0b,84,0c,84,0a2,567 
data 88,c8,20,c9,03,aa,f0,38,a5,b5a 
data 09,30,0c,e8,20,f®,f1,e®d,3a,3be 
data f0,0c,e0,8f,f0,28,e8,22,d0,2b3 
data 02,49,80,09,21,85,09,Ba,a6,2Be 
data 0a,f0,06,03,69,00,ca,d2,fa,625 
data 18,65,2b,85,0b,980,02,e6,8c,dib 
data e6,0a,a5,0a,29,07,85,03,108,bb4 
data c1,46,29,90,17,ad,ff,a2,16,431 
data 20,10,14,08,39,bd,99,37,14,965 
data a2,0b,?20,10,14,a9,bb,99,37,a6b 
data 14,4c,ea,4d,84,09,b5,00,85,b73 
data 65,b5,01,85,64,22,98,38,28,e22 
data 75,8c,20,44,Be,a4,09,aa,c8B,ffb 
data bd,20,01,f0,08,293,80,39,37,887 


Korrektor für den C128 
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data c1,39,290,04,88,108,F7 

data 43323,49387,9136,4c,31,ea,78, 
39, 2e,a2,c0,8d,14,03,8Be,15,203,58B 
data a9,02,8d,e1,c1,28,68,a5,Bc,el, 
c1,86,72,84,7b,ac,ed,c1,f®,13,a8 
data 18,b3,e1,c1,39,f1,c1,a9,a0,S9, 
e1,c1,88,d0,f2,8c,e8,c1,20,73,88 
data aa,f8,d3,88,84,33,90,55 

data 49467 ,49629,139950,4c,36,a4,4c, 
08,af,20,6b,39,20,79,35,84,0b,a8 
data 00,84,08,84,45,84,46,84,09,c8, 
be,ff,81,f0,38,35,08,30,0c,e0,28 
data fO,F2,e0,3a,f0,00,e0,8Ff,f0,28B, 
ed,22,d0,02,49,80,09,01,85,08,Ba 
data a6,09,f0,06,03,563,00,ca,d@,fa, 
18,65,45,85,45,30,0?,e6,46,26,09 
data a5,09,29,07,85,09,10,c2,46,08, 
98,21,a0,Ff,8c,ed,c1,a2,14,20,b9 
data c1,c8,a9,bd,39,e2,c1,a9,be,cB, 
S93,e2,c1,c8,a2,45,20,b9,c1,39,bb 
data S9,e2,c1,4c,a4,a4,84,08,b5,00, 
85,63,b5,01,85,62,a2,30,38,20,49 
data bc,20,df,bd,a4,08,aa,c8,bd,08, 
01,f0,08,03,80,99,e2,c1,e8,d9,f2,68 
rem ein/ausschalter 

data 49152,49186,5131,ad,03,03,cS, 
c8,d8,09,ad,de,ci1,ae,df,c1,4c,27 
data cd,8d,df,c1,ad,02,03,8d,de,ci, 
aS,a8d,a2,1f,Sd,e2,ci,ca,1®,fa 

rem eingabesicherung 

data 49285,49322,4626,ad,el,c1,0®, 
21,84,28,48,8d,21,d0,35,da,32,0e 
data 89,80,85,da,82,27,29,28,53,29, 
@4,88,18,fa,a6,d6,d8,85,a9,11,28 
35,.5 

rem ende bzu. simon'’s anpassurg 
rem Such weglassen des l. kommas- 
data „+3233,45255,702,2»a,.a,ea. 


data 14,e8,d8,f2,68,“4c4, 37282 
a=-1:for n=® to 345:read a$:on len 
(a5) goto 470,4998,519,530,55® 


print ”data-fehler [rvs]"”a$ 

print "zeile ” peek (65)+peek (566)* 

256:end 

b=dec (a$):poke a,b:p"“ptb;a=a+i 
k=xor C(k*2 and 4085)+int (k/2048B), 

b):goto 578 

if k=-dec (a$) then k=®:goto 578 
print ”fehler: parity soll ” mid$ 

C hex$ (k),2):goto 488 

if a<® then a=dec (a$):p=-a:goto 578 
print ”pruefsumme Fehlt!”:end 

if p<>val (a$) then print 
"pruefsummenfehler!”:end 

a==T 

next :if a>® then 548 

print ”fertig.”:print "Cdown]soll 
das maschinenprogramm 
abgsspeichert 

print ”werden?”:get key a$:if a$<> 
”4” then 618 3 

bsave ”"4864korrektor12B”,bB, p4B64 
to p5173:print ds$ 

print ”[down]soll der korrektor 
gestartet”:print "werden? 

trap :get key d$:if a$="j"” then sys 

4864 

end 

if er=-14 then resume 48B:else if er 
=38 then resume 652 
print ”eingabefehler: 
help 

trap :stop 


» 


err5 (er): 


Sonderheft ID 7 _ 


Korrektor 


Y1®:restore data b5,08,85,63,b5,01,85,62,a2,30 
118 data 08c,10,c1,07,9e,20,34,31,33,38 348 data 38,28,ce,a2,?20,71,a4,a%4,08,aa 


120 data 00,00,00,ad,e5,27,c9,18,d0,03 358 data c8,bd,00,01,F0,08,09,80,39,c0 

138 data ce,e5,207,2ad,2e8,07,c39,18,d0,03 368 data Bf,e8,d8d,F2,60,00,900,08 

140 data ce,e8,07,29,00,8d4,f1,07,4c,Be 378 print ”[CclrjIdas programm sollte vor dem ersten 
150 data ce,a9,39,84,02,03,a9,10,8d4,03 startabgespeichert werden! [down] 


160 data 03,29,11,85,2c,60,a2,10,8e,15 388 n=n+1:read a$:a=-a+tdec (a$):if len (a$)=2 then 388 
170 data 03,a2,ff,86,33,20,53,88,86,3b 398 print "data-fehler: [rvs]”a$:poke 1264,peek (63): 
188 data 84,3c,ad,c®,8Ff,c9,ad,f0d,10,a2 poke 1265,peek (64):poke 1263,1 

198 data 19,bd,c®,0f,Sd,ce,2f,aS,a®,3d 400 a-peek (65)+peek (66)*256-len (a$)-1:poke 1269,a 
208 data c®,8f,ca,10,f2,20,73,04,aa,f® and 255:poke 1270,a/256:help :end 

210 data d3,90,03,4c,25,87,20,3e,8e,2®8 418 if er-38 then print "break kann das programm 

220 data 53,89,84,0b,a0,00,84,08,84,45 zerstoeren!":end 

230 data 84,456,84,09,88,c8,20,a25,04,aa 428 if er-14 then resume 390 

248 data F0,38,a5,08,30,0c,20,20,f0,F1 430 if er<>13 then print ”zeilen-eingabefehler!":help 
258 data ed,3a,f0,0c,e0,8f,f0,28,ed,22 :end 

260 data d2,02,49,80,09,01,85,08,8a,a6 440 if n<>259 or a<>27332 then print 

270 data 09,F0,06,0a,69,00,ca,d®,fa,18 ”pruefsummenfehler, bitte pruefen!":end 

280 data 65,45,85,45,90,02,e6,46,e6,09 450 restore :for a=4097 to 4354:read a$:poke a,dec 
290 data a5,09,29,07,85,09,10,c1,46,08 (aS):next 

308 data 90,17,a0,ff,a2,14,20,db,10,cB 458 print "das korrektorstarterprogramm kann jetzt 


318 data a9,bd,S9,c0,0f,a2,45,208,db,1® 
a9,bb,99,c0,2f,4c,36,87,84,08 


abgespeichert werden. 
poke 45,3:poke 456,17:clr 


Korrektor für den C16/116/Plus/4 


Checker für Der Checker ist eine Art Textedi- Cursortasten:. Der Cursor wird 


ch = tor für Maschinenprogramme, die mit den Cursortasten gesteuert. 
Mas inen in Form von Hexdumps abge- Erreicht er den oberen oder unte- 
programme druckt sind. Jede einzelne Zeile ren Bildschirmrand, wird entspre- 


Der Checker dient zur Eingabe 
von Maschinenprogrammen für 
den C64. Er reduziert die Tippar- 
beit und verhindert Eingabefeh- 
ler. Außerdem entfällt das lang- 
wierige Einlesen von Datazeilen. 

Der Basiclader des Checkers 
steht auf Seite 9. Er poket nach 
dem Start mit RUN die Daten in 
den Speicher. Da er sich dabei 
selbst überschreibt, muß er unbe- 
dingt vorher abgespeichert wer- 
den! Nach dem Einlesen der Da- 
ten schreibt der Lader einen 
SAVE-Befehl auf den Bildschirm, 
so daß man nur Return zu drücken 
braucht, um den fertigen Checker 
abzuspeichern. Dieser kann dann 
mit LOAD "CHECKER'",8 geladen 
und mit RUN gestartet werden. 
Will man den Checker mit der Da- 
tasette benutzen, muß man bei der 
Diskversion einige Zeilen erset- 
zen. Die nötigen Änderungen ste- 
hen im Listing unten. 


00,28,02,20,bd,ff,68,86,93,66,3d,4c,5b, ff, ff 


(zu je acht Bytes) wird anhand ei- 
ner miteinzugebenden Prüfsum- 
me auf Richtigkeit getestet. Bei 
Tippfehlern ertönt ein akustisches 
Signal. Die hexadezimalen Daten 
werden mit den Tasten 0—9 und 
A—F eingegeben. Mit RETURN 
übernimmt man eine Zeile in den 
Speicher. Stimmt die vom Compu- 
ter errechnete Prüfsumme mit der 
eingegebenen überein, ertönt ein 
hoher Ton. Bei einer fehlerhaften 
Zeile ist ein tiefer Ton zu hören, 
und der Cursor springt wieder an 


‚den Zeilenanfang. 


Weitere Funktionen kommen fol- 
genden Tasten zu: 

Y: Muß vor dem Eintippen eines 
Programms als erstes betätigt 


‘werden! Der Checker fragt dann 


nach der Startadresse, unter der 
das Programm später abgespei- 
chert werden soll. Der benötigte 
Wert ist jeweils den Programmbe- 
schreibungen zu entnehmen. 


chend gescrollt. 


INST/DEL: Löscht ein Zeichen 
oder fügt eines ein. 

HOME: Setzt den Cursor an den 
Zeilenanfang. 

CLR: Löscht eine Zeile und läßt 
sie zur Veränderung frei. 

K: Löscht eine Zeile und zieht den 
Rest nach oben. 

I: Fügt eine Leerzeile ein. 

H: Setzt den Cursor an den Text- 
anfang. 

S: Speichert das Programm ab. 
Sollte sich im Text eine Leerstelle 
befinden, springt der Cursor dort- 
hin. Saven ist erst möglich, wenn 
alle Leerstellen entfernt wurden. 
L: Lädt ein abgespeichertes Pro- 
gramm, um es zum Beispiel zu er- 
gänzen oder zu verändern. 

P: Druckt das Programm aus. 
Wird der Checker mit Runstop/ 
Restore verlassen, so kann man 
ihn mit SYS 2073 ohne Datenver- 
lust wieder aktivieren. 


45892 | 135 data d®O,f4,b9,75,0d,3d,80,3c,4c,19,08,4c,92,09,30 
3942 | 138 data c3,ff,4c,92,09,28,de,8d,b0,53,20,fd,®e,20,d0 
4777 |139 data F7,20,38,F8,b0,3b,20,8F,f6,a5,1b,85,as,a5.1c 
4369 | 149 data 38,e9,40,85,af,a5,fe,85,c2,a5,fd,85,c1,18,65 
3998 | 141 data ae,85,ae,a5,af,65,c2,85,af ,‚a9,01,20,6a.F7.b0 
4510 | 142 data 13,39,90,85,c1,39,49,85,02,a5,10,85,af,a5,1b 
4392 | 143 data 85,a8,28,67,F8,4c,19,08,20,08,85,1d,90,df,e6 
4051 | 258 print "[clr,2down]Jsave” chr$ (34)”"checker” chr$ 
3943 (34) ”"Chome)]”; :end 


Y4ce4 
3893| 
YH41@l 
46751 
4904 | 
4662| 
42071 
3209 


127 data 2a,0f,39,00,04.c8,d0.a0'01.b1.b2.85,Fd.c8.bi 
128 data b2,85,fe,38,4c,7d,f5,39,00,20,Fd,®e,ea,ea,20 
129 data F8,0f,20,d0,F7,20,17,F8,b0,58,20,af,f5,a5,b7 
130 data f®,07,20,ea,f7,90,09,b0,4a,20,20,f7,F0,45,bO 
131 data 43,a5,90,29,10,d0,3d,85,c3,39,40,85,c4,20,5a 
132 data 2F,b9,32,82,69,07,aa,30,02,e6,af,86,1d,8a,23 
133 data 38,4a,4a,4a,aB,a5,af,38,e9,40,06,1d,2a,06,1d 
134 data 2a,85,1d,a2,00,e4,1d,f®,08,89,Ff,9d,00,3c,e8 


Checker für den C64: Änderungen für Datasette 


8 QUD Sonderheft 
en 2 _ . 


i 


NIE Korrektor 


.data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
87 data 


» 
spvosmuewnr 


» 
r 


Prere 
on#wm 


80b,08,c1,07,9e2,32,30,36,34,00,20,00,20,20,00 
a9,00,85,fd,85,fe,?8,f8,0f,20,82,09,39,3F,8d 
8a,02,39,18,8d,25,dc,20,2f,08,20,23,8a,4c,?6 
08,20,27,03,89,00,85,c6,85,c6,f8,fc,28,27,0a 
3d,77,02,60,39,00,84,28,d0,33,2e,8d,21,d8,38 
00,32,dB,84,1b,84,1f,86,1c,86,20,39,04,B5,1e 
84,1d,39,00,91,1b,39,a8,31,1d,cB,d@,f5,e6,1c 
e6,1le,e8,ed,dc,dß,ec,a2,17,280,55,39,06,51,1fF 
c8,91,1f,c8,c8,c80,6c,90,£f3,c8,c8,39,06,51,1fF 
c8,31,1f,a5,1f,18,69,28,85,1F,90,02,86,20,ca 
d®d,da,a0,05,a2,30,39,b9,99,00,24,82,23,80,39 
81,84,c8,c8,c8,e8,e22,38,d0,ed,a2,86,bd,se,88 
99,20,04,c8,ca,d®,f6,60,30,50,39,04,84,1b,85 
1c,89,17,85,02,85,61,85,19,a5,62,85,1a,20,f5 
08,35,19,18,69,208,85,19,90,02,e6,1a,a5,1b,18 
69,07,85,1b,90,02,e6,1c,c6,02,d80,e3,69,8d,95 
93,8b6,88,83,a5,fd,18,65,19,48,a5,fe,65,1a,2® 
66,09,68,20,66,29,20,83,09,85,19,85,1d,a5,1a 
18,69,40,85,1e,a5,1a,85,1f,35,19,0a,26,1f,0a 
25,1f,39,3c,85,28,85,19,4a,4a,48,29,87,38,b9 
98,29,a0,00,31,1f,f0,22,80,00,84,0d,b1,1d,20 
66,29,280,83,09,84,0d,c8,c0,08,d0,ef,20,22,0b 
20,83,09,20,83,09,20,66,09,4c,65,09,a2,1c,a® 
00,39,a8,91,1b,20,83,09,ca,d®,f4,60,48,4a,4a 
Ya,4a,20,74,09,68,29,0f,4c,74,09,18,69,£f6,908 
02,69,06,69,ba,29,bf,a0,00,91,1b,e6,1b,d®,02 
e6,1c,60,a9,0F,8d,18,d4,20,30,02,28,41,08,4c 
bd,08,80,490,20,19,08,04,02,01,a9,50,a0,04,85 
1d,84,1e,a2,156,a0,27,84,20,a9,4Ff,85,1f,a4,1F 
b1,1d,a4,28,91,1d,c6,1F,c6,20,10,f2,a5,1d,18 
69,28,85,1d,90,02,e6,l1e,ca,d®d,dc,a9,c0,85,1b 
89,07,85,10,85,61,18,69,b9,85,19,a5,62,69,08 
85,1a,4c,f5,08,a9,98,a0,07,85,1d,84,1e,a2,17 
&a9,27,85,1f,a9,4f,85,20,a4,1f,bi,1d,a4,20,91 
1d,c6,20,c6,1f,10,f2,a5,1d,38,89,28,85,1d,b® 
82,c6,1e,ca,d®,dc,a9,50,85,1b,39,04,85,1c,a5 
61,85,19,a5,62,85,1a,4c,F5,08,a4,63,b1,65,49 
05,91,65,60,89,00,85,61,85,62,a9,00,85,63,85 
64,a9,55,85,65,a9,d8,85,66,60,c6,64,30,0c,a5 
65,38,89,28,85,65,b0,02,c6,66,60,86,64,a5,61 
38,2e9,08,85,61,b0,0b,c6,62,10,07,a9,00,85,61 
85,62,60,4c,e6,09,8e6,64,35,64,c9,17,F8,0c,a5 
65,18,69,28,85,65,90,02,e6,66,60,c6,64,a5,61 
18,69,08,85,61,90,02,8e6,62,a5,62,c9,3f,d98,0b 
a5,61,c9,28,d0,05,49,00,85,61,69,4c,a0,09,c9 
11,d0,03,4c,6e,808,c9,91,d0,03,4c,45,8a,c9,1d 
d@,03,4c,68,0b,c9,3d,d®,83,4c,3a,0b,c9,2d,d® 
83,4c,17,2c,c9,38,90,0F,c9,32,90,08,c9,41,98 
07,c9,47,b0,803,4c,98,0b6,c9,13,d0,83,4c,9b,®c 
c9,93,d0,23,4c,95,0c,c9,14,d0,03,4c,e6,08c,c9 
94,d®,03,4c,bf,2c,c9,48,d0,06,20,30,8a,4c,bd 
08,c9,49,d0,83,4c,11,0d,c9,4b,d8,23,4c,85,0d 
c9,53,d0,03,4c,@d,180,c9,4c,d8,803,4c,73,8Ff,c9 
59,d8,203,4c,68,18,c9,50,d8,03,4c,b2,180,68,a2 
08,30,00,18,a9,00,71,1d,49,ff,c8,ca,d®,f8,6® 
c6,63,85,63,180,03,86,63,60,c9,02,f0,f3,c9,05 
FdO,ef,c9,08,f8,eb,c9,0b,f®,e7,c9,0e,f2,e3,c3 
11,f0,df,c9,14,f0,db,c9,19,d0,df,a9,16,85,63 
69,e6,63,a5,63,c9,1c,d®,03,c6,63,60,c9,02,f® 
£1,c9,05,f8,ed,c9,08,f8,e9,c9,0b,fd,e5,c9,Be 
f9,e1,c9,11,f0,dd,c9,14,f0,d9,c9,17,d0,af,a9 
1a,85,63,60,48,20,a0,0c,68,29,3F,09,80,a4,63 
91,1d,40,68,2b,30,00,b1,1b,29,7F,c9,398,b9,22 
63,3a,29,30,4c,83,09,20,38,0b,0a,03,03,03,85 
2d,20,28,0b,05,0d4,60,a5,65,85,1b,a5,66,29,03 
09,04,85,1c,20,24,0c,280,e8,0b,b9,98,09,85,67 
49,Ff,a08,00,31,1F,91,1F,60,a5,1e,38,e9,40,85 
1f,a5,1d,da,26,1f,0a,26,1f,a9,3c,85,29,a35.1d 
Ya ,4a,4a,29,07,a8,60,35,54,03,04,0a,18,65,61 
85,1d,a5,62,69,00,69,40,85,1e,569,20,c8,0b,a8 
00,84,02,20,b9,0b,20,83,09,a4,02,31,1d,c8,c® 
0B,d®,ef,20,83,09,20,83,09,20,b39,0b,85,2d,2®8 
Pa,0b,c5,0d,F0,06,20,61,0c,85,63,60,45,67,2® 
00,11,1f,91,1f,a9,200,85,63,20,6e,8a,a9,a8,20 
6e,00,20,14,20,86,0c,4c,Bf,20c,a9,3c,29,6e,8c 
a0,50,20,86,2c,40,8Ff,8c,8d,01,d4,a9,08,8d,08 
d4,a9,11,8d,85,d4,a9,f1,8d,26,d4,a9,11,8d,24 
d4,60,22,00,ca,d®,fd,88,d0,F8,69,a9,29,8d,04 
d4,60,20,c8,2b,20,bd,08,23,20,B5,63,60,25,65 
85,1d,a5,66,29,03,09,04,85,1e,60,08,01,03,0%4 
06,07,09,04,2c,2d,02f,10,12,13,15,16,13,1b,°® 
a8,0c,a0,1b,bl,1d,c9,a8,d8,1b,a?2,11,bc,ad,dc 
c4,63,f0,0e,84,0d,ca,bc,ad,®c,b1,1d,24,0d,S1 
1d,d@,eb,a9,30,91,1d,60,20,30,0c,a5,63,f8,fB 
a2,11,dd,ad,2c,f®,03,ca,1®,f8,bc,ad,®c,bi,1d 
ca,bc,ad,8c,91,1d,e8B,e8,e9,12,d0,ef,a9,28,a8 
1b,91,1d,4c,3a,0b,20,04,00,39,f0,85,1f,a9,7F 


asiclader des Checkers für den C64, Diskversion 


3858 
3822 
3598 
4217 
4143 
4278 
4525 
4336 
4432 
4844 
4386 
4535 
4237 
4314 
4833 
42398 
4634 
4573 
4295 
4282 
4996 
39392 
4452 
4300 
4237 
4350 
4246 
3956 
4384 
4375 
3722 
4854 
4543 
4472 
3834 
4227 
4858 
4780 
4656 
4274 
4236 
4726 
4286 
4477 
4218 
4396 
4362 
4538 
4505 
4925 
4935 
4351 
4657 
3757 
4243 
4668 
4388 
4132 
4487 
4277 
4728 
4225 
4258 
4563 
4437 
4313 
5117 
4184 
4852 
4544 
4265 
4208 
42356 
4156 
4932 
4833 
4179 
4954 
49832 
4516 
4483 
4569 
3322 
4p16 
4953 
3655 
4863 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


read 


next 


for z=1 to 162:f5=” 


85,20,22,07,29,0f,85,04,8a2,38,bi,1f,24,0d4,51 
1f,c6,0d,ca,10,f3,a5,20,c5,1e,d8,26,85,1f\,c5 
1d,F8,0d4,85,1f,38,eS9,08,85,1F,59,dB,c6,20,d8 
d4,20,88,0b,a6,1F,b9,75,2d,85,2d,53,7d, 24,38 
008,31,1f,48,88,85,02,b1,1f,25,2d,85,82,91,1fF 
eB,F0,28,28,7e,08,3c,08,4c,65,2d,28,bd,08,28 
60,208,88,c0,e0,f0,fB,Ffc,fe,Fff,7f,3F,1Ff,808,87 
23,21,20,24,0c,20,07,a2,0f,84,04,Ba,a8,bi,1d 
a4,2d,91,1d,ca,c6,0d,10,F3,85,1d,18,69,928,85 
1d,90,02,e6,1e,35,1d,c9,f8,d8,dc,a5,1e,c9,7F 
d8,d6,28,04,0c,20,e8,0b,a2,fF,18,08,2B,3e,28 
3c,88,ca,e4,1f,d8,f6,b9,75,2d,3d,88,3c,85,02 
bd,828,3c,28,22,39,7d,2d,05,902,9d,00,3c,4c,bd 
08,32,20,bd,88,3c,c9,ff,d®,03,e8,d0,F6,B6,02 
ad,ff,e4,02,F0,3F,bd,098,3c,d90,05,ca,ed,Fff,d® 
f2,356,02,bd,20,3c,85,22,20,00,35,02,39,98,09 
f0,23,c8,19,F6,84,0d,a9,00,85,6?,Ba,8a,26,62 
02,26,62,08,26,62,05,0d,0a,26,62,0a,26,62,0a 
26,62,85,61,20,36,02,38,60,30,07,bd,00,3c,d9 
75,2d,F8,05,88,10,f8,30,bc,B4,02,22,80,85,1c 
8a,0a,26,1c,0a,26,1c,0a,26,1c,05,0?,0a4,26,1c 
8a,26,1c,083,26,1c,85,1b,35,1c,18,6%,40,85,1c 
18,60,86,0d4,85,1d,84,1e,a5,63,48,a$S,64,48,a5 
65,48,35,66,48,a0,27,89,30,99,00,04,88,10,£8 
a8,20,b1,1d,f0,09,20,24,0f,99,00,04,cB,d0,f3 
a2,00,84,63,a9,06,99,00,d8,99,01,d8,c8,e8,e4 
0d,d®,F7,39,d8,85,66,39,00,85,64,85,65,85,28 
20,2f,08,48,29,60,d0,13,68,c9,02d4,f0,2d,c9,14 
dd,ef,a5,20,f0,eb,c6,63,c6,20,39,a0,a4,63,99 
00,24,10,de,a4,20,68,99,00,02,c4,0d,FO,d4,a4 
63,20,23,0F,39,00,04,e6,20,e6,63,d0,c6,a4,20 
a9,20,39,00,02,68,85,66,68,85,65,68,85,64,58 
85,53,60,48,a9,20,a0,0F,a2,0F,20,66,0e,98,a2 
00,80,02,20,bd,ff,68,a8,a2,08,a9,08,20,ba,Ff 
20,c0,Ff,a9,01,40,40,0F,45,49,4c,45,4e,41,4d 
45,20,08,4B,4a,4a 4a,4a,4a,aa,68,29,1F,1d,38 
OF,60,00,a0,80,c0,40,e0,c0,e0,a9,08,20,b4, ff 
a9,6f,20,36,Fff,a0,27,a9,30,39,00,04,a9,00,39 
00,d8,88,10,£3,a0,00,20,a5,Ff,c9,0d4,f0,09,20 
2a,0f,39,00,04,c8,d8,F®,ad,20,204,0d4,01,04,29 
OF ,48,20,ab,ff,68,60,a9,900,20,fd,de,dd,6e,a2 
08,20,c6,Fff,a9,00,85,90,85,1b,20,cf,Ef,85,Fd 
20,cf,ff,8d,Fe,08,20,F8,9F,a9,3c,85,1c,a9,008 
85,02,85,1d,a9,48,85,1e,a5,90,d0,35,a0,00,20 
ef,ff,31,1d,c8,c80,08,d0,f6,20,00,a6,02,bl,1b 
1d,38,09,91,1b,e6,202,e8,e0,08,d0,06,39,00,85 
02,e6,1b,35,1d,18,69,08,85,1d,90,cf,e6,le,a5 
1e,c9,80,d0,c7,208,cc,ff,a9,08,20,c3,ff,20,30 
®a,4c,92,09,89,00,85,c6,a5,c6,fd,fc,d®d,eb,a® 
00,38,39,08,3c,c8,d®,Fa,60,20,cc,Ff,a9,08,20 
c3,ff,40,92,09,28,de,2d,b0,53,a5,1b,48,a5,1c 
48,39,01,20,fd,0e,85,1F,68,85,1c,68,85,1b,a5 
1F,d0,c5,a9,00,85,1d,a9,40,85,1e,a2,808,20,c9 
Ef,a5,fd,20,d2,Ff,a5,fe,20,d2,Ff,a5,1d,c5,1b 
d®,06,35,1e,c5,1c,f8,94,a0,08,b1,1d,20,d2, ff 
c8,c0,28,d0,F6,35,1d,18,69,28,85,1d,98,df,e6 
le,d®d,db,4c,bd,88,a2,04,a80,10,39,88,20,66,B8e 
a3,0f,85,1b,a9,04,85,1c,20,b9,0b,Bd, fe, 890,20 
b9,0b,8d,fd,80,4c,92,09,41,4e,46,41,4e,47,53 
41,44,52,45,53,53,45,20,00,18,69,f6,90,02,69 
06,69,3a,4c,d2,fFf,48,4a,4a,4a,4a,20,98,190,68 
29,0F ,4c,38,10,20,de,®d,b®,ae,a9,00,20,bd,Ff 
a9,04,aa,a0,00,20,ba,ff,20,c0,ff,a2,04,20,c9 
ff,a8,06,89,20,20,d2,ff,88,d0,f8,a2,07,20,00 
98,20,a4,10,a9,20,20,d2,ff,c8,ca,10,F3,a0,85 
b9,6c,11,28,d2,Ff,88,10,f7,a9,2d,20,d2,ff,20 
d2,ff,a5S,fd,85;1f,a5,fe,85,20,39,00,85,1d,a9 
40,85,1e,35,1d,c5,1b,d0,06,85,1e,c5,1c,f®,4e 
8a5,20,20,84,10,a5,1F,20,a4,10,39,20,20,d2,Ff 
29,d2,ff,a8,08,b1,1d,20,24,10,39,20,29,d2,ff 
c8,c80,08,d0,f1,a9,290,28,d2,ff,20,d2,ff,20,2a 
0b,20,a4,10,a9,0d4,20,d2,ff,a5,1f,18,69,08,85 
1f,90,02,e6,20,85,1d,18,69,08,55,1d,90,aa,66 
1e,d0,36,20,cc,ff,a9,0%4,4c0,c3,ff,4d,55,53,4b 
48,43,8d,2d,2d4,0d,0d4,24,24,68,c1,090,00,20,08 
ok”:for b=® to 14 

h$:gosub 388:h=1*16:h$=mid$ (Ch$,2):aosub 399 


poke 2834+z*15+b,h+l 


:print "zeile”2;fS:next 


paoke 45,122:poke 46,17 
print ”Cclr,2down]save” chr$ (34)”checker” chr$ 


(34)” ,8Chome}”; :end 


l=asc Ch$+”"x”)-48:if 1<B or 1>22 then 3328 
if 1<1@8 then return 

B 1=-1-7:if 1>9 then return = 
1=-9:f$=" [rvsleingabsfehler”:return 
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Errors unter 


Trifft der Commodore 16 aufeinen 
Befehl, den er nicht versteht, gibt 
es einen Error. Die Nummer des 
Errors steht in Variable ER, der 
Text in String ER$(ER). Trat der 
Fehler in einem Programm auf, 
liest man aus Variable EL die 
Nummer der fehlerhaften Zeile. 
Um Errors zu verbessern, muß 
man wissen, was der C]16 nicht 
verarbeiten konnte. 


So funktioniert's! 
EEE ZEE 


Fehlernummer: 01 
Fehlertext: 
?Too Many Files-Error 


Erklärung: Dieser Fehler tritt auf, 
wenn mehr als 10 Files zur glei- 
chen Zeit geöffnet sind. Minde- 
stens ein File ist mit CLOSE zu 
schließen. Wahrscheinlich durch- 
läuft der C16 eine Endlosschleife, 
in der er nach dem zehnten 
Durchlauf, beim elften Versuch, 
ein File zu öffnen, mit dieser Feh- 
lermeldung abbricht. 


Fehlernummer: 02 
Fehlertext: ?File Open Error 


Erklärung: Es wurde versucht, ein 
bereits geöffnetes File nochmals 
zu öffnen. Entweder stehen zwei 
OPEN-Anweisungen, die sich auf 
dasselbe File beziehen, an ver- 
schiedenen Stellen im Programm, 
oder das Programm springt an die 
Stelle, an der das File eröffnet 
wurde, zurück. 

(Siehe Fehler 1: ?Too Many Files). 


Fehlernummer: 03 

Fehlertext: ?File Not Open Error 
Erklärung: Es wurde versucht, 
Daten aus einer Datei zu lesen 
oder in eine Datei zu schreiben, 
die vorher nicht mit OPEN geöff- 
net wurde. Entweder wurde der 
OPEN zu Beginn der Dateibe- 
handlung vergessen oder man hat 
sich bei einer OPEN oder GET#/ 
INPUT #/PRINT#-Anweisung bei 
der logischen Filenummer ver- 
tippt. 
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der Lupe 


Benutzer des Commo- 
dore Basic V3.5 besit- 
zen hervorragende 
Möglichkeiten, Fehler 


im Basıc-Programm zu 
entdecken. Mit RUN 
behebt man Errors. 

Blitzschnell. 


Fehlernummer: 04 

Fehlertext: ?File Not Found Error 
Erklärung: Es wurde versucht, 
eine Datei zu lesen, die nicht auf 
Kassette/Diskette ist. Der Grund 
liegt oftmals darin, daß man sich 
entweder beim Laden oder schon 
beim Speichern vertippt hat und 
der Name des Files auf dem Da- 
tenträger nicht dem eingegebe- 
nen Namen entspricht. 
Fehlernummer: 05 

Fehlertext: 

?Device Not Present Error 
Erklärung: An ein externes Gerät 
sollten Daten übermittelt oder da- 
von eingelesen werden, obwohl 
dieses entweder abgeschaltet 
oder gar nicht angeschlossen ist. 
Tritt zum Beispiel auf, wenn man 
Programmme abspeichern oder 
laden will und die Diskettenstation 
ausgeschaltet ist. Läßt sich einfach 
durch Anschließen und Einschal- 
ten des gewünschten Gerätes be- 
heben. 

Fehlernummer: 06 

Fehlertext: ?Not Input File Error 
Erklärung: Offnet man ein File mit 
dem Befehl OPEN varl,var2,var3 
und möchte man aus dieser Datei 
lesen, so muß die Sekundäradres- 
se var3 gleich 0 sein! Der Open 
Befehl ist entsprechend abzuän- 
dern, um diesen Fehler zu vermei- 
den (Beispiel: OPEN 1,2,0). 
Fehlernummer: 07 

Fehlertext: 

?Not Output File Error 


Erklärung: Öffnet man ein File mit. 


dem Befehl OPEN varl,var2,var3 
und möchte in diese Datei schrei- 
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ben, so muß die Sekundäradresse 
var3 gleich 1 oder 2 sein! 2 
schreibt bei Datasetten die 
Bandendemarkierung auf Kasset- 
te, wenn alle Daten abgespeichert 
sind. (OPEN 1,2,1/ OPEN 12.2). 
Fehlernummer: 08 

Fehlertext: 

?Missing File Name Error 
Erklärung: Es wurde versucht, ein 
File auf Diskette zu speichern 
oder von Diskette zu laden, ohne 
daß der Filename angegeben 
war. Bei Diskettenoperationen ist 
grundsätzlich der Filename mit 
anzugeben! 

Fehlernummer: 09 

Fehlertext: 

?Illegal Device Number Error 
Erklärung: Es wurde versucht, 
eine Gerätenummer anzuspre- 
chen, die für den angewandten 
Befehl falsch ist. So kann man 
nicht versuchen, mit 'LOAD,na- 
me"“,4’ Daten vom Drucker zu la- 
den. Die Device-Nummer ist in 
diesem Beispiel von 4 auf 8 zu än- 
dern. 


Bier ist Lee: Error 


Fehlernummer: 10 
Fehlertext: 
?Next Without For-Error 


Erklärung: Ein NEXT-Befehl wur- 
de gefunden, ohne daß vorher 
eine FOR. .TO. .-Anweisung gege- 
ben war. Oftmals tritt der Fehler 
auf, weil man sich in den Varia- 
blen geirrt hat. Beispiel: 

10 Form=2to 10 

20 nextn 

Ergibt einen ?Next Without For Er- 
ror in Zeile 20. Basic wartet aufein 
NEXT M, erhält aber ein NEXTN. 
Da keine For. .TO. .-Schleife mit N 
eröffnet ist, gibt es Fehler Num- 
mer 10. Seltener ist, daß man mit 
einem GOTO oder GOSUB in ein 
Unterprogramm springt, daß in ei- 
nem undefinierten NEXT endet. 
Beispiel: 

10 GOTO 30 

20 fori = 2t0 20 


30 printi 
40 nexti 
Ergibt ?Next Without For-Error in 
40, da Zeile 20 übersprungen und 
somit kein Schleifenanfang gege- 
ben wird. 
Fehlernummer: 11 
Fehlertext: ?Syntax Error 
Erklärung: Diese Fehlermeldung 
begleitet einen  Basic-Program- 
mierer auf Schritt und Tritt. Meist 
verursachen Tippfehler diesen 
Error, Manchmal ist er Ergebnis 
eines vergessenen Zeichens. 
Beispiele: 
10 print „hallo" a=a+1 
„. vergessen 
10 print „hallo":a=a+1 RICHTIG 
lOpint „hallo":a=a+l 
Tippfehler 
Fehlernummer: 12 
Fehlertext: 
?Return Without Gosub Error 
Erklärung: Obwohl kein GOSUB- 
Sprung gemacht wurde, traf das 
Programm auf eine RETURN-An- 
weisung. Da es von nirgendwo 
herkam, wußte es nicht, wohin es 
zurückkehren sollte. Daher der 
Fehler. Meist liegt es daran, daß 
am Ende des Hauptprogrammes 
viele kleine Unterprogramme lie- 
gen. Wird das Basic-Programm 
nicht vor diesen Unterprogram- 
men mit GOTO oder STOP/ END 
abgefangen, arbeitet es eine Un- 
terroutine ab, die mit RETURN en- 
det — und schon ist der Fehler da. 
Beispiel: 
10 input „zwei zahlen eingeben"; 
a,b 
20 gosub 100 
30 ?, Danke" 
100 if a=b then print „beide zah- 
len sind gleich": retum 
110 print „die beiden zahlen sind 
ungleich" 
120 return 
Dieses Programm schreibt zwei- 
mal dieselbe Aussage auf den 
Bildschirm bevor es mit ?Return 
Without Gosub-Error abbricht. 
Fehlernummer: 13 
Fehlertext: ?Out Of Data Error 
Erklärung: Mit dem Befehl READ 
wurde versucht, mehr Daten aus 
DATA's einzulesen, als vorhan- 
den waren. Entweder war dies 
der Fall, weil man die DATA's er- 
neut angesprochen hat: Dann hilft 
ein RESTORE, bevor man erneut 


Daten „READed“. Meist hat man 
beim Eingeben der DATA-Zeilen 
eine oder mehrere Zahlen verges- 
sen, so daß weniger Zahlen vor- 
handen sind, als versucht wird, 
einzulesen. Beispiel: 

10 fori = Ito 10 

20 read .a:printa 

30 nexti 

40 data 1,2,3,4,5,6,7,8,9 

Fügen Sie in Zeile 40 ein Komma 
und die Zahl 10 an, gibt es keinen 
Fehler mehr! Der Fehler liegt da- 
her nicht in Zeile 20 (wo vergeb- 
lich eingelesen wird), sondern in 
Zeile 40! 

Fehlernummer: 14 

Fehlertext: 

?Illegal Quantity Error 
Erklärung: Es wurde versucht, 
eine Basic-Funktion mit Werten zu 
nutzen, die diese nicht bearbeiten 
konnte. Beispiele dafür: 

POKE 5000500 oder POKE 
5000,—1 (In Speicherstellen kann 
man nur Werte zwischen 0 und 
255 schreiben!) 

a$=,„": print asc(a$) 


C16 läuft über 
FIRE 


Es ist schwierig, den ASCIE-Wert 
eines Buchstabens zu ermitteln, 
den es nicht gibt... In solchen 
Fällen hilft: 

print asc. (a$+chr$(0))! print 15 
AND 34000 (Es dürfen nur Zahlen 
zwischen —32768 und +32767 AN- 
Diert werden!) 

Es gibt noch viele weitere Beispie- 
le, in denen dieser Error auftritt. 
Am besten ist es, die fehlerhafte 
Zeile zu listen und zu prüfen, ob 
eine Basic-Änweisung mit den zu- 
gewiesenen Variablen nicht zu- 
sammenarbeiten kann, weil diese 
außerhalb der Toleranz liegen. 
(Beispiel: print len (a$)). 
Fehlernummer: 15 

Fehlertext: ?Overflow Error 
Erklärung: Der C16 kann keine 
Zahlen verarbeiten, die größer als 
1.701411833E +38 oder kleiner als 
—1.701411833E+37 sind. Am be- 
sten prüft man die Formeln in der 
fehlerhaften Zeile neu durch. 
Fehlernummer: 16 

Fehlertext: Out Of Memory Error 
Erklärung: tritt auf, wenn: 

1.) Das Programm größer ist, als 
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der freie Basic-Speicher. (Künst- 
lich zu erzeugen, indem man das 
Basic-Speicherende herab oder 
den Basic-Speicheranfang herauf 
legt). 
2.) Der Speicherplatz genügt 
nicht, um alle benötigten Varia- 
blen aufzunehmen. Hier hilft 
manchmal die FRE(0)-Funktion. 
Dieser Befehl löscht alle unbe- 
nutzten Variablen und schafft da- 
durch Speicherplatz. 

3.) Mehr als 10 FOR. .TO-Schlei- 
fen wurden eröffnet, ohne daß die 
NEXT-Anweisung eine Schleife 
geschlossen hat. 

5.) Zu viele Funktionen wurden 
mit DEF FN definiert. 
Fehlernummer: 17 

Fehlertext: 

?Undef’d Statement Err 
Erklärung: Eine Programmzeile 
sollte angesprungen werden, die 
nicht vorhanden war. Die Befehle: 
RUN 100 

GOTO 100 

GOSUB 100 

RESUME 100 

verursachen einen ?Undef’d 
Statement Error, wenn es im Pro- 


- gramm keine Zeilennummer 100 


Fehlertext: ?Bad Subscript Error 
Erklärung: Es wurde versucht 
eine Index-Variable anzuspre- 
chen, die nicht definiert ist. Index- 
variablen müssen bis zum 10. Feld 
(ab 0) nicht definiert werden, da- 
mit man fehlerfrei in sie schreibt 
oder daraus liest. Ab Feld 11 ist 
eine einmalige, vorherige DIMen- 
sionierung notwendig. 
10 a(l2)=15 
führt zu ?Bad Subscript Error; 
10 dim a(50): all2)=15 
arbeitet ohne jedes Problem. Bei 
DIMensionierungen lernt man 
schnell Fehlernummer 19 kennen: 
Fehlernummer: 19 
Fehlertext: 
?ReDIM’d Array Error 
Erklärung: Es wurde zum zweiten 
Mal versucht, ein Indexfeld zu di- 
mensionieren. 
10 DIM a(30) 
20 DIM a(55): 

rem Fehler: Doppel-DIM 
Entweder müssen vorher alle Va- 
riablen mit CLR gelöscht werden, 


oder man unterläßt das zweite® 
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DIMensionieren. Aus diesem 

Grund ist es ratsam, DIM-Felder 

eher größer als notwendig zu di- 

mensionieren, da sie nachträglich 

nicht erweitert werden können. 

Fehlernummer: 20 

Fehlertext: ?Division by Zero-Err 

Erklärung: Mathematische Grund- 

regel: Divisionen durch O0 sind 

nicht erlaubt. Bevor man durch 

eine Variable dividiert, muß man 

abfragen, ob diese 0 ist. Beispiel: 

10 input „zahl eingeben";a 

20 if a=0Othen end 

30 print „lO dividiert durch „;a;" 
ist „;a/10;" 1" 

Fehlernummer: 21 

Fehlertext: ?Illegal Direct Error 

Erklärung: Befehle wie INPUT 

und GET dürfen nicht im Direkt- 

modus, also ohne Zeilennummer 

davor, eingegeben werden. 

Beispiel: 

10 input a: rem kein Fehler 

„input a" ergibt den Fehler. 

Fehlernummer: 22 

Fehlertext: 

?Type Mismatch Error 

Erklärung: Die Unterschiede zwi- 

schen Strings und Zahlen wurden 

nicht berücksichtigt. Beispielswei- 

se darf keinem String eine Zahlen- 


variable zugewiesen werden: 
ah=a. 
Formular TOO Direct by 


Zero-Error??? 


Dafür gibt es Befehle: 

aß=str$(a). Bei solchen Befehlen 
muß man sich genau an die Syntax 
halten und auf den kleinen Unter- 
schied eines Dollarzeichens oder 
der Anführungsstriche achten. 
Beispiele: 

a =chr$(15) :rem Fehler 


a$=asc(b$) :rem Fehler 
a =asc(15) :rem Fehler 
a=,„hallo" :rem Fehler 
a$=24444 :rem Fehler 
aß= 24444" :rem Richtig! 
Fehlernummer: 23° 
Fehlertext: 

?String Too Long Error 


Erklärung: Strings dürfen maximal 
255 Zeichen lang sein. Beispiel: 
. 1Oa$=a$+,l" 
20a=a+l:printa 
30 goto 10 
Nachdem dieses Programm mit 
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Fehlermeldung geendet hat, soll- 

te man mal mit print a den Inhalt 

dieser Zählvariablen am Bild- 

schirm ausgeben. Ist eine Basic- 

zeile länger als 80 Zeichen, kommt 

es ebenfalls zu diesem Error. 

Dann muß man entweder die eine 

Zeile in zwei Zeilen teilen oder die 

Basic-Befehle-Kurzform benutzen. 

? ist die Kurzform für print 

i shift, N" für input 

etc... . (siehe Handbuch) 

Fehlernummer: 24 

Fehlertext: ?File Data Error 

Erklärung: Entweder sollten nu- 

merische Werte von Diskette/ 

Kassette gelesen werden, obwohl 

dort Strings standen oder aber es 

sollten Strings von Diskette/Kas- 

sette eingelesen werden obwohl 

nur Zahlen vorhanden waren. 

Fehlernummer: 25 

Fehlertext: 

?Formula Too Complex-Error 

Erklärung: Eine Berechnung ist 

für den Computer zu kompliziert. 

Die Rechnung ist in Teilberech- 

nungen aufzuspalten, die der 

Rechner bewältigt. (Unterpro- 

gramm mit GOSUB). 

Fehlernummer: 26 

Fehlertext: 

?Can’t Continue Error 

Erklärung: CONT funktioniert, 

wenn 

— das Programm ohne Fehler ab- 
brach. 

— inder Zwischenzeit kein Fehler 
aufgetreten ist 

— keine Basic-Zeile eingegeben 
oder verändert wurde 

— kein anderes Programm von 
Diskette oder Kassette geladen 
wurde. 

Ansonsten gibt der C16 den Error 


„aus. 


Fehlernummer: 27 

Fehlertext: 

?Undef’d Function Error 
Erklärung: Eine mathematische 
Funktion muß zuerst mit DEF FN 
definiert werden, bevor man mit 
FN darauf zugreifen kann. Anson- 
sten entsteht der ?Undef’d Func- 
tion Error. Häufig ist er die Folge 
eines Schreibfehlers. 
Fehlernummer: 28 

Fehlertext: ?Verify Error 
Erklärung: Schreibt man Daten 
auf Diskette oder Kassette und 
prüft danach mit VERIFY, ob alles 


a gen nse 


richtig 


abgespeichert wurde, 
kann dieser Fehler auftreten. 
Dann ist es ratsam, die Diskette/ 
Kassette zu wechseln und einen 
neuen Datenträger einzulegen. 
Auf diesen speichert man die 


Daten nochmals. Ein erneuter 
VERIFY-Befehl sollte keinen Feh- 
ler zur Folge haben. 


Fehlernummer: 29 

Fehlertext: ?Load Error 
Erklärung: Es war nicht möglich, 
die gewünschte Datei oder das 
gewünschte Programm von Dis- 
kette/Kassette einzulesen. Das 
liegt entweder daran, daß keine 
Diskette/Kassette eingelegt ist, 
die eingelegte Diskette/Kassette 
die geforderten Daten nicht ent- 
hält oder der Datenträger defekt 
ist. Defekte Datenträger prüft man 
mit Verify auf ihre Funktionen. 


Fehlernummer: 30 

Fehlertext: ?Break Error 
Erklärung: Dieser „Fehler“ ist 
kein Fehler. Er tritt nur auf, wenn 
man die STOP-Taste drückt, wäh- 
rend ein Basic-Programm läuft 
oder wenn in diesem Programm 
der Befehl STOP steht. ?Break 
Error kennzeichnet folglich einen 
künstlich herbeigeführten und ge- 
wünschten Fehler. 


Fehlernummer: 31 

Fehlertext: ?Can’t Resume Error 
Erklärung: Trifft der C16 auf eine 
RESUME-Anweisung, ohne daß 
ein Fehler auftrat, gibt er einen 
Fehler aus. In der Zeile vor dem 
RESUME sollte man einen GOTO 
auf die Zeile nach dem RESUME 
einfügen. Danach gibt es keinen 
Can't Resume Error mehr. 


Fehlernummer: 777 

Fehlertext: ?Out of RUN Error 
Erklärung: Dieser Fehler tritt im- 
mer dann auf, wenn am Kiosk die 
RUN ausverkauft ist. Doch es gibt 
eine Lösung: In diesem Heft bis 
Seite 115 blättern, Abo-Karte raus- 
nehmen, alles ausfüllen, 60-Pfen- 
nig-Briefmarke draufkleben und 
losschicken. Danach gibt es keine 
Probleme mehr mit diesem wirk- 
lich schwerwiegenden, grauen- 
vollen Error. 


| 
| 


| 
| 


Was ist wo im 


programmen benötigt, gibt es bereits: Im Kernal- 
und Interpreter ROM des C128. 


i28er Basie-ROM? 


Viele Funktionen, die man in eigenen Maschinen- 


Basic 7.0 strotzt vor Befehlen. Dies ist für Basic- und 
Maschinenspracheprogrammierer vorteilhaft. In Ba- 
sic nutzt man die gegebenen Anweisungen; in Ma- 
schinensprache die Unterroutinen der Basic-Befele 


Befehl $ Token dez $ Adressen dez 
ABS $B6 /182 $ 85FE / 34302 
APPEND $FEOE /014 $ 9ABB / 39611 
ASC $C6 /198 $ 7FFD / 32765 
AUTO $DC /220 $ 585E / 22622 
ATN Cl /19 $ 8E2F / 36399 
BACKUP $F6 /246 $ 9CDF / 40159 
BANK $FE02 /002 $ 68F8 / 26872 
'BEGIN $FE 18 /024 $ 752A / 29994 
BEND $FE19 /025 $ 519C / 20892 
BLOAD $FEIll /017 $ 9B74 / 39736 
BOOT $FEIB 7027 $ 704F / 28751 
BOX $El /225 $ 60DD / 24797 
BSAVE $FE10 /016 $ 9B46 / 39750 
BUMP $CE03 7/0083 $ 7D2F / 32015 
CATALOG $FE0OC /012 $ 9A05 / 39429 
CHAR $EO /224 $ 65F3 / 26099 
CHR$ $C7 /199 $ 7F45 / 32581 
CIRCLE $E2 /226 $ 64B4 / 25780 
CLOSE $A0 /160 $ 8B15 / 35605 
CLR 5 9C /156 $ 5105 / 20741 
CMD $9D /157 $ 542C / 21548 
COLOR $E7 /231 $ 679D / 26525 
COLLECT $F3 /243 $ 9C92 / 40082 
COLLISION $FEI7 /023 $ 6ETE / 28285 
CONLAT $FE 13 /019 $9CC5 / 40133 
CONT $9A /154 $ 5954 / 22868 
COPY $F4 /244 $ 9CA9 / 40105 
cos $BE /190 $ 8D85 / 36229 
DATA $83 /131 $ 519C / 20892 
DCLEAR $FE15 /021 $ 9C85 / 40069 
DCLOSE $FEOF /015 $ 9AF0 / 39664 
DEG $Dl /209 $ 7499 / 31385 
DEF $. 96 /150 $ 7E80 / 32384 
DEL $Di /209 $ 7A99 / 31385 
DELETE $F7 /247 $ 5CDA / 23770 
DIM 5 86 /134 $ 51764 / 22372 
DIRECTORY $EE /238 $ 9A05 / 39429 
DLOAD $F0 /249 $ 9B25 / 39717 
DO $EB /235 $ 5E21 / 24097 
DOPEN $ FE0C /013 5 9AA4 / 39588 


ee ar nr 


im ROM. Dazu notwendig sind: 


ROM-Sprungadressen der Befehle sowie die ent- 
sprechenden Basic-Tokens (beim C128 teilweise 


zweistellig). 


DRAW 
DSAVE 
DVERIFY 
END 
ENVELOPE 
ERR$ 
EXIT 
EXP 
FILTER 
FOR 

FRE 

GET 
GOSUB 
GOTO 
GRAPHIC 
GSHAPE 
HEADER 
HELP 
HEX$ 

IF 

INPUT 
INPUT# 
INSTR 
INT 

JOY 

KEY 
LEFT$ 
LEN 

LET 

LIST 
LOAD 
LOCATE 
LOG 
LOOP 
MID$ 
MONITOR 
MOVSPR 
NEW 
NEXT 
ON 
OPEN 


$ES5 
$EF 
$FE14 
$ 80 
$FEOA 
$D3 
$ED 
$ BD 
$FE03 
$8] 
$B8 
$Al 
$8D 
$ 89 
$DE 
$E3 
$Fl 
$EA 
$D2 
$ 8B 
$85 
$ 84 
$D4 
$B5 
$CF 
$F9 
$C8 
$C3 
$ 88 
$9B 
$93 
$Eß 
$BC 
$EC 
$CA 
$FA 
$FE 06 
$A2 
$82 
$91 
$ IF 


/229 $ 65BD / 26045 
/239 $ 9BOA / 39690 
/020 $ 9B22 / 39714 
/128 $ 4BlB / 19220 
/010 $ 6DDB / 28123 
/2ll $ 7819 / 30745 
/231 $ SETB / 24187 
/189 $ 89AD / 35245 
/003 $ 6D6B / 28011 
/129 $ 5C4C / 23628 
/184 $ 7A41 / 31297, 
/161 $ 54FE / 21758 
/14l $ 58B6 / 22710 
/137 $ 58C2 / 22722 
/222 $ 68A5 / 26789 
/221 $ 63B3 / 25523 
/24] $ 9BAD / 39853 
/234 $ 586F / 22639 
/210 $ 7B65 / 31589 
/139 $ 51D2 / 20946 
/133 $ 554E / 21838 
/132 $ 5534 / 21812 
/212 $ 933D / 37693 
/181 $ 8675 / 34421 
/207 $ 7BE9 / 31721 
/249 $ 5F48 / 24392 
/200 $ 7F5C / 32604 
/195 $ TAEE / 31470 
/136 $ 52B2 / 21122 
/155 $ 4FEE / 20462 
/147 $ 8AAB / 35493 
/230 $ 6723 / 26403 
/188. $ 834D / 33613 
/236 $ 5ED2 / 24274 
/202 $ ZFA2 / 32674 
/250 $ B000 /45056 
/006 $ 69E5 / 27125 
/182 $ 50E3 / 20707 
/130 $ 56E0 / 22240 
/145 $ 528F / 21135 
/159 $ 8B09 / 35593 
Sonderheft Um 13 


nn 


en Tips und Tricks SET Tg 


PAINT $DF /223 $ 5FD1 / 24529 SCALE $E9 /223 $ 672E / 26414 
PEEK $Cl /194 $ ZAE8 / 31464 SCNCLR $E8 /232 $ 67E0 / 26592 
PEN $CE04 7004 $ 1C8D / 31885: SCRATCH. $F2 /242 $ 9BE7 / 39911 
PLAY $FE 04 /004 $ 6B12 / 27410 SGN $ BA /180 $ 85DF / 34271 
POKE $97 /151 $ 7B08 / 31496 SIN $BF /191 $ 8D8C / 36236 
POS $B9 /185 $ 7E56 / 32342 SLEEP $FEOB /011 $ 6906 / 26886 
PRINT 8599 /153 $ 5446 / 21574 SOUND $DA /218 $ 6F06 / 28422 
PRINT+# $98 /152 _ $5426/ 21542 STR$ 804 /196 $ 7F34 / 32564 
PUDEF $DD /221 $ 5D79 / 23939 SOR $BA /186 $ 8931 / 35121 
RCLR $CD /205 $ 7BBA / 31672 SPRCOLOR $ FE 08 /008 $ 6EAA / 28330 
RDOT $DO /208 $ 9488 / 38024 SPRDEF $FEID 7029 $ 7084 / 28804 
READ $87 /135 $ 5595 / 21909 SPRITE $ FE07 /007 $ 697E / 27006 
RECORD $FE12 /018 $ 9C1D./ 39965 SSHAPE $E4 /228 $ 6251 / 25169 
REM $8F /143 $ 51AA / 20906 STOP $90 /144 $4B12 / 19218 
RENAME $F5 /245 $ 9CD1 / 40145 SYS = $9E /158 $ 576E / 22382 
RENUMBER $F8 /248 $ 59E6 / 23014 TAN $c0 /192 $ 8DD5 / 36309 
RESTORE $8C /140 $ 59B8 / 22968 TEMPO $EF 05 /005 $ 6D02 / 27906 
RESUME $D6 /214 $ 5DA4 / 23972 TRAP $D7 /215 $ 5D8F / 23951 
RETURN $8E /142 $ 516F / 20847 TROFF $D9 /217 $ 57A0 / 22432 
RGR $CC /204 $ 7BA5 / 31653 TRON $D8 /216 $ 579D / 22429 
ne ; ns ' =: is ; in USR $B7 /183 $ 1218 / 04635 
RREG $FE 09 /009 $ 57A6 / 22438 LEN 202 ae Ba 
VERIFY $95 /149 $ 8AA5 / 35496 
RSPPOS $CE05 7/0065 $ 7D2A / 32042 voL $DB 219 $ GEDF / 28383 
RSPRCOLOR $CE07 /007 $ 7CF4 / 31988 
RUN SA /138 $ 5989 / 22921 WIDTH $FEIC /028 $ 6EDO / 28368 
RWINDOW $CE09 - /009 $ 7D8D / 32141 WINDOW $FEIA /026 $ 6FE6 / 28646 
SAVE $94 /148 $ BASE / 35470 XOR $CE08 /008 $ 7D74 / 32116 


TEDdy im E16 


Im C16 befindet sich ein neues, sehr leistungsfähi- 


ges Chip. Sein Name: TED (=TExt Display). Er verwaltet 
Speicher, Bildschirm, Sound, Tastatur und Joystick. 


Um den C16 besser zu programmieren, ist man auf 
den Chip 7360 angewiesen. Er bearbeitet wichtige 
Funktionen. Manipuliert man seine Register (Basis- 
adresse $FF00/65280), treten verblüffende Effekte 


auf. Damit unterstützt man zum Beispiel Window-Pro- 
grammierung (ähnlich GEOS auf dem Commodore 
64). Je nach Programm wird aus dem Commodore 16 
sogar ein kleiner, programmierbarer Synthesizer. 


Speicher Funktion an =Vertikal 25 Zeichen 
$FF00/65280 Timerl— Low Byte Bit 4 aus=Bildschirm aus 
$FF01/65281 Timerl— High Byte an =Bildschirm an 
$FF02/65282 Timer2— Low Byte Bit 5 aus=Bit-Map-Modus aus 
$FF03/65283 Timer2— High Byte an =Bit-Map-Modus an 
$FF04/65284 Timer3— Low Byte Bit 6 aus=Extended-Color-Modus aus 
$FF05/65285 Timer3— High Byte an =Extended-Color-Modus an 
$FF06/65286 Hat mehrere Funktionen: Bit7 „totes" Bit, immer 0 
Bit 0—2 Beinhalten die vertikale Po- $FF07/65287 Hat mehrere Funktionen: 

sition des Bildschirminhalts Bit 0—2 Beinhaltet die horizontale 
Bit 3 aus= Vertikal 24 Zeichen Pos. des Bildschirminhalts 
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Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


$FF08/65288 
$FF09/65289 
Bit 0 
Bit ] 
Bit 2 
Bit 3 
Bit 4 
Bit 8 
Bit 6 
Bit 7 
$FFOA/65290 
Bit 0 
Bit 1 
Bit 2 
Bit 3 
Bit 4 
Bit 5 
Bit 6 
Bit 7 


aus=Horizontal 38 Zeichen - 
an =Horizontal 40 Zeichen 
aus=Multicolor-Modus aus 
an =Multicolor-Modus an 
aus=Normale Funktion 

an =Horiz. Pos. „einfrieren“ 
aus=PAL -Norm 

an =NTSC-Norm 
aus=Reverse (rvs) möglich 
an =Reverse abschalten 
Tastatur 

Hat mehrere Funktionen: 
unbenutzt 
Rasterinterruptflag 
Light-Pen-Verarbeitung 
Timer #1 Unterlauf 

Timer #2 Unterlauf 
unbenutzt 

Timer #3 Unterlauf 
Interruptflag 

Hat mehrere Funktionen: 
Achtes Bit aus $FF0B/65291 
Rasterinterruptflag 
Light-Pen-Verarbeitung 
Timer #1 

Timer #2 

unbenutzt 

Timer #3 

unbenutzt 


Ist mindestens eines der Bits in Speicherstelle 
$FFOA/65290 gleich dem Bit in $FF09/65289, löst 
der TED einen Interrupt aus, 


$FFOB/68291 


$FF0C/65292 
Bit 0 

Bit 1 

Bit 2—7 
$FFO0D/65293 


$FFOE/65294 
$FFOF/65295 
$FF10/65296 
Bit 0 

Bit] 

Bit 2—7 
$FF11/65297 
Bit 0-3 

Bit 4 

Bit 5 

Bit 6 

Bit 7 


Rasterzeilen /Bit 8 

steht in $FFOA/65290 
Hardware Cursorposition 
Bit 8 aus $FF0D/65293 

Bit 9 aus $FF0D/65293 
unbenutzt 

Hardware Cursorposition 
Die ersten 8 Bits. 
Überlauf nach $FFOC. 
Frequenz Stimme 1/ 

Bits O bis 7 

Frequenz Stimme 2/ 

Bits 0 bis 7 

Frequenz Stimme 2 

Bit 8 aus $FFOF/65295 

Bit 9 aus $FFOF/65295 
unbenutzt 

Hat mehrere Funktionen: 
Lautstärke (max. 15) _ 
aus=Stimme ] aus 

an =Stimme lan 
aus=Stimme 2 aus 

an =Stimme2an 
aus=Stimme 2: Rauschen aus 
an =Stimme 2: Rauschen an 
aus=ohne Bedeutung 
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an =Stimme 1 und 2: Einschalt- 
zustand wiederherstellen 


$FF12/65298 Hat mehrere Funktionen: 
Bit 0 Frequenz Stimme 1 Bit 8 
Bit 1 Frequenz Stimme 2 Bit 9 
Bit2 TED ROM/RAM Zugriff 
Bit 3—5  Bit-Map-Basisadresse 
Bit6—-7 Ohne Bedeutung 
$FF13/65299 Hat mehrere Funktionen: 
Bit 0 Hardwareuhr-Statusbit 
Bit 1 Hardwareuhr setzen 
Bit 2—7 Zeichensatz-Basisadresse 
$FF14/65300 Farbspeicher: 
Bit 0—2 Ohne Bedeutung 
Bit 3—7 Farbspeicher-Basisadr. 
$FF15/65301 Hintergrundfarbe 0: 
Bit 0—3 Farbe 
Bit 4-6 Helligkeit 
Bit 7 unbenutzt 
$FF16/65302 Hintergrundfarbe |: 
Bit 0—3 Farbe 
Bit 4-6 Helligkeit 
Bit 7 unbenutzt 
$FF17/65303 Hintergrundfarbe 2: 
Bit 0—3 Farbe 
Bit 4—6 Helligkeit 
Bit 7 unbenutzt 
$FF18/65304 Hintergrundfarbe 3: 
Bit 0—3 Farbe 
Bit 4-6 Helligkeit 
Bit 7 unbenutzt 
$FF19/65305 Hintergrundfarbe 4: 
Bit 0—3 Farbe 
Bit 4—6 Helligkeit 
Bit 7 unbenutzt 
$FF1A/65306 Bit-Map-Wert 
SFF1B/65307 Bit-Map-Wert 
$FF1C/65308 Vertikale Position 
Bit 0 Bit 8 aus $FF1D/65309 
Bit 1—7 Ohne Bedeutung 
$FF1D/65309 Vertikale Position 

Bits 0 bis 7 
$FFI1E/65310 Horizontale Position 
$FF3E/65342 ROM Zugriff 
$FF3F/65343 RAM Zugriff 


Um Werte in ein bestimmtes Byte zu schreiben, be- 
nutzt man die Befehle AND und OR, je nachdem, ob 
man das Bit löschen oder setzen will. Die gePOKEten 
Werte dürfen nicht größer als 255 sein oder einen 
negativen Wert aufweisen. („Ilegal Quantity Error" 
ist die Folge!) 

Beispiel: 

Um eine 25-Zeilen-Ausgabe zu erhalten, gibt man: 
POKE 65286, PEEK(65286)OR 8 


ein und setzt damit einzig und allein Bit 3 in diesem 
Register. 
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Im Kernal des €128 


Buchstaben auf 40- oder 80-Zei- 
chenbildschirmen ausgeben, Dis- 
kette booten, Tastaturwerte einle- 
sen, und so weiter ... Für jede 
dieser Aufgaben gibt es im Kernal 
ROM eine Routine. Wer effizient 
programmieren will, nutzt diese 
ausgetesteten, platzsparenden 
„Subroutines" so oft als möglich. 


Label: ACPTR 

Adresse: $FFA5 / 65445 
Register: A 

Liest vom IEC-BUS ein Zeichen in 
den Akkumulator. Je nach Erfolg 
wird das Statusbyte in $90 gesetzt. 
Ist somit das Gegenstück zu 
CIOUT ($FFA8). 

Label: BASIN 

Adresse: $FFCF / 65487 
Register: A 

BASIN liest ein Zeichen aus der 
mit CHKIN definierten Datei oder 
der Tastatur in den Akkumulator. 
Label: BOOTCALL 

Adresse: $FF53 / 65363 

Register: X 

Bootet die eingelegte Diskette im 
Laufwerk mit Geräteadresse X- 
Register. Ist ein BOOT-File vor- 
handen, liest und startet es der 
C128, ansonsten erhält das Ur- 
sprungsprogramm die Kontrolle 
zurück. 

Label: BSOUT 

Adresse: $FFD2 / 65490 
Register: A 

Schreibt das im Akkumulator defi- 
nierte Zeichen an das, mit CKOUT 
definierte Ausgabegerät. Ist das 
Ausgabegerät der Bildschirm, 
wird der Akkumulatorwert als 
ASCII-Zeichen angenommen und 
in den entsprechenden CBM- 
Code-Wert umgerechnet. 

Label: BSOUT SCRN 

Adresse: $C72D / 50989 
Register: A 

Gibt das im Akkumulator enthalte- 
ne Zeichen an der aktuellen Cur- 
sorposition des gerade aktiven 
Bildschirms aus. Der Vorteil ge- 
genüber der „normalen“ BSOUT- 
Printroutine: BSOUT SCRN ist 
schneller. 
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Maschinensprache- 
unterprogramme des 
Kernal-ROM’s steuern 


den Commodore 128. 
Nutzt man diese 


Routinen in As- 
sembler, spart man sich 
viel Zeit, Arbeit und 
damit Energien. 


Label: C64MODE 

Adresse: $FF4D / 65357 
Register: keine 

Diese Routine schaltet vom Com- 
modore 128-Modus auf den C64- 
Modus um. Speicherplatz, Tasta- 
tur und Taktfrequenz werden dem 
C64-Modus angepaßt. Die Routine 
endet mit RESET. Somit endet die 
Kontrolle des Maschinenprogram- 
mes über den Computer mit die- 
sem JSR/JMP-Sprung. 

Label: CHKIN 

Adresse: $FFC6 / 65478 
Register: X, Carry 

Lenkt den Eingabekanal auf den 
vorher mit OPEN geöffneten Kanal 
um, Jedes weitere mit BASIN ein- 
gelesene Zeichen stammt aus dem 
neuen Kanal. Nach CLOS oder 
CLRCH ist automatisch die Tasta- 
tur wieder Eingabegerät. Tritt ein 
Fehler auf, so setzt CHKIN das 
Carry-Flag. 

Label: CINIT 

Adresse: $FF81 / 65409 

Register: keine : 

Setzt den 40/80-Zeichenmodus 
entsprechend der Umschalttaste, 
initialisiert 40- und 80-Zeichencon- 
troller sowie die Funktionstasten 
neu. Der Tastaturpuffer wird ge- 
leert und sämtliche Ein-/Ausgabe- 
kanäle werden geschlossen. 
Label: CIOUT 

Adresse: $FFA8 / 65448 

Register: A 

Sendet den Inhalt des Akkumula- 
tors an den IEC-BUS. Je nach Er- 
folg wird das Statusbyte in $90 ge- 
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setzt. Ist somit das Gegenstück zu 
ACPTR ($FFA3). 

Label: CKOUT 

Adresse: $FFC9 / 65481 

Register: X, Carry 

Schaltet vom bisherigen Ausgabe- 
kanal auf den vorher mit OPEN er- 
öffneten, im X-Register angegebe- 
nen Kanal um. Sämtliche mit 
BSOUT ausgegebene Zeichen, 
werden an das definierte Ausga- 
begerät gesendet. Das Carry-Flag 
dient zur Fehlererkennung. Ist es 
gesetzt, trat ein Fehler auf. 

Label: CLALL 

Adresse: $FFE7 / 65511 

Register: keine 

Löscht sämtliche geöffneten Datei- 
en, ohne diese zu schließen. Führt 
danach einen Sprung nach 
CLRCH durch. 

Label: CLOSE 

Adresse: FFC3 / 65475 

Register: A, Carry 

Schließt das File mit der im Akku- 
mulator vorhandenen, logischen 
Filenummer. Sämtliche Daten die- 
ser Datei werden aus der „OPEN 
FILE“-Tabelle gelöscht. Ist ein 
Fehler aufgetreten (zum Beispiel: 
zu schließendes File war nicht ge- 
öffnet), setzt CLOSE das Carry 
Flag (=]). 

Label: CLRCH 

Adresse: $FFCC / 65484 
Register: keine 

Sämtliche Eingabe- und Ausgabe- 
änderungen mit CHKIN und 
CKOUT werden rückgängig ge- 
macht, ein UNTALK- und ein 
TALK-Befehl gesendet. 

Label: CLRWIN 

Adresse: $C142/49474 

Register: keine 

Löscht den Bildschirmbereich des 
aktuell definierten Fensters. Ist 
kein Fenster definiert, löscht 
CLRWIN den gesamten Bild- 
schirm. 
Label: CLOIR 

Adresse: $C77D / 51069 

Register: keine 

Löscht sowohl den Hochkomma- 
als auch die INSERT- und RVS- 
Modi des C128. 
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Label: CURHOM 

Adresse: $C150 / 49752 

Register: keine 

Positioniert den Cursor in die lin- 
ke, obere Ecke des aktuell defi- 
nierten Fensters. Ist kein Fenster 
definiert, positioniert CURHOM 
den Cursor in die linke, obere 
Ecke des Bildschirms. 

Label: DLCHR 

Adresse: $FF62 / 65378 

Register: keine 

Kopiert die C128-Zeichensätze 
vom Character-Rom ins VDC (80 
Zeichenkontroller) RAM. Je nach 
Stellung der ASCIVDIN-Taste 
handelt es sich um amerikanische 
oder um deutsche Zeichen. 

Label: DMACALL 

Adresse: $FF50 / 65360 

Register: X 

Ermöglicht DMA-Zugriffe. Im X- 
Register steht der Wert der neu 
einzuschaltenden Konfiguration. 
Label: END 

Adresse: $4DC6 / 19910 
Register: keine 

Schaltet den Commodore 128 vom 
Programmodus auf Direktmodus 
um. Beendet ein Basic-Programm 
ohne END oder BRK, 

Label: GETCONF 

Adresse: $FF6B / 65387 

Register: X 

Holt das dem X-Register entspre- 
chende Konfigurationsbyte aus 
der Tabelle ab Adresse $F7FO. 
Der neue Wert steht im Akkumu- 
lator. Der Wert des X-Registers 
darf 16 nicht übersteigen. 

Label: GETIN 

Adresse: $FFEA4 / 65508 

Register: A 

Liest ein Zeichen aus der definier- 
ten Eingabedatei (Tastatur oder 
RS232) in den Akkumulator. 
Label: GETLIN 

Adresse: $C258 / 49752 

Register: keine 

Diese Routine nimmt so lange 
Zeichen von der Tastatur entge- 
gen und printed diese am Bild- 
schirm, bis CR = RETURN betätigt 
wird. 

Label: INDCMP 

Adresse: $FFIA / 65402 
Register: A,X,Y 

Speicher: $02C8 

Vergleicht den Wert einer belie- 
bigen Speicherstelle mit dem Ak- 


kumulator. Die Register müssen 
genauso gesetzt werden, wie in 
INDSTA, mit der Ausnahme, daß 
Speicherstelle $02C8 auf den Null- 
seitenpointer zeigt. Das Ergebnis 
des Vergleiches steht in Speicher- 
stelle $05. 

Label: INDFET 

Adresse: $FF74 / 65396 

Register: A,X,Y 

Liest aus einer beliebigen Spei- 
cherbank einen Wert. In der Null- 
seite muß der Pointer der Adresse 
stehen, die ausgelesen wird, der 
Akkumulator zeigt auf diese Null- 
seitenadresse, im X-Register steht 
der Konfigurationsindex und im Y- 
Register der Offset des Nullseiten- 
Pointers. 

Label: INDSTA 

Adresse: $FF77 / 65399 

Register: A,X,Y 

Speicher: $02B9 

Im Gegensatz zur INDFET-Routine 
schreibt INDSTA den Wert des 
Akkumulators in eine beliebige 
Speicherstelle. X- und Y-Register 
haben dieselben Aufgaben; in 
Adresse $02B9 steht der Zeiger 
auf die Zero-Page-Adresse, die 
auf den gewünschten Speicher 
zeigt. 

Label: IOBASE 

Adresse: $FFF3 / 65523 

Register: X,Y 

Holt die Adresse des Ein-/ Ausga- 
bebereiches in die Register: 
X=Low-Byte, Y=Hicgh-Byte. Der 
Wert entspricht $D000 = Y: DO, 
xX=00. 

Label: IOINIT 

Adresse: $FF84 / 65412 

Register: keine 

Initialisiert sämtliche V/O-Leitun- 
gen. Drucker, Laufwerk, Modem 
etc. werden in den Anschaltzu- 
stand gesetzt. 

Label: JMPFAR 

Adresse: $FF71 / 65393 

Register: keine 

Speicher: $02 bis $09 

Führt einen Sprung in beliebigen 
Speicher durch und führt ein dort 
vorhandenes Maschinenpro- 
gramm weiter. Die Parameter in 
Adressen $02 bis $09 gleichen 
den Parametern in J]SRFAR. 
Label: J]SRFAR 

Adresse: $FF6E / 65390 

Register: keine 

Speicher: $02 bis $09 


ERNEST ERW OLE EOR 


Springt eine beliebige Speicher- 
bank, unabhängig von der gerade 
eingeschalteten Konfiguration, an. 
Es steht in: 


502 — Konfigurationsindex . 
$03/$04 — Programmzähler (PC) 
605 — Prozessorstatus 
$06 — Akkumulator 
$07 — X-Register 

508 — Y-Register 

509 — Steckpointer (SP) 


Wichtig: Bereich $C000 bis $FFFF 
(Kernal-ROM) muß eingeblendet 
sein, da das System ansonsten un- 
kontrollierbare Funktionen aus- 
führt. 

Label: KEY 

Adresse: $FFYF / 65439 

Register: keine 

Prüft die Tastatur ab. Ist eine Taste 
gedrückt, wird deren ASCIV/DIN- 
Wert (je nach ASCIVYDIN-Modus) 
ermittelt und in den Tastaturpuffer 
geschrieben und erhöht ihn um 
eins. 

Label: LISTN 

Adresse: $FFBl / 65457 

Register: A 

Stellt das angesprochene, externe 
Gerät durch LISTEN auf Empfang. 
Im Akkumulator steht die Geräte- 
adresse. Die Zeichen müssen 
über CIOUT ausgegeben wer- 
den, UNLISTEN schaltet das ange- 
sprochene Gerät ab. 

Label: LKUPLA 

Adresse: $FF59 / 65369 

Register: A/ A,X,Y, Carry 
Speicher: $90, $B8—$BA 

Sucht nach der im Akkumulator 
enthaltenen logischen Filenum- 
mer. Ist das Carry gelöscht, ste- 
hen in: 
Akkumulator: logische Filenum- 
mer 

X-Register : Geräteadresse 
Y-Register : Sekundäradresse 

Ist das Carry-Flag gesetzt, war die 
gesuchte logische Filenummer 
nicht mit OPEN geöffnet. 

Label: LKUPSA 

Adresse: $FF5C / 65372 

Register: Y/ A,X,Y,Carıry 
Speicher: $90, $B8—$BA 

Sucht nach der im Y-Register ent- 
haltenen Sekundäradresse. Ist 
das Carry-Flag gelöscht, steht im 
Akkumulator die logische File- 
nummer und in X die Gerätenum- 
mer. Ist das Carry gesetzt, wurde 
die Geräteadresse im Y-Register$ 
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unter den geöffneten Kanälen 
nicht gefunden. 

Label: LOADSP 

Adresse: $FFD5 / 65493 
Register: X,Y 

Das mit SETNAM, SETLFS und 
SETBNK definierte File wird 
durch en die Adresse: X- 
Register = Low-Byte, Y-Register 
— san -Byte a 


Register: X,Y, Carry 

Führt dieselbe Funktion aus wie 
MEMTOP, nur das sich die Regi- 
ster auf die Speicheruntergrenze 
anstatt der Speicherobergrenze 
beziehen. 

Label: MEMTOP 

Adresse: $FF99 / 65433 

Register: X,Y, Carry 

Ist das Carry-Flag gelöscht (=0), 
so übergibt diese Routine dem Re- 
gister X den Low-Wert und dem 
Register Y den High-Wert der 
Speicherobergrenze. Ist das Car- 
ry-Flag gesetzt (=1), so schreibt 
diese Routine aus den Registern X 
den Low- und aus Y den Hich- 
Wert der Speicherobergrenze. 
Label: OPEN 

Adresse: $FFC0 / 65472 

Register: keine 

Öffnet die mit SETNAM, SETLFS 
und SETBNK definierte Datei. Erst 
nach diesem OPEN greifen 
CKOUT und CHKIN auf diese Da- 


tei zu. 
Label: PFKEY 
Adresse: $FF65 / 65381 
Register: A,X,Y 
 Belegt die Funktionstasten 


FI—F1l0 sowie Shift-RUN/STOP 
und HELP mit beliebigen Zeichen- 
ketten. Im Akku steht die Zero- 
Page-Adresse, die den Pointer auf 
dem Funktionstastentext beinhal- 
tet. Im X-Register steht die Funk- 
tionstastennummer (] bis 12) und 
im Y-Register die Länge der Zei- 
chenkette. 

Label: PHOENIX 

Adresse: $FF56 / 65366 

Register: keine 

Führt einen RESET durch. Der 
Computer startet, als ob er gerade 
neu eingeschaltet wurde. PHOE- 
NIX springt automatisch BOOT- 
CALL an. Die Kontrolle über den 
Rechner wird an das Bootsystem 
übergeben. 


> 
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Label: PLOT 

Adresse: $FFF0 / 65520 

Register: X,Y, Carry 

Ist das Carry gesetzt (=1), steht im 
X-Register: Aktuelle Cursorspalte 
Y-Register: Aktuelle Cursorzeile 
Ist das Carry gelöscht (=0), wird 
der Cursor an die entsprechende 
X/Y-Position (siehe oben) gesetzt. 
Label: PRIMM 

Adresse: $FF7D / 65405 

Register: keine 

Sämtliche Zeichen, die im Spei- 
cher nach diesem Aufruf stehen, 
werden so lange als Text auf dem 
aktuellen Ausgabegerät ausgege- 
ben, bis PRIMM ein „Null-Byte“ 
($00) findet. 

Label: RAMTAS 

Adresse: $FF87 / 65415 

Register: keine 

Software-RESET. Setzt Zero-Page, 
RS232- und Kassettenpuffer zu- 
rück. 

Label: READST 

Adresse: $FFB7 / 65463 

Register: A 

Nachdem READST angesprungen 
wurde, steht im Akkumulator das 
Statusbyte. 

Label: RDTIM 

Adresse: $FFEI / 65502 

Register: A,X,Y 

Liest die Systemuhr aus. Im Akku- 
mulator steht der Stundenwert, im 
X-Register steht der Minutenwert 
und im Y-Register die Sekunden. 
Label: RESET 

Adresse: $E000 / 57344 

Register: keine 

Versetzt den Commodore in den 
Einschaltmodus zurück. Die Kon- 
trolle erhält das Betriebssystem. 
Label: RESTOR 

Adresse: $FF8A / 65418 
Register: keine 

Initialisiert sämtliche Systemvek- 
toren in Adressen $0314 bis $0332. 
Danach springt RESTOR die Un- 
terroutine VECTOR mit gelösch- 
tem Carry an. 

Label: SAVESP 

Adresse: $FFD8 / 65496 
Register: A,X,Y 

Speichert einen beliebigen Spei- 
cherbereich unter den mit SET- 
NAM, SETBNK und SETLFS defi- 
nierten Bedingungen auf Kassette 
oder Diskette ab. Die Anfangs- 
adresse des abzuspeichernden 
Speicherbereichs muß in eine be- 


CNEESNSTERNOR FERN 


liebige Zero-Page-Ädresse ge- 
schrieben werden. Im Akkumula- 
tor steht die Speicherstelle dieser 
Adresse. Die Endadresse des an- 
gesprochenen Speicherbereichs 
errechnet sich aus: X-Register = 
Low-Byte und Y-Register = High- 
Byte. 

Label: SCRORG 

Adresse: $FFED / 65517 
Register: A,X,Y 

SCRORG schreibt die Werte des 
aktuellen Fensters in die Register: 
Akkumulator: Maximale Spalten- 
zahl 

X-Register : Anzahl der Spalten 
Y-Register : Anzahl der Zeilen 
Label: SECND 

Adresse: $FF93 / 65427 

Register: A 

Der Wert des Akkumulators wird 
nach LISTEN als Sekundäradres- 
se auf dem IEC-Bus ausgegeben. 
Label: SETBNK 

Adresse: $FF68 / 65384 

Register: A,Y 

Lädt oder eröffnet man eine Datei, 
muß vorher diese Routine ange- 
sprungen werden. Im Y-Register 
befindet sich der Konfigurations- 
index des Dateinamens, im Akku- 
mulator der des aktuellen Spei- 
cherbereiches. 

Label: SETLFS 

Adresse: $FFBA / 65466 
Register: A,X,Y 

Eröffnet Files mit der Konfigura- 
tion 

Akkumulator = logische Filenum- 
mer 

X-Register = Geräteadresse 
Y-Register = Sekundäradresse 
Die Registerwerte werden durch 
SETFLS nach $B8 bis $BA gespei- 
chert. 

Label: SETMSG 

Adresse: $FF90 / 65424 

Register: A . 

Speichert den Akkumulator in 
$9D. Ist das höchste Bit in $9D ge- 
setzt, gibt der Commodore 128 
Systemmeldungen aus, ist das 
höchste Bit = 0, werden System- 
meldungen verhindert. 

Label: SETNAM 

Adresse: $FFBD / 65469 
Register: A,X,Y 

Diese Routine muß angesprungen 
werden, bevor man eine Datei öff- 
net. Im Akkumulator steht die An- 
zahl der Zeichen des Filenamens, 


im X-Register steht der Low-Wert 
und im Y-Register der High-Wert 
der Adresse, ab der der Filename 
steht. Mit SETBNK muß man die 
notwendigen Pointer der Spei- 
cherkonfiguration setzen. 

Label: SETTIM 

Adresse: $FFDB / 65499 
Register: A,X,Y 

Setzt die IRQ-gesteuerte System- 
uhr ab Adresse $A0. 

Akkumulator = Stunden 
X-Register = Minuten 

Y-Register = Sekunden. 

Label: SETTMO 

Adresse: $FFA2 / 65442 
Register: A 

Setzt man Bit 7 des Akkumulators, 
bevor man SETTMO anspringt, 
wird der Timeout der IEEE-Routi- 
nen ermöglicht. Ansonsten sperrt 
der nach $0A0E geschriebene Ak- 
kumulator IBEE-Timeouts. 

Label: STOP 

Adresse: $FFEl / 65505 

Register: Zero 

Prüft die RUN/STOF-Taste. Wur- 
de die Taste betätigt, ist das Zero- 
Flag gesetzt (= 1), ansonsten löscht 
Unterprogramm STOP das Zero- 
Flag. Bei gesetztem Zero-Flag 
wird ein Sprung in CLRCH durch- 
geführt. 

Label: SWAPPER 

Adresse: $FF5F / 65375 

Register: keine 

Schaltet zwischen 40-Zeichen- auf 
80-Zeichen- und 80-Zeichen- auf 
40-Zeichen-Darstellung um. 
SWAPPER tauscht die Speicher- 
stellen $EO bis $FA mit $0A40 bis 
$0ASA. 

Label: TALK 

Adresse: $FFB4 / 65460 

Register: A 

Schaltet das unter der im Akkumu- 
lator vorhandenen Geräteadresse 


angeschlossene Gerät zum Äb- 
spielen seiner Informationen auf. 
Ende = UNTLK. 

Label: TKSA 

Adresse: $FF96 / 65430 

Register: A 

Sendet den IEC-BUS nach erfolg- 
tem TALK die Sekundäradresse 
im Akkumulator. 

Label: UDTIM 

Adresse: $FFEA / 65514 
Register: keine 

Inkrementiert die IRQ-gesteuerte 
Systemuhr um eine Einheit. 

Label: UNLSN 

Adresse: $FFAE/65454 

Register: keine 


dezimal hexdez Label 
19910 $4DC6 END 

57344 $E000 RESET 
49474 $C142 CLRWIN 
49482 $C150 CURHOM 
49752 $C258 GETLIN 
50989 $C72D BSOUTSCRN 
51069 $C7ID CLOIR 
65357 SFFAD C64MODE 
65350 $FF50 DMACALL 
65353 $FF53 BOOTCALL 
65366 $FF56 PHOENIX 
65369 $FF59 LKUPLA 
65372 $FFSC LKUPSA 
65375 $FFSF SWAPPER 
65378 $FF62 DLCHR 
65381 $FF65 PFKEY 
65384 $FF68 SETBNK 
65387 $FF6B GETCONF 
65390 $FF6E ISRFAR 
65393 $EF71 JMPFAR 
65396 $FF74 INDFET 
65399 $FF77 INDSTA 
65402 $FFZA INDCMP 
65405 $FFID PRIMM 
65409 $FF81 CINIT 
65412 $FF84 IOINIT 
65415 $FF87 RAMTAS 
65421 $FF8D VECTOR 
65424 $FF90 SETMSG 
65427 $FF93 SECND 
65430 $FF96 TKSA 


Sendet dem bisher angesproche- 
nen, externen Gerät Äbschaltbe- 
fehl (Unlisten). 

Label: UNTLK 

Adresse: $FFAB / 65451 
Register: keine 

Schaltet das bisher angesproche- 
ne externe Gerät ab (Untalk). 
Label: VECTOR 

Adresse: $FF8D / 65421 

Register: X,Y, Carry 

Ist das Carry-Flag gesetzt, kopiert 
VECTOR die Systemvektoren ab 
Adresse $0314 in den Bereich: 
LOW = X-Register, High = Y-Re- 
gister auf die Systemvektoren ab 
Adresse $0314. 


65433 $FF99 MEMTOP 
65436 $FFIC MEMBOT 
65439 $FFIF KEY 
65442 $FFA2 SETTMO 
65445 $FFAS ACPTR 
65448 $FFA8 CIOUT 
65451 $FFAB UNTLK 
65454 $FFAE UNLSN 
65457 $EFBIl LISTN 
65460 $FEFBA TALK 
65463 $FFB7 READST 
65466 $FFBA SETLFS 
65469 $FFBD SETNAM 
65472 SFFCO OPEN 
65475 $FFC3 CLOSE 
65478 SEFC6 CHKIN 
65481 $FFCI CKOUT 
65484 $SFFCC CLRCH 
65487 $FFCF BASIN 
65490 $EFD2 BSOUT 
65493 $FFDS LOADSP 
65498 $FFD8 SAVESP 
65499 $FFDB SETTIM 
65502 $FFDE . RDTIM 
65505 $FFELl STOP 
65508 $FFE4 GETIN 
65511 $FFE7 CLALL 
65514 $FFEA UDTIM 
65517 $FFED SCRORG 
65520 $FFFO PLOT 
65523 $FFF3 IOBASE 
uf 


Die Unterroutinen numerisch geordnet 
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Kennwort „Hungerhilfe Afriko“ 
Menschen in Not brauchen Hilfe: 


zuverlässig, schnell, wirksam. Die beiden kirchlichen 
Hilfswerke nehmen ihren Auftrag ernst. 
Deutscher Caritasverband E74 Fasl Diakonisches Werk 


Postgiro Karlsruhe 202 EG MER Postgiro Stuttgart 502 
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Z80-Programmiercodes 
im Überblick 


Bisher wurden Z80-Maschinenpro- 
gramme vernachlässigt. Grund: 
Der C64 besitzt eine 6502-Zentral- 
einheit und Zusatzkarten mit Z80- 
Prozessor sind teuer. Doch seit 
Commodore den I28'er, einen 
Computer mit Z80-Prozessor, an- 
bietet, interessieren sich immer 
mehr Computerbenutzer dafür, 
den Z80-Programmiercode zu er- 
lernen. Die Befehle des Z80: 

ADC Akkumulator,Operand 
Addiert Operand unter Berück- 
sichtigung des Carry-Bits zum Ak- 
kumulator und setzt, entspre- 
chend dem Ergebnis, die Prozes- 
sorregister. 

ADC HL,Operand 

Ähnlich ADC Akkumulator, Ope- 
rand, nur daß der Akkumulator 
durch das 16-Bit-Register HL er- 
setzt ist. 

ADD Akkumulator,Operand 
Ähnlich ADC Akkumulator, Ope- 
rand, jedoch wird das Carry-Bit 
nicht berücksichtigt. 

ADD HL,Operand 

Ähnlich ADC HL, Operand, je- 
doch wird das Carry-Bit nicht be- 
rücksichtigt. 

AND Operand 

Logische UND-Verknüpfung zwi- 
schen Akkumulator und Operan- 
den. Ergebnis steht im Akkumula- 
tor, Register sind dem Ergebnis 
entsprechend verändert. 

BIT Zahl, Operand 

Das Bit mit Nummer Zahl des Ope- 
randen wird: auf |=an oder 0=aus 
geprüft. Bei 1 ist das Z-Register 0, 
bei0=1. 

CALL Speicher 

Ahnelt dem Gosub-Befehl in Ba- 
sic. CALL spricht das Unterpro- 
gramm ab $Speicher an. 

CALL Bedingung,Speicher 
Springt nur dann das Unterpro- 
gramm in $Speicher an, wenn die 
gestellte Bedingung (Flags S-, Z-, 
A- und C-Tests möglich), erfüllt ist. 
CCF 

'Komplementiert das Carry-Bit. (0 
wirdzul, 1zud). 

CP Operand 

Vergleicht (ComPare) den Wert 
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Die Programmier- 
sprache Assembler 
(Maschinencode) ist 
abhängig vom ver- 

wendeten Mikro- 


prozessor. Folglich sind 
die Befehlswörter der 
Prozessoren 6502 
(Motorola) und Z80 
(Zilog) verschieden. 


des Operanden mit dem Wert des 
Akkumulators und setzt die Flags 
entsprechend dem Ergebnis. 
CPD 

Vergleicht den Akkumulator mit 
der Speicherstelle des 16-Bit-Regi- 
sters. Sind beide Werte gleich 
(das Ergebnis der Subtraktion 0), 
ist das Z-Flag gesetzt (=1). Ist der 
Akkuwert größer oder gleich dem 
Operanden-Inhalt, ist S=0. Anson- 
sten steht in S=1, von HL und BC 
werden der Wert ] abgezogen. 
CPDR 

Wiederholt die CPD-Anweisung, 
bis entweder Speicherstelle mit 
Adresse HL gleich dem Akkumu- 
lator-Wert oder BC = ist. 

CPI 

Anstatt von den Registern HL und 
BC den Wert 1 zu subtrahieren, 
erhöht der Z80-Prozessor den 
Wert dieser 16-Bit-Register um 
eins. Ansonsten ist CPI funktions- 
gleich zu CPD. 

CPIR 

Wiederholt so lange die CPI-An- 
weisung, bis entweder Speicher- 
stelle mit Adresse HL gleich dem 
Akkumulator-Wert oder BC = O0 
ist. 

CPL 

Invertiert die Bits des Akkumula- 
tors (aus 0 wird 1, aus 1 wird Ö). 
DAA 

Korrigiert falsche BCD-Werte im 
Akkumulator und Kontrollflags. 
DEC Operand 


een 


Dekrementiert den Operanden 
(zieht vom Wert des Operanden | 
ab). Verändert die Kontrollregi- 
ster nach Ergebnis. 

DI 

Der Z80-Prozessor ignoriert alle 
weiteren Interrupts bis El. 

DJNZ Zahl 

Dekrementiert B um eins und ver- 
gleicht den neuen Wert mit 0. Ist 
er größer, arbeitet das Programm 
an der aktuellen Adresse + Zahl 
weiter. 

EI 

Ermöglicht mit DI abgeschaltete 
Interruptsprünge. 

EX Operandl,Operand2 

Schreibt den Wert des Operan- 
den 1 in den Operanden 2 und 
den des Operanden 2 in den Ope- 
randen |. 

EXX 

Die Low-Bytes der 16-Bit-Register 
BC, DE und HL werden mit den 
High-Bytes dieser Register ver- 
tauscht. 

HALT 

Das Programm wartet auf den 
nächsten Interrupt. Wurde vorher 
ein DI gegeben, „stürzt" der Rech- 
ner ab. 

IM Zahl 

Gibt den Interruptmodus an: 

Zahl = 0: Wurde ein Interrupt ge- 
geben, steht im Datenbus der aus- 
zuführende Befehl. 

Zahl = 1: In Adresse $38 wird eine 
spezielle Interrupt-Routine ausge- 
führt. 

Zahl = 2: Der Z80-Prozessor arbei- 
tet ein Unterprogramm an der 
Adresse ab, deren Low-Byte im 
Datenbus und deren High-Byte im 
I-Register steht. 

IN Zahl, (C) 

Register C gibt den Port an, aus 
dem ein Byte in Register Zahl 
transferiert wird. 

INC Operand 

Erhöht den Wert des Operanden 
um. 

IND 

Ein Byte aus Port Nummer C-Regi- 
ster wird in die Speicherstelle un- 
ter HL transferiert. Die Werte in 


HL und B werden um eins dekre- 
mentiert. 
INDR 
Wiederholt die IND-Anweisung so 
lange, bis B=0 ist. 
INI 
Ein Byte aus Port Nummer C-Regi- 
ster wird in die Speicherstelle un- 
ter HL transferiert. Die Werte in 
HL und B werden um eins erhöht. 
INIR 
Wiederholt die INI-Anweisung so 
lange, bis B=0 ist. 
JP Speicher 
Ähnelt dem Basic-Befehl GOTO. 
Der Z80 arbeitet ab Speicherstelle 
(Speicher) weiter. 
JP Bedingung, Speicher 
Ahnelt dem Z80-Befehl CALL Be- 
dingung, Speicher, nur daß aus 
dem Unterprogramm keine Rück- 
kehr mit RET stattfindet. 
JP Operand 
Ab Adresse des Operanden ar- 
beitet das Programm weiter. 
JR Zahl 
Relativer Sprung: Springt zur in 
PC + Zahl festgelegten Adresse. 
JR Bedingung, Zahl 
Ähnelt JP Bedingung, Speicher, 
nur daß die Sprungadresse aus 
PC +Zahl ermittelt wird. 
LD Operandl,Operand2 
Transferiert den Inhalt des Ope- 
randen 2 in den Operanden |. 
LDD 
Transferiert den Inhalt der durch 
HL bestimmten Speicherstelle in 
die durch DE bestimmte Speicher- 
stelle. Danach dekrementiert LDD 
Werte des Register HL, DE und 
BG, 
LDDR 
Wiederholt die Z80-Anweisung 
LDD so lange, bis BC =0 ist. 
LDI 
Transferiert den Inhalt der durch 
HL bestimmten Speicherstelle in 
die durch DE bestimmte Speicher- 
stelle. Danach inkrementiert LDD 
die Werte des Register HL, DE 
und BC. 
LDIR 
Wiederholt die Z80-Anweisung 
LDI so lange, bis BC =0 ist. 
 HNEG 
Multipliziert den Akkumulator- 
- Wert mit (—1) = Vorzeichenwech- 
sel. 

NOP 
Wartet 2 Taktzyklen lang. 


OR Operand 

Logische ODER-Verknüpfung des 
Akkumulators und einem Operan- 
den. Das Ergebnis steht im Akku- 
mulator. 

OTDR 

Ahnelt der Z80-Anweisung INDR, 
nur daß der betreffende Wert 
ausgegeben (statt eingelesen) 
wird. 

OTIR 

Ähnelt der Z80-Anweisung INIR, 
nur daß der betreffende Wert 
ausgegeben (statt eingelesen) 
wird. 

OUT (C),Zahl 

Register C gibt den Port an, inden 
ein Byte aus Register Zahl transfe- 
riert wird. 

OUT (Zahl), Akkumulator 
Transferiert den Wert des Akku- 
mulators an Port Zahl. 

OUTD 

Ein Byte wird in Port Nummer C- 
Register aus der Speicherstelle 
unter HL transferiert. Die Werte in 
HL und B werden um eins dekre- 
mentiert. 

OUTI 

Ähnelt OUTD, jedoch werden 
Werte aus HL und B inkremen- 
tiert. 

POP Operand 

Lädt das Registerpaar des Ope- 
randen vom Stapel. 

PUSH Operand 

Legt das Registerpaar des Ope- 
randen auf den Stapel. 

RES Zahl, Operand 

Schreibt an die Zahlte Stelle des 
Operanden eine 0. 

RET 

Die mit CALL angesprungene 
Routine ist beendet und das Pro- 
gramm arbeitet an der Speicher- 
stelle nach dem CALL-Befehl wei- 
ter. 

RET Bedingung 

Beendet das Unterprogramm nur 
dann, wenn Bedingung erfüllt ist. 
RETI 

Rücksprung aus einer Interrupt- 
Routine (RTD). 

RETN 

Rücksprung aus einer MNI-Routi- 
ne. (RUN/STOP-RESTORE) 

RL Operand 

Rotiert alle Bits des Operanden 
um eine Stelle nach links. Das 7. 
Bit wandert ins Carry, im 0. Bit 
steht der ehemalige Carry-Wert. 
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Ähnelt dem RL Operand-Befehl, 
jedoch beeinflußt er nur das Car- 
ry-Kontrollregister. 

RLC Operand 

Ahnelt RL Operand, jedoch: Bit 0 
wird auf 0 gesetzt. 

RLCA 

Ähnelt RLC Operand, jedoch wird 
nur das Carry-Bit verändert. 

RLD 


Führt eine RL-Rotation im BCD- 
Modus durch. 

RR Operand 

Ahnelt RL Operand, jedoch wird 
nach rechts rotiert. 

RRA 


Entsprechend. 

RRD 

Führt eine RR-Rotation im BCD- 
Modus durch. 

RST Speicher 

Startet Unterprogramm ab Adres- 
se Speicher. 

SBC Akkumulator,Operand 
Subtrahiert Operand unter Be- 
rücksichtigung des Carry-Bits zum 
Akkumulator und setzt, entspre- 
chend dem Ergebnis, die Prozes- 
sorregister. 

SBC HL,Operand 

Ähnlich SBC Akkumulator,Ope- 
rand, nur daß der Akkumulator 
durch das 16-Bit-Register HL er- 
setzt ist. 

SCF 

Setzt Carry-Kontrollflag 
(=an). 

SET Zahl, Operand 
Schreibt an die Zahlte Stelle des 
Operanden den Wert | (=an). 
SLA Operand 

Schiebt die Bits des Operanden 
um eins nach links, Bit 7 wird ins 
Carry geschrieben, Bit 0 wird 0. 
SRA Operand 


auf 1 


Schiebt die Bits des Operanden 


um eins nach rechts, Bit 7 bleibt 
erhalten, Bit 0 kommt ins Carry. 
SRL Operand 

Schiebt die Bits des Operanden 
um eins nach rechts, Bit 7 wird 0, 
Bit 0 kommt ins Carry. 

SUB Operand 

Zieht vom Akkumulator den Wert 
des Operanden ab. Das Ergebnis 
steht im Akkumulator. 

XOR Operand 

Logische Exklusiv-Oder-Verknüp- 
fung des Akkumulators mit Ope- 
randen. Ergebnis Akkumulator. 


Sonderheft Up 21 


j 


Eee Tips und Tricks 


€16-116-Plus4: Das steht drin 


Man muß die Subroutines 


des C16/Plus4-Betriebssystems kennen, um diesen 
Computer effizient zu programmieren. 


ı) Wissen ist Macht! Getreu diesem Motto gibt RUN meln (SIN/TAN) berechnen: Alles steuert man mit 
ii] Einblick in die wichtigsten Speicherstellen zwischen diesen Adressen in denen Unterroutinen und Zwi- 
ii $0100 (=257) und $FF00 (=65280). schenspeicher des Betriebssystems liegen. 

Hl Speichergrenzen verschieben, mathematische For- vv HHiEEEEEEEEEHEEHHEE 


ı Label hexadezimal dezimal DOSLA $0276—$0276 00630—00630 
“ FBUFFR $0100--$010F 00256—00271 Logische Diskettensystem-Ädresse 
ii) Hilfszwischenspeicher: 15 Bytes DOSFA $0277—$0277 00631—00631 
ı SAVEA $0110—$0110 00272—00272 Geräteadresse 
N Hilfszwischenspeicher für DOSSA $0278—$0278 00632—00632 
| SAVEY $0111—$0111 00273—00273 Sekundäradresse 
Hi SAVE und DOSDID $0279—$027A 00633—00634 
H SAVEX $0112—$0112 00274—00274 ID-Nummer der Diskette 
RESTORE DIDCHK $027B—$027B 00635—00635 
ii COLKEY $0113—$0122 00275—00288 _ ID-Flag 
Hi Farb-/Luminanztabelle DOSSTR $0237C-$027C 00636—00636 
3 HZWO $50123—$0123 00290—00290 DOS-Schreibzwischenspeicher 
H Hilfszwischenspeicher DOSSPC $027D—$02AC 00637—00684 
en SYSSTK $0124--$01FF 00291—00511 Arbeitsspeicher des Diskettensystems 
Hl Systemstack: 220 Bytes XPOS $02AD--$02AE 00685—00686 
| BUF $0200—$0258 00512—00600 X-Achse des Grafik-Cursors 
a Basic/ Monitor-Eingabepuffer YPOS $02AF—$02B0 00687—-00688 
Hi OLDLIN $0259—$025A 00601—00602 Y-Achse des Grafik-Cursors 
N Basic-Zwischenspeicher 1 XDEST $02B1—$02B2 00689—00690 
hf OLDTXT $025B—$025C 00603—00604 Hilfsregister des Grafik-Cursors X 
ii Basic-Zwischenspeicher 2 YDEST $02B3—$02B4 00691—00692 
IN IN $025D—$02AC 00605—00684 Hilfsregister des Grafik-Cursors Y 
XABS $02B5—$02B6 00693—00694 
u Dieser Bereich wird vom Disketten- Hilfsregister 
En organisationssystem (DOS) genutzt: YABS $02B7—$02B8 00695—00696 
| XCNT $023D-—-$025D 0060500605 XSGN $02B9--$02BA 00697—00698 
| Diskettenbetriebssystem-Schleifenzwischen- Grafik — 
ı speicher YSGN $02BB—$02BC 00699—00700 
FNBUFR $025E—$026D 00606—00621 Routinen. 
Speicher für Filenamen FCTl $02BD—$02BE 00701—00702 
DOSFIL $026E—$026E 00622—00622 Dienen großteils 
Anzahl der Zeichen des Filenamens#1 FCT2 $02BF—$02C0 00703—00704 
DOSDSI1 $026F—$026F 00623—00623 als Variablen 
Laufwerk #1 — Nummer ERRVAL $02C1—$02C2 00705—00706 
DOSFI1A $0270—$0271 0062400625 für Grafikbefehle 
Adresse des Filenamen-Feldes#1 LESSER $0203—$02C03 00707—00707 
DOSF2L $0272—$0272 00626—00626 und 
Anzahl der Zeichen des Filenamens#2 GREATR $02C4-$02C04 00708—00708 
DOSDS2 $0273—$0273 00627—-00626 deren Werte. 
Laufwerk #2 — Nummer ANGSGN $02C5—$02C5 00709—00709 
DOSF2A $0274-8$0275 00628—00629 Zum Beispiel beinhaltet Winkelrichtung 
Adresse des Filenamen-Feldes#2 (Vorzeichen), 
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SINVAL 502C06--$02C7 
Sinuswert der Zahl, 
COSVAL $02C8-—$802C9 


und Cosinuswert der Zahl. 
ANGCNT $02CA--$02CB 


00710—00711 
00712—00713 
00714—00715 


Zwischenspeicher für Winkelberechnungen. 


III $02CC—$02E0 


00716—00736 


Dieser Speicherbereich wird mehrfach, von ver- 
schiedenen Routinen genutzt. Die Bedeutungen: 


YCENTR $02CE--$02CF 00718-007199 
und 

XDIST1 $02D0-$02D1 00720--00721 
steuern = 

YDISTI $02D2—$02D3 00722—00723 
den 

XDIST2 $02D4--$02D5 00724—-00725 
Grafikcursor 

YDIST2 $02D6-$02D7 00726—00727 
am 

HZW3 $02D8—$02D9 00728—00729 
Bildschirm 

COLCNT $02DA-$02DA 00730—00730 


Horizontale Zeichenzahl/Stelle 
ROWCNT $02DB—$02DB 
Vertikale Zeichenzahl/Stelle 


00731—00731 


HZW1 $02CC—$02CC 00716—00716 
Hilfszwischenspeicher 
BNR $02CD—$02CD 00717—00717 
Anfangspointer 
ENR $02CE—$02CE 00718—00718 
Endpointer 
DOLR $02CF—$02CF 00719—00719 
Dollarflag 
FLAG $02D0—$02DO 00720—00720 
Kommaflag 
SWE $02D1—$02D1 00721—00721 
Zählspeicher 
USGN $02D2—$02D2 00722—00722 
Vorzeichen Exponent 
UEXP $502D3—$02D3 00723—00723 
Exponentenzeiger 
VN 1... $02D4-8$02D4 00724--00724 
Anzahl der Zeichen vor dem Komma bei 
Ausgabe mit PRINT USING. 
CHSN $02D5—$02D5 00725—00725 
Fehler-Flag 
VF $02D6—$02D6 00726—00726 
Anzahl der Felder vor dem Komma bei 
Ausgabe mit PRINT USING. 
NF $02D7—$02D7 00727—00727 
Anzahl der Felder nach dem Komma bei 
Ausgabe mit PRINT USING. 

. POSP $02D8—$02D8 00728—00728 
Vorzeichenflag 
EESP $02D9-—$02D9 00729—00729 
Flag für Exponenten 
ETOF $02DA—$02DA 00730—00730 
Hilfsspeicher 
CFORM $02DB—$02DB 00731—00731 
Zeichenzähler 
SNO $02DC-$02DC 00732—00732 


Zeichennummerzwischenspeicher 


BLFD $02DD-—$02DD 00733—00733 
Flag: Ist Zeichen „" oder „x*"? 
BEGFD $02DE—$02DE 00734—00734 


Feldanfangszeiger (PRINT USING) 
LFOR $02DF—$02DF 
Formatlänge (PRINT USING) 


00735—00735 


ENDFD $02E0—02E0 00736—00736 
Feldendezeiger (PRINT USING) 

Weitere Bedeutungen dieses 
Speicherbereiches: 

XCENTR 8020C—$02CD 00716—00717 


Bestimmen 


MIT HONELONFOTERWORSSCEN, 


STRCNT $02DC—-$02DC 00732—00732 
Zeichenzähler allg. 

Weitere Bedeutungen des Speicherbereiches 
von $02CC bis $02E3: 

XCORDI $02CC--$02CD 00716—00717 
Zwischen- 

YCORDI $02CE—$02CF 00718—00719 
speicher 

BOXANG $02D0—$02D1 00720—00721 
zur Steuerung 

XCOUNT $02D2—$02D3: 00722—00723 
verschiedener 

YCOUNT $02D4$02D5 00724—00725 
Basic 3.5- 
BXLENG $02D6-$02D7 00726—00727 
Grafik- 

XCORD2 $02D8—$02D9 00728—00729 
befehle 

YCORD2 $02DA—$02DB 00730—00731 
(Variablen). 


Weitere Bedeutungen dieser Stellen: 


XCIRCL $02CC—$02CD 


00716—00717 


CIRCLE-Funktion: Der Zentrumspunkt, 


X-Achsenwert. 


YCIRCL $02CE—$02CF 


00718—00719 


CIRCLE-Funktion: Der Zentrumspunkt, 


Y-Achsenwert. 


XRADUS $02D0—$02D1 


00720—00721 


Wert des Radius in X-Achsenrichtung 


00722—00723 
00724—00725 
00726—00727 
00728—00729 
00730—00731 


YRADUS $02D2-$02D3 
Wert des Radius in Y-Achsenrichtung 
ROTANG $02D4—$02D5 
Rotationswinkel 

HZWA4 $02D6—$02D7 
Hilfsspeicher 

ANGBEG $02D8—$02D9 
Winkelvon... 

ANGEND $02DA—$02DB 
Winkelbis... 

XRCOS $02DC—-$02DD 


Cosinus-Wert des X-Radius 
YRSIN $02DE--$02DF 


Sonderheft ID 23 


00732—00733 
00734—00735 


> 


RESTE Tips und Tricks 


Sinus-Wert des Y-Radius 


XRSIN $02E0-—$02E1 00736—00737 
Sinus-Wert des X-Radius 

YRCOS $02E2—$02E3 00738—00739 
Cosinus-Wert des Y-Radius 


Die letzte Version, welche Bedeutungen dieser 
Speicherbereich hat: 


HZW5 502CC—-$02CC 00716—00716 
Hilfsspeicher 
KEYLEN $02CD-$02CD 00717—00717 


Tastatureingabe: Anzahl 
KEYNXT $02CE—$02CCE 
Aktuelles Eingabezeichen 
STRSZ $02CF—$02CF 
Länge des aktuellen Strings 


00718—00718 
00719—00719 


GETIYP $02D0—$02DO0 00720—00720 
Variable ändern 

STRPTR $02D1--$02D1 00721—00721 
Anzeige: Welcher String : 
OLDBYT $02D2—$02D2 00722—00722 
Zwischenspeicher-Grafikausgabe 

NEWBT $02D3—$02D3 00723—00723 
Nummer des neuen Strings 

HZW6 $02D4-$02D4 00724—00724 
Hilfszwischenspeicher 

XSIZE $02D5-$02D6 00725—00726 
Shape: Horizontales Maximum (Größe) 

YSIZE $02D7—$02D8 00727—00728 
Shape: Vertikales Maximum (Größe) 

XSAVE $02D9-$02DA 00729—00730 
Hilfszwischenspeicher 

STRADR $02DB--$02DC 00731—00732 
Shape: Stringvariable des Shapes 

BITIDX $02DD—$02DD 00733—00733 
Zwischenspeicher: Bitindex 

SAVSIZ $S02DE—$OZE1 00734—00737 
Zwischenspeicher 

HZW7 SO2E2—$02E3 00738—00739 
Zwischenspeicher 

CHRPAG $02E4—$02E4 00740—00740 
High Byte der Character-ROM Adresse 

BITCNT $02E5—$02E5 00741—00741 


GSHAPE-Befehl: Zwischenspeicher 


SCALEM $02E6--$02E6  00742—00742 
SCALE-Flag 
WIDTH $02E7—$02E7 00743—00743 
WIDTH-Flag 
FILFLG $02E8—$02E8 00744—00744 
BOX-Flag 
BITMSK $02E9—$02E9 00745—00745 
Zwischenspeicher 
NUMCNT $02EA—$02EA 00746—00746 
Zwischenspeicher 
TRCOFLG $02EB—-$02EB 00747—00747 
' TRACE-Flag: $00 bedeutet aus, $80 bedeutet 
aktiviert 
= 18 $02EC-$02EC  00748—00748 
_ Zwischen- 
Ta  $02ED-$02EE 00749--00750 
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speicher : 
VTEMP3 $02EF—$02EF 00751—00751 
für Grafikbefehle 
VTEMP4 $02F0—$02F0 00752—00752 


Parameteranzahl des Grafikbefehls 
VTEMP5 $02F1-—-$02F1 

Flag: l=relativ, O=absolut 
ADRAY| $02F2—$02F3 00754—00785 
Pointer auf die Umwandlungsroutine: 
Fließkomma in Integer 

ADRAY2 $02F4—$02F5 00756—00757 
Pointer auf die Umwandlungsroutine: Integer in 
Fließkomma 

USRSPC $02F6—$02FD 
Freiraum für eigene Pointer 


00753—00753 


00758—00768 


BNKVEC $02FE—$02FF 00766—00767 
Cartridge-Pointer - 
IERROR $0300-—$0301 00768—00769 


Zeigt auf die Fehlermelderoutine 


IMAIN $0302—$0303 00770—00771. 
Zeigt auf die Basic-Warmstartroutine 
ICRNCH $0304—8$0305 .00772—00773 


Zeigt auf die Token-Definierungsroutine 
IQOPLOP 50306—$0307 00774—00775 
Zeigt auf Keywort erzeugen-Routine 


IGONE $0308—$0309 00776—00777 
Zeigt auf die Ausgabe-Routine 
IEVAL $030A--$030B 00778—00779 


Zeigt auf Symbol Evaluation-Routine 
IESCLK $030C—$030D 00780—00781 
Zeigt auf User-Tokendefinition 
IESCPR $030E—$030F 
Zeigt auf Keywort editieren-Routine 


00782—00783 


IESGEX $0310—$0311 00784—00785 
Zeigt auf Token bearbeiten-Routine 

ITIME $0312—$0313 00786—00787 
Zeigt auf Interrupt Uhr steuern-Routine 

CINV $0314-$0315 00788—00789 
Zeigt auf Interrupt-Routine 

CBINV $0316—$0317 00790—00791 
Zeigt auf Break Interrupt-Routine 

IOPEN $0318-—$0319 00792—00793 
Zeigt auf OPEN-Routine 

ICLOSE $031A—$031B 00794-007935 


Zeigt auf CLOSE-Routine 

ICHKIN $031C—$031D 00796--00797 
Zeigt auf Kanal für Eingabe öffnen-Routine 
ICKOUT $031E—$H031F 00798—00799 
Zeigt auf Kanal für Ausgabe öffnen-Routine 


ICLRCH $0320—$0321 00800—00801 
Zeigt auf /O-Init-Routine 
IBASIN $0322—$0323 00802—00803 


Zeigt auf Zeichen einlesen-Routine 
IBSOUT $0324—$0325 00804—00805 
Zeigt auf Zeichen ausgeben-Routine 


ISTOP $0326—$0327 00806—00807 
Zeigt auf STOP-Taste prüfen-Routine 

IGETIN $0328—$0329 00808—00809 
Zeigt auf GETIN-Routine 


ICLALL $032A-5032B 00810—00811 
Zeigt auf alle Files schließen-Routine 


USRCMD $032C—$032D 00812—00813 
Zeigt auf BRK-Routine 

ILOAD $032E—$032F 00814—00815 
Zeigt auf die LOAD-Routine 

ISAVE $0330—$0331 00816—00817 
Zeigt auf die SAVE-Routine 

USRSPI $0332—$0332 00818—00818 
Hilfsspeicher 

TAPBUF $0333—$03F2 00819—01010 


Kassetten READ/WRITE-Puffer 


WRLEN $03F3—$03F4 01011—01012 
Zeichencounter bei WRITE 
RDCNT $03F85—$03F6 01013—01014 
Zeichencounter beiREAD . 
INPOUE $03F7—$0436 01015—01078 


RS232-Schnittstellenpuffer 

ESTAKL $50437—$0454 01079—01108 
Systemzwischenspeicher/ Arbeitsbereich Low 
ESTAKH $0455—$0472 01109—01138 
Systemzwischenspeicher/Arbeitsbereich High 
CHRGET $473—$0478 01139—01144 
Zeichen von Basic-Text einlesen-Routine 
CHRGOT $0479—$0484 01145—01156 
letztes, mit CHRGET eingelesenes Zeichen 
nochmals einlesen. 

QONUM $0485—$0493 01157—01171 
Zwischenspeicher für RS232-Handling 

INDSUB $0494—$04Al 01172—01185 
ROM/RAM Umschaltroutine 


ZERO $04A2—$04A4 01186—01188 
Basic-Hilfsspeicher 

INDTEXT $04A5—$04AF 01189—01199 
Textpointer 

INDIN] $04B0—$04BA 01200—01210 
Index#0 und #1 

INDIN2 $04BB—$04C5 01211—01221 
Index #2 

INDSTI $04C6—$04DO 01222—01232 
String#1 

INDLOW $04D1—$04DB 01233—01243 
Hilfsspeicher 

INDFMO $04DC—$04E6 01244—01254 
Fließkommaakkumulator-Speicher 

PUFILL $04E7—$04E7 01255—01255 
Hilfs- 

PUCOMA $04E8—$04E8 01256—01256 
speicher 

PUDOT $04E9—$04E9 01257—01257 
der : 

PUMONY $04EA—$04EA 01258—01258 
PRINT USING-Anweisung 

TMPDES $04EB—$04EE 01259—01262 
Variable der INSTR-Routine 

ERRNUM $04EF—$04EF 01263—01263 


Der Nummerncode des zuletzt aufgetretenen 
Fehlers 
ERRLIN 


$04F0—$04F1 01264—01265 


WE MONSTER SEI 


Zeilennummer, in welcher der letzte Fehler 
auftrat 


TRAPNO $04F2—$04F3 


01266—01267 


Zeilennummer, zu der das Programm verzweigt, 


wenn ein Fehler auftritt 
TMPTRP $04F4—$04F4 01268—01268 
Fehlernummer kurzzeitig zwischengespeichert 


ERRTXT $04F5—$04F6 01269—01270 
Pointer auf Adresse, in der die Fehlermeldung 
(Text) steht 

OLDSTK - $04F7—$04F7 01271—01271 


Hilfsspeicher zur Fehlerbehandlung 


TMPTXT $04F8—$04F9 01272—01273 
zuletzt benutzter Basic-Text 
TMPLIN $04FA—$04FB 01274—01275 
zuletzt benutzte Basic-Zeile 

MTIMLO $SOAFC—$04FD _01276-01277 
Interrupt-Uhr Hilfsspeicher Low : 
MTIMHI SOAFE—$O4FF 01278—01279 
Interrupt-Uhr Hilfsspeicher High 

USRPOK $0500-—$0502 01280—01282 
Basic-Hilfsspeicher 

RNDX $0503—$0507 01283—01287 
Zufallszahl 

DEJAVU $0508—$0508 01288—01288 
Flag für Kalt-/Warmstart 

LAT $0509-—$0512 01289—01298 


In diesem Speicherbereich befindet sich die Ta- 
belle der logischen Filenummern aller gerade 
geöffneten Dateien. 

FAT $0513—$051C 01299—01308 
In diesem Speicherbereich befindet sich die Ta- 
belle der Gerätenummern aller gerade geöffne- 
ten Dateien. 

SAT $051D-—$0526 01309—01318 
In diesem Speicherbereich befindet sich die Ta- 
belle der Sekundäradressen aller gerade geöff- 
neten Dateien. 

KEYD $0527—$0530 01319—01328 
Tastaturpuffer: Maximal 10 Zeichen, 


MEMSTR $0531—$0532 01329—01330 
Zeiger auf Basic-Anfang 

MSIZ 50533—$0534 01331—01332 
Zeiger auf Basic-Ende 

TIMOUT $0535—$0535 01333—01333 
IEEE Timeout-Flag 

FILEND $0536—$0536 .01334—01334 


Ist das Ende eines Files erreicht, so steht in die- 
ser Speicherstelle der Wert 01, ansonsten steht 
dort 00. 

CTALLY - $0537—$0537 01335—01335 
Anzahl der Zeichen im Puffer, die noch ausgele- 
sen werden 


CBUFVA 5053830538  01336--01336 
Anzahl aller Zeichen im Puffer 
TPTR 50539-805399 01337--01337 


Pointer: Zeigt auf das nächste aktuelle Zeichen 
im Puffer 
FLTYPE 


$053A—$053A 01338—01338 
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grammes der Datasette an 
COLOR $053B—$053B 


Gibt den File-Typ des gerade bearbeiteten Pro- 


01339—01339 


Attribut-Byte der COLOR-Anweisung 


FLASH 

Flag für FLASH. 
USRFRE $053D—$053D 
Frei nutzbar für Anwender 
HIBASE $053E—$053E 
Zwischenspeicher der 

XMAX $053F—$053F 
Bildschirmausgabe 

RPTFLG $0540-—$0540 


$053C—$053C 


01340—01340 
01341—01341 


- 01342—01342 


01343—01343 
01344—01344 


Gibt an, welche Tasten mit automatischer RE- 
PEAT-Funktion ausgestattet sind: $00= =üblich, 


$40=keine, $80=alle 
KOUNT $50541—$0541 
Counter für die 

DELAY $0542—$0542 
REPEAT-Funktion 

SHFLAG $0543—$0543 


Gibt an, ob SHIFT in Funktion ist. 


LSTSHF $0544—$0544 
Letztes Zeichen in SHIFT-Mode 
KEYLOG $0545—$0546 
Zeigt auf die KEYLOG-Routine 


01345—01345 
01346—01346 
01347—01347 
01348—01348 
01349—01350 
01351—01351 


01352—01352 
01353—01353 


01354—01354 
01355—01355 


01356—01358 
01359—01359 
01360—01360 
01361—01361 
01362—01362 
01363—01363 
01364—01364 
01365—01365 
01366—01366 
01367—01367 
01368—01368 
0136901369 


MODE $0547—$0547 
Flag: Gibt an, ob sich der Computer im Text- 
oder Grafikmodus befindet. 
AUTODN $0548—$0548 
Scroll-Flag: bei 0=aktiviert 
LINTMP $0549—$0549 
Basic-Zwischenspeicher 
ROLFLG $0S4A—$054A 
FORMAT $054B—$054B 
TEDMON-Zwischenspeicher 
MSAL $054C—$054E 
Zwischenspeicher 
WRAP $054F—$054F 
des 
TMPC ; $0550—$0550 
CPU 7501- 
DIFF $0551-—$0551 
Mikroprozessors 
PCH $0552—$0552 
Program Counter High 
PCL 50553—$0553 
Program Counter Low 
FLGS $0554-$0554 
Flags: Zero, negativ, Carry, etc. 
ACC $0555—$0555 
Akkumulator 
XR $0556—$0556 
X-Register 
YR $0557—$0557 
Y-Register 
SP = $0558—$0558 
 Stackpointer 
INVL —_ $0559--$0559 
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Weitere Prozessor- 


INVH $055A—$055A 013720-—01370 
hilfsregister 
CMPFLG $055B—$055B 01371—01371 


Zwischenspeicher Vergleichsroutinen 


BAD $0550C—$055C 01372—01372 
Fehlerflag 
KYNDX $055D—$055D 01373—01373 


Nummer der aktuellen Funktionstaste 

KEYIDX $055E—$055E 0137401374 
Zeiger auf den Text der aktuellen Funktionstaste 
KEYBUF $055F—-$0566 01375—01382 
Tabelle der Funktionstasten: Zeigt die Länge der 
einzelnen Texte an. 

PKYBUF $0567—$05E6 01383—01510 
Texte der einzelnen Funktionstasten 


KDATA :$08E7—$05E7 01511—01811 
KDYCMD :$05E8—$05E8 01512—01512 
KDYNUM :$098E9—$05E9 01513—01513 
KDYPRS :$05EA—$05EA 01514—01514 
KDYTYP :$05EB—$05EB 01515—01815 
SAVRAM :$05EC—$06EB 01516—01771 


Dieser Speicherbereich (eine Speicherseite) 
wird von BANKING-Routinen belegt und genutzt. 


PAT $05EC—$05EF 01516—01519 
Adreßtabelle 

LNGJMP $05F0—$05F1 01520—01521 
Long Jump Adresse 

FETARG $05F2—$05F2 01522—01522 
Long Jump Akkumulator 

FETXRG $05F3—$05F3 01523—01523 
Long Jump X-Register 

FEXTSRG $05F4—$05F4 01524—01524 
Long Jump Status Register 

AREAS $05F5—$065D 01525—01629 
RAM-Speicherbereich der BANKING-Routinen 
ASPECH $065E—$06EB 01630—0177]1 
RAM-Freier Bereich 

STKTOP $06EC—-$07AF 01772—01967 
Basic-Pseudo Stack 

WROUT $507B0—$07BO 01968—01968 


Aktuelles Byte, das auf Datasette geschrieben 
wird 


PARITY $07B1—$07Bl 01969—01969 
Zwischenspeicher bei Berechnungen (Parity) 
TTI $07B2—$07B2 01970—01970 
Zwischenspeicher für 

FT2 $07B3—$07B3 01971—0197] 
die HEADER-Routine 

USRFR2 $507B4—$07B4 01972—01972 
Frei für Benutzersoftware 

RDBITS $07B5--$07B5 01973—01973 
Indexspeicher für READBYTE-Routine 

ERRSP. $07B6—$07B6 01974—01974 
Fehler Stack Pointer 

FPERRS $07B7—$07B7 01975—01975 
Nummer des ersten Fehlers 

DSAMPI $07B8—$07B9 01976—01977 
Zeitkonstante : 


DSAMP2 $07BA—$07BB 

Zeitkonstante 

ZCELL $07BC--$07BD 
. Zeitkonstante 

SRECOV $07BE—$07BE 

STOPKEY-Flag 

DRECOV $07BF—$07BF 

DROPKEY-Flag 

TRSAVE $07C0—$07C3 

RDBLOCK-Flag 

RDETMP $07C4-$07C4 

Zwischenspeicher 

LDRSCN $07C5—$07C5 

Zeitspeicher 

CDERRM $07C6—$07C6 

Fehler bei der letzten 

Kassettenoperation 

VSAVE $07C7—$07C7 


0197801979 
0198001981 
0198201982 
0198301983 
0198401987 
0198801988 
01989--01989 
01990--01990 


01991—01991 


Zwischenspeicher des VERIFY-Befehls 


"TIPIPE $07C8—$07CB 
Tl-Zwischenspeicher 

ENEXT $07CC—$07CC 
Flag für Lesefehler 

UOUTO $07CD—$07CD 
Aktuell zu sendendes Byte 
UOUTFG $07CE—$07CE 


01992—01995 
01996—01996 
01997—01997 
01998—01998 


Pufferflag für UOUTQ: 00=leer, 0l=voll 


SOUTQ $07CF—$07CF 


Systembyte, das gesendet wird 


SOUNFG $07D0—$07D0 


0199901999 
02000—02000 


Pufferflag für SOUTQ: 00=leer, Ol=voll 


INOFPT $07D1-—$07D1 
Pointer auf RS232-Pufferanfang 
INORPT $07D2—$07D2 
Pointer auf RS232-Pufferende 
INOCNT $07D3—$07D3 


02001—02001 
02002—02002 
02003—02003 


Anzahl der Zeichen im RS232-Puffer 


ASTAT $07D4—$07D4 
Statusspeicherstelle von ACIA 
AINTMP $07D5—$07D5 


02004—02004 
02005—02005 


Zwischenspeicher der INPUT-Routine 


ALSTOP $07D6--$07D6 
Flag für STOP 

ARSTOP $07D7—$07D7 
Flag für CTRL-S 

APRES $07D8—$07D8 
ACIA-Flag 

KLUDES $07D9--$07AE 
Zwischenspeicher des Systems 
SCBOT $07E5—$07E5 
Unterer Rand des Bildschirms 
SECTOR $07E6—$07E6 
Oberer Rand des Bildschirms 
SCLF $07E7—$07E7 
Linker Rand des Bildschirms 
SCRT $07E8—$07E8 
Rechter Rand des Bildschirms 
SCRDIS $07E9-$07E9 


Scroll-Flag: $00=ein, $80=aus 


WENSSNESSHFITERRITLD FIR 


02006--02006 
0200702007 
0200802008 
0200902020 
0202102021 
0202202022 
0202302023 
0202402024 


02025—02025 


INSFLG $SOTEA-S0TEA 

INSERT-Flag: $00=kein Einfügen, $80=auto- 
matisches Einfügen - 
LSTCHR $07EB—$07EB 02027—02027 
ESC-Flag: ESC-Code=27 EB 
LOGSCR $07ZEC—$0OTEC 02028—02028 
Zwischenspeicher der 

TCOLOR $07ED—$07ED 02029—02029 
Bildschirmroutinen 

BITABL $07EE—$07F1 02030—02033 
Umrechnungstabelle 

SAREG  . $07F2—$07F2 02034—02034 
Akkumulator bei SYS-Befehl 

SXREG $07F3—$07F3 02035—02035 
X-Register bei SYS-Befehl 

SYREG $07F4—-$07F4 02036—02036 
Y-Register bei SYS-Befehl 

SPREG $07F5—$07F5 02037—02037 
Status Register bei SYS-Befehl 

LSTX $07F6—$07F6 02038—02038 
Indexregister bei Tastaturabfragen 

STPDSB $07F7—$07F7 02039—02039 


CTRL-S Flag: Steht hier $00, so wirkt CTRL-S, 
steht $06 in STPDSB, so ist die CTRL-S Funktion 
gesperrt. 


RAMROM $07F8—$07F8 02040—02040 
Steht hier $00, liest TEDMON aus dem ROM, bei 
$01 liest er aus dem RAM 

COLSW $07F9—$07F9 02041—02041 
Flag der Farb/Luminanz-Tabelle 

FFRMSK $07FA—$07FA 02042—02042 
ROM-Maske der Bildschirmsteuerung 

VMBMSK $07FB—$07FB 02043—02043 
VM-Maske der Bildschirmsteuerung 

LSEM $07TFC—$07FC 02044—02044 
Steuert den Datasettenmotor 

PALCNT $07FD—$07FD 02045—02045 
PAL-Register 

USRFR2 $07FE—$07FF 02046—02047 
Frei nutzbarer Speicher 

TEDATR $0800—$0BFF 02048—03071 
Farbspeicher im Textmodus 

TEDSCN $0C00—$0OFFF 03072—04095 
Bildschirmspeicher im Textmodus 

BASBGN $1000-—$. . .. 04096—..... 
Basic-Start im Textmodus 
BMLUM $1800—$1BFF 06144—07167 
Luminanztabelle im Grafikmodus 

BMCOLR $1C00--$1FFF 07168—08191 
Farbtabelle im Grafikmodus 

GRBASEO $2000—..... 08192—..... 
Grafikbildschirm (nur Grafikmodus) 

GRABSEI $4000-—..... 18384—..... 
Basic-Start im Grafikmodus 

CHRBAS $D000 53248 
Zeichensatz-ROM 

TED $FF0O 65280 


Beginn der TED (Chip 7360-Text-Display)- 
Register 
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een. Tips und Tricks 


Von ® auf 255: 
Nulliseite des €16 


ir Wichtige Subroutinen des Basic-Interpreters und 
I) des Diskettenbetriebssystemes nutzen intensiv Speicher- 


Basic-Speicheranfang, zuletzt bearbeitete Pro- 
grammzeile oder zuletzt benutzter String: In der Null- 
seite des C16 ist alles gespeichert. Denn dort stehen 
alle Zwischenspeicher, die der Computer besonders 


Label Adresse Funktion 
H PDIR $00—$00 Datenrichtungsregister 
I 000—000 des Prozessors 7501. 
1 PORT $501—$01 Input/Output-Register 
001—001 des 7501 
SRCHTK $02-$02  Schleifen- 
002—002 flag 
H ZPVECI $03—$04 Neue Startadresse bei 
| 003—004 RENUMBER-Anweisung 
ZPVEC2 305-$06 Schrittweite der RE- 
005—006 NUMBER-Anweisung 
CHARAC 5$07-$07 Beinhaltet gesuchtes 
007—007 Zeichen (=Character) 
ENDCHR $08—$08 Flag für Hochkomma- 
008—008 modus 
TRMPOS $09-$09 Wert des letzten 
009-009 2 TABulatorschrittes 
VERCK $0A—$0A Flag: Bei0 = LOAD, 
010—010 beil= VERIFY 
COUNT $0B--$0B Eingabepufferzeiger/ 
011-011 Zahl der Elemente 
DIMFLG - $0C-$0C Flag bei Normal- 
012-012 DIMensionierungen 
VALTYP $0D--$0D Datentypflag: $FF= 
013—013 String, $00=Numerisch 
INTFLG $0E-$0E Datentypflag: $80= 
014—014 INT, $00=Fließkomma 
DORES $0F—$0F Flag für DATA, LIST, 
015-015 Garbage Collection 
SUBFLG 810-$10 Flagfür FN (x)- 
016-016 Anweisungen 
INPFLG $11—$11 Flag: $00=INPUT, 
017—017  $40=GET, $98=READ 
TANSGN $12-$12 Vorzeichen bei Basic- 
018—018 Funktion ATN. 
CANNL $13-$13 Flag: 
019-019 INPUT-Prompt 
LINNUM $14-$15 64K-Adresse für 
5 020—021 internen Gebrauch 
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oft nutzt und entsprechend wichtig sind. Man muß 
nur wissen, welche Unterprogramme auf den Spei- 


cher zugreifen... 


DW EEE EEE EESELETENEE TE EEE 


TEMPPT 
LASTPT 
TEMPST 
INDEX] 
INDEX2 
RESHO 
RSMOH 
RESMO 
RESLO 
TXTTAB 
VARTAB 
: ARYTAB 
STREND 
FRETOP 
FRESPC 
MEMSIZ 
CURLIN 
TXTPTR 
FNDPNT 
DATLIN 
DATPTR 


$16—$16 
022—022 
$17—$18 
023—024 
$19—$21 
025—033 
$22—$23 
034—035 
$24—$25 
036—037 
526/038 
327/039 
528/040 
329/041 
$2A/042 
$2B—$2C 
043—044 
$2D—$2E 
045—046 
$2F—$30 
047—048 


.$31—$32 


049-050 
833-834 
051-052 
$35—-$36 
053084 
$37—$38 
085-086 
$39-$3A 
087-058 
$3B—$3C 
059-060 
$3D—$3E 
061-062 
$3F$40 
063-064 
$41-$42 
065-066 


stellen im Bereich von 0 bis 255. Ändert man diese Speicher- 
stellen sinnvoll ab, erzielt man mit wenig Einsatz 
in Basic und Assembler viel Wirkung. 


Pointer austemp. 
Stringstapel 
Zuletzt benutzter 
temp. Stringvektor 
Stapel für temp. 
Strings 

Hilfs- 

pointer 1 

Hilfs- 

pointer 2 
Speicherbereich 
für 

Produkt 

bei 
Multiplikationen 
Pointer aufden 
Basic-Anfang 
Pointer auf den 
Variablen-Anfang 
Pointer auf 
Array-Anfang 
Pointer auf 
Array-Ende+1 
Pointer auf 
String-Speicher 
Hilfspointer 

zur Stringverarbeitung 
Pointer auf 


"Basic-Speicher Ende 


Gerade bearbeitete 
Basic-Zeilennummer 
Pointer auf 
Textausgabe 

Pointer für CONT= 
Zeile bei Abbruch 
Zeilennummer der 
aktuellen DATA-Zeile 
Adresse des aktuellen 
DATA-Zeichens 


j 
| 


INPPTR 
VARNAM 
VARPNT 
FORPNT 
OPPTR 
OPMASK 


DEFPNT 
DSCPNT 


HELPER 
JMPER 
SIZE 
OLDOV 
TEMPFI 
HIGHDS 
HICHTR 


LOWDS 
LOWTR 
EXPSGN 
FACEXP 
FACHO 
FACMOH 
FACMO 
FACLO 
FACSGN 
SGNFLG 
BITS 
ARGEXP 
ARCGHO 
ARGMOH 
ARGMO 
ARGLO 
ARGSGN 
ARISGN 
FACOV 
FBUFPT 
AUTINC 
MVDFLG 


'KEYNUM 
KEYSIZ 


$43—$44 
067-068 
$45-—$46 
069-070 
$47—$48 
071-072 
$49—$4A 
073—074 
$4B--$4C 
075-076 
$4D--$4D 
077—077 
$4E—$4F 
$50-—$51 
$52—$52 
$53—$53 
$54-—$54 
$55-—$55 
$56--$56 
$57—$57 
358-859 
$5A—$5B 
$5C-$5C 
$5D--$5E 
$5F—$5F 
$60--$60 
$61--$61 
097-097. 
$62-—-$62 
$63—$63 
46464 
$65—$65 
$66--$66 
102—102 
$67-$67 
103—108 
$68—$68 


104—104 


369-569 
105—105 
$6A—$6A 
$6B—$6B 
$6C—$6C 
$6D—$6D 
$6E—$6E 
110—110 
$6F—$6F 
111-111 
$70—$70 
112—112 
$71—$72 
113—114 
$73—$74 
115—116 
$75—$75 
117—117 
$76—$76 
$77—$71 


Vektor für 
INPUT 


"Gerade benutzte 


Variable 

Adresse der aktuellen 
Variable 

FOR-NEXT Schleifen: 
Variablenpointer 
Hilfs- 

pointer 
Zwischenspeicher für 
Zeichenvergleiche 
078—079 Diverse 
080—081 Hilfs- 
082—082 pointer 
083—083 Grafik 
084—084 Pointer 
085—085 für versch. 
086—086 Funktionen 
087—087 Bereich 
088—089 für 

090—091 ver- 
092—092 schiedene 
093—094 nume- 
095—095 rische 
096—096 Operationen 
Exponent des 
Fließkommaace. 1 
098—098 Mantisse 
099—099 des 
100—100 Fließkomma- 
101—101 acc. 1 
Vorzeichen des 
Fließkommaacce. 1 
Flag für 
Polynomberechnung 
UÜberlauf des 
Fließkommaacce. 1 
Exponent des 
Fließkommaacce. 2 
106-106 Mantisse 
107—107 des 
108—108 Fließkomma- 
109—109 acc. 2 
Vorzeichen des 
Fließkommaacc. 2 
Vorzeichenvergleich 
zwischen Accl und Acc2 
Low-Stelle des 
Fließkommaacc. 1 
Pointer für Kassetten- 
pufferlänge 
Zeilennummerinc. 
bei AUTO-Befehl 
Flag für 

Grafik 

118-118 Ein- und 
119—119 Ausgabe 


ER SOWECENFIERWOTI TER 


SYNTMP 
DSDESC 


TOS 


TMPTON 
VOICNO 
RUNMOD 
POINT 
GRAPHM 
COLSEL 
MC1 

FG 
SCXMAX 
SCYMAX 


LTFLAG 


RTFLAG 
STOPNB 
GRAPNT 
VTEMPI 
VTEMP2 
STATUS 
STKEY 
SPVERR 
VERFCK 
C3PO 
BSOUR 
XSAV 
LDTNT 
DFLTN 
DELTO 
MSGFLG 
SAL 
SAH 
EAL 
EAH 

Tl 

T2 

TIME 
R2D2 


TPBYTE 


$78—$78 
$79—$7B 
121—123 
$7C—$7D 
124—125 
$7E—$7F 
$80—$80 
$81—$81 
$82—$82 
$83—$83 
384584 
$85—$85 
$86—$86 
$87—$87 
$88—$88 


389-889 


$BA—$8A 
$8B—$8B 
$8C—$8D 
$8E—$8E 
S8F—$S8F 
SI0-$%0 
144—144 
$91—$91 
145—145 
$92—$92 
$93—$93 
394—$94 
148—148 
$95—$95 
149—149 
$96—$96 
150—150 
$97—$97 
151—151 
$98—$98 
152—152 
$99—$99 
153— 1893 
SIA—$I9A 
154— 154 
$9B—$9B 
185—155 
$9C—$9C 
156—156 
$9D—$9D 
157—197 
$9E—$9E 
158—158 
SIF—$AO 
159—160 
$Al—$A2 
161—162 
SA3—$AS 
163—165 
$A6-$A6 
166—166 
$A7—$A7 


120—120 Speicher 
Beinhaltet SE 
Variable DS$ 

Hilfspointer RROSRR 
für Basic Be 
126—126 Hilfs- 
128—128 speicher 

129—129 für 

130—190 ver- 

131—131 schiedene 
132—132 Sound- 
193—133 an- 

134—134 wei- 

135—135 sungen 

136—136 des 

137—137 C16- 
138—138 Basics: Ex ln 
139—139Steue- 
140—141 rung 

142—142 vom 

142—143 TED, 

Status- 

pointer für ST 

Flag für 

RVS/STOP-Taste 

146—146 Hilfs- 

147—147 speicher 

Flag für 

Ausgabe ser. Bus 
Speichert Zeichen 

von/für ser. Bus 

Hilfs- 

speicher 

Beinhaltet die Zahl 
geöffneter Dateien 
Nummer des 
Eingabegerätes 

Nummer des 
Ausgabegerätes 

Flag: $80= Direktmode 
$00=Programmode 
Kassetten- 

puffer- und 

Scroll- 

pointer 

Pointer 

auf 

Basic- 
Programmende 

Zwischen- 

speicher 1 

Zwischen- 

speicher 2 

Echtzeit- 

uhr 

Register 1 für 

seriellen Bus 


Register für 
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SCB-$CB 


167—167 Kassettenroutine QOTSW Flag für Hochkomma- 
BSOUR1 $A8-$A8 Register 2 für 203—203 mode ($00=aus, $OF=ein) 
168-168 seriellen Bus SEDTI $CC-$CC Länge der aktuellen 
FPVERR $A9-$A9 Zwischenspeicher 204—204 Bildschirmzeile 
169-169 für Farbvektor TBLX $CD--$CD Cursor- 
DCOUNT $AA-$AA Register 2 für 205—205 zeile 
| 170—170 Kassettenroutine DATAX S$CE-S$CE Zuletzt transferiertes 
| FNLEN $AB-$AB Zeichenlänge des 206-206 Zeichen 
| ; 171-171 _ akt. Filenamens INSTR $CF—-$CF Insertmode: 
| LA $AC-$AC Aktuelle 207—207 letztes Zeichen 
| 172—172 logische Filenummer $D0-$D7 208—215 Frei für 
| SA $AD-$AD Aktuelle $D8-$E8 216-232 andere Zwecke. 
| 173—173 Sekundäradresse CIRSEG $E9Y-$E9 Arbeits- 
| FA $AE-$AE Aktuelle 233—233 speicher 
| . 174-174 Geräteadresse USER $EA-$EB Bildschirm- 
| FNADR $AF-$BO Pointer 234—235 editor 
| 175—176 aufden Filenamen KEYTAB $EC-$ED Tabulator 
ERRSUM $B1-$Bl Hilfsspeicher der 236—237 speicher 
| 177-177 Fehlerroutine TMPKEY $EE-$EE Arbeits- 
| STAL $B2-$B2 Input-/ 238—238 speicher 
| 178-178 Output NDX $EF—$EF Zeichenzahl im 
| STAH $B3—$B3 Start- 239—239 Tastaturpuffer 
| 179-179 adresse STPFLG $FO—-$FO CTRL-S Flag: 
| MEMUSS %$B4-$B5 Pointer der aktuellen 240—240 ungleich 0: Prg. hält 
| 180-181 Ladeadresse TO $F1—-$F2  Hilfsregister für 
TAPEBS $B6-$B7 Pointer der akt. 241-242 TEDMON 
| 182-183 Ladeendadresse CHRPTR $F3—$F3 Hilfs- 
| TEMP2 $B8-$B9 Hilfs- 243—243 speicher 
| 184-185 speicher BUFEND $F4-$F4 Hilfs- 
| WERBAS $BA-$BB Pointer auf 244-244 speicher 
186—187 Kassettenpufferzeichen CHKSOM $F5—$F5 Prüfsummen- 
| IMPARM $BC-$BD Hilfs- 245—245 register 
| 188—189 speicher LENGTH $F6-$F6 Hilfs- 
FETPTR $BE-$BF Register benutzt von 246—246 speicher 
190-191 derLONG-FETCH Routine PASS $F7—-$F7 Hilfs- 
SEDSAL $C0-$C1 Scroll- 247—247 speicher 
192-193 _ register TYPE $F8—-$F8 Zwischen- 
RVS $C2-$C2 RVS- 248—248 speicher 
194-194 flag - USEKDY $F9-$F9 Zwischen- 
INDX $Cc3—$C3 INPUT- 249-249 speicher 
195—195 Pointer XSTOP $FA—$FA Register für 
LSXP $04-$C4 X-/Y- 250—250 X- und STOP-Taste 
196—196 Position CURBNK $FB-$FB Aktuelle Speicher- 
LSTP $C5-$C5 des Cursors 251—251 konfiguration 
? 197—197 beilINPUT XON $FC-$FC Hilfsregister 
SFDX $C6-$C6 gedrückte Taste 252—252 für RS232 
198-198  ($40=keine) XOFF $FD-$FD Hilfsregister 
CRSW $C7-$C7 Eingabe Flag: 253—253 für RS232 
199—199  Bildschirm/ Taste SEDT2 $FE-$FE Register für 
PNT $C8-$C9 Pointer auf 254-254 Editor 
200-201 Bildschirmzeile LOFBUF $FF—$FF Zwischen- . 
j PNTR $SCA—$CA Position des Cursors 255—255 speicher 
| 202—202  inder Bildschirmzeile 
| In der darauffolgenden Speicherseite von $0124 bis ab. Dieser Bereich ist dadurch für externe Zugriffe 
$01FF = dezimal 291 bis 5l2legt der Prozessor seine des Programmierers verboten. Seite 22 ist die ge- 
Werte für JSR = Jump to Subroutine ab. Falls man naue Dokumentation weiterer interessanter Spei- 
von Basic aus in diesen Speicherbereich schreibt, cherbereiche. Der TED (TExt-Display Chip) ist ab 


stürzt der Computer mit hoher Wahrscheinlichkeit Seite 14 beschrieben. 
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Tips und Tricks 


SYS, PEEK und POKE 
im Commodore 64 


Vielen Anwendern erscheint der 
64er als ein Buch mit sieben Sie- 
geln. Möchte man beispielsweise 
die Hintergrund- und Rahmenfar- 
be ändern, sind POKE-Anweisun- 
gen unumgänglich. Jeder POKE 
spricht eine bestimmte Speicher- 
stelle an. POKE x,y schreibt in 
Speicherstelle x den Wert y. Die 
Farbspeicherstellen liegen in 
53280 und 53281. Folglich muß 
man diese beiden Zahlen kennen, 
sollen Hintergrundfarben geän- 
dert werden. Ähnlich diesem Bei- 
spiel gibt es noch Dutzende weite- 
rer POKE-Zahlen, die man kennen 
muß, um den Commodore 64 aus- 
zunutzen. 

Speicherstelle: 43/44 
/Basic-Anfang 

Die beiden Basic-Speicheran- 
fangszeiger geben an, in welchem 
Bereich freier Speicherplatz liegt. 


FRE (0)=3333 
RER 


Da die Zahl größer als 256 ist, be- 
nötigt der 64er zwei Zahlen, die 
ihm diesen Wert mitteilen. Er er- 
rechnet sich aus Low-Byte + High- 
Byte * 256. Beispiel: In Speicher 43 
steht hexadezimal 8. (Kurz $08 ge- 
schrieben). Der Inhalt des Spei- 
chers 44 beträgt $20 (hexadezimal 
20). Der Wert, der sich daraus er- 
gibt, ist 2 * 1024 + 8 = $ 2008. 
Wichtig sind diese Speicherstel- 
len, wenn man ein Maschinen- 
spracheprogramm in den Bereich 
von 2048 bis 4000 legen will und 
der Basic-Anfang deshalb 4001 
betragen muß. (Ansonsten über- 
schreibt ein Basic-Programm die 
Maschinenspracheroutine.) Teilt 
man 4001 in seine High- und Low- 
Bytezahlen auf, schreibt diese 
Werte in Speicherstellen 43/44 
und POKEt in 4002 den Wert 0, 
dann beginnen Basic-Programme 
ab Adresse 4002. Das Maschinen- 
spracheprogramm ist gegen 
Überschreiben durch Basic-Pro- 
gramme oder Variable geschützt. 


Im Handbuch des C64 
werden die Betriebssy- 
stemroutinen und Null- 
seitenspeicherstellen 
entweder ignoriert 
oder nur unzureichend 


beschrieben. RUN 


zeigt ausführlich, was 
die integrierten Ma- 
schinenroutinen kön- 
nen und wie man sie 
aus Basic bedient. 


Speicherstelle: 45/46 
/Basic-Ende 

Dort steht (in Low- und High-Byte 
aufgespalten) die Endadresse des 
Basic-Speichers. Dieser Wert darf 
unter keinen Umständen unter 
dem Wert der Speicher-AÄnfangs- 
adresse (43/44) liegen! Ein Unter- 
schied von 1000 oder mehr Bytes 
ist sinnvoll. Die Werte nach Ein- 
schalten sind: 

(43/44): 2048 

(45/46): 40959 


Wo ist das File? 
er 2 Rn Fe 


Speicherstellen: 144/182 

/Floppy 

Vor allem zur Fehlersuche wer- 
den PEEK (144) und PEEK (182) ge- 
nutzt. Normalerweise steht in 144 
der Wert 0. Er zeigt dem Commo- 
dore-Betriebssystem, daß der 
letzte Schreib-/Leseversuch des 
Laufwerks erfolgreich war. Steht 
in 144 eine andere Zahl, gab es mit 
der Diskettenstation Probleme. In 
Speicherstelle 182 steht, wie oft 
die Floppy versuchte, auf die Dis- 
kette zuzugreifen. 

Speicherstelle: 203 /Tastatur 

Um herauszufinden, welchen Ta- 
staturcode zum Beispiel die „Cur- 
sor links"-Taste besitzt, gibt man 
mit Befehl PRINT PEEK(203) die 
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aktuell gedrückte Taste am Bild- 
schirm aus. 

(10 PRINT PEEK(203): GOTO 10) 
Drückt man eine beliebige Taste, 
erscheint deren Wert am Bild- 
schirm. Spieleprogrammierer nut- 
zen PEEK(203) aus, um auf eine 
bestimmte Taste zu warten und, 
falls diese nicht betätigt wurde, 
das Programm weiterzuführen. 


Repeat auf „P" 
ISDN 


Beispiel: 

10 Ist 203 gleich Leertaste? 

20 Wenn ja, dann Schuß abfeuern 
30 Wenn nein, dann fremde Raum- 
schiffe weiterbewegen. 

40 Wieder zu Zeile 10 springen 
Speicherstelle: 650 
/Tastenrepeat 

Beispiel: 


zugeben, muß man 15 mal die 
„="-Taste betätigen — vorausge- 
setzt, Speicherstelle 650 steht auf 
0; denn POKEt man dort den Wert 
128 ein, erhalten alle Tasten des 


Tastaturfeldes eine REPEAT- 
Funktion. 

Speicherstelle: 198/631 bis 640 
Tastaturpuffer 


Mit dem Tastaturpuffer lassen 
sich einige Kunststücke vollfüh- 
ren. Da er bis zu 10 Zeichen auf- 
nimmt, die er als normale Eingabe 
ausführt, nachdem der Inhalt des 
Pufferzeigers (198) entsprechend 
verändert wurde, ist es ein leich- 
tes, den Commdore 64 wie von 
Geisterhand Befehle auf den Bild- 
schirm schreiben zu lassen. 
Beispiel: 
10 POKE 631,ASC (?) 

= ASCII-Wert „?" 
20 POKE 632,ASC (*) 

=34 
30 POKE 633,ASC (H) 

= ASCII-Wert „H“ 
40 POKE 634,ASC (A) 

= ASCIL-Wert „A" 
50 POKE 635,ASC (L) 

= ASCII-Wert „L“" 
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60 POKE 636, ASC (L) 

= ASCII-Wert „L" 
70 POKE 637,ASC (O) 

= ASCIE-Wert „O" 
80 POKE 638,13 

= Wert für (RETURN) 
(Wert 13 muß immer am Abschluß 
stehen, damit die Anweisung so- 
fort ausgeführt wird). 
90 POKE 198,Anzahl der einge- 
pokten Zeichen, in diesem Fall 8. 
Diese Befehlssequenz printed 
„HALLO“ auf den Bildschirm. 
Speicherstelle: 774 /LIST-Schutz 
Neugierigen Nasen erleben nach 
POKE 774,27 oder POKE 774,0 ihr 
blaues Wunder, falls sie ein Basic- 
Programm LISTen wollen. POKE 
7174,26 schaltet den LIST-Schutz 
wieder ab. 
Speicherstellen: 808,818,819 
SAVE-Schutz 
Beispiel: 
10000 POKE 808,225 
10010 POKE 818,253 
10020 POKE 819,253 
10030 RETURN 


CW-Publikationen 
RUN-O-THEK 
Postfach 40 04 29 
8000 München 40 


abschicken und schon haben Sie sich viel Zeit 
und Ärger erspart. Bitte vergessen Sie in 
keinem Fall die Adresse und Bestellnummer 
anzugeben, da sonst Ihr Auftrag nicht ordnungs- 


gemäß erledigt werden kann. 


VS TEEREELelEETEBS N 


Schreibt man diese Unterroutine 
in ein eigenes Basic-Programm 
und startet diese mit GOSUB 10000 
gleich zum Programmbeginn, ist 
es nicht mehr möglich, das File 
abzuspeichern. Die erweiterte 
Programmversion daher unbe- 
dingt vor dem ersten RUN abspei- 
chern! 


Künstliche Errors 
REIFEN ZICTLEER 


Weitere POKE’s und SYS’:POKE 
120, 2: 

Danach gibt es nur noch eins: C64 

ausschalten. 

POKE 776, 1:Ein Zeichenwirrwarr 
am Bildschirm ent- 
steht. 

POKE 777, 1:Einzige Chance: 
RESET. 

SYS 55296 : Wie POKE 788,13. 

SYS 57344 : Erzeugt Overflow Er- 
rors 


Rub:-2-TMER — 
Abtippen 
üuberflüssi 


Alle Programme dieser Ausgabe sind auf zwei 
Disketten unter der Bestellnummer 713 erhält- 
lich. Und das für nur 37,50 Mark für beide 
Disks. Einfach mit der Zahlkarte von Seite 3 auf 
dem Postamt einzahlen oder einen ausgefüllten 
und unterschriebenen Euro-Scheck an 
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SYS 64738 : System-RESET 
(Kaltstart) 
SYS 64764 : RESET (Warmstart) 


Diese Unterroutine ist oftmals die 
letzte Möglichkeit, einen zerPO- 
KEten Commodore 64 wieder auf 
die Beine zu stellen. 


SYS 45998 : Undef’d Function 
Error 

SYS 46000 : „? Error" ausgeben 

SYS 46001 : „Syntax Error" 
printen 

SYS 46002 : Ausgabe eines 
Illegal 


Direct Errors. 


Vorsicht bei SIMON's Basic. Diese 
Erweiterung verändert mehrere 
Nullseitenspeicherstellen und ver- 
setzt den Vektor der Fehlerausga- 
be. Dadurch sind die meisten der 
hier gezeigten POKE's bei SI 
MON’s Basic unwirksam oder ha- 
ben unvorhersehbare Reaktionen 
(Absturz) zur Folge. 


F. Bastin EEE 


System: C64, Laufwerk 
Typ: Sprache 
Sprache: Assembler (ASM) 


Die Erweiterung beinhaltet Befeh- 
le zu den wichtigsten Bereichen: 
— Grafik 

— Sound 

— Sprites 

— Floppy 

— Textdarstellung 

Das Programm ist als kombinier- 
ter Hexdump-Basiclader abge- 
druckt. Wie man mit dieser Art 
Listings umgeht, steht auf Seite 8. 
Gibt man das Programm als Basic- 
lader ein, so speichert man die 
Daten ab und startet den Lader 
mit RUN. Danach gibt man: 

POKE 43, 0: POKE 44,128 

POKE 45, 97: POKE 46,146 
SAVE,NAME",8 

ein, um das fertige Maschinenpro- 
gramm zu speichern. Benutzt man 
den Checker, so ist als Startadres- 
se 8000 einzugeben. Um die Er- 
weiterung zu starten, gibtman SYS 
32768 ein. 


Floppy-Speeder 
integriert 
BEREBENERENETE 


POWER BASIC beinhaltet einen 
Floppy-Speeder, der bis zu sechs- 
mal schnelleres LOAD und VERI- 
£Y von Diskette ermöglicht. Ein 
Vergleich: Um 37K Programm (150 
Blocks) zu laden, braucht das Ori- 
ginal-DOS 1 Minute 36 Sekunden; 
POWER BASIC hat das Programm 
on nach 17 Sekunden im Spei- 
er. Der Speeder verzichtet auf 
ie Ausgabe von 'SEARCHING' 
d 'LOADING', da der Bild- 
irm sowieso abgeschaltet wird. 
im Verifizieren von Program- 
n gibt das Programm weiterhin 
Meldung 'OK’ oder '?VERIFY 
OR' aus. Man muß jedoch 
auf achten, daß beim Laden 

er Verifizieren von Program- 
zen ein eventuell am seriellen 
zt angeschlossener Drucker 
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„Power Basic“ erwei- 

tert den Commodore 

64 um Grafik, Disket- 
ten- und Soundbefehle. 


Seine Arbeitsge- 
schwindigkeit deklas- 
siert Programme wie 
Simons Basic oder 
ExBasic Level Il. 


ausgeschaltet ist, da dieser sonst 
den Datentransfer von der Floppy 
zum Computer beeinträchtigt. Hat 
man vergessen, den Drucker vor- 
her auszuschalten, so merkt man 
das daran, daß sich der Schreib-/ 
Lesekopf keine Spur weiterbe- 
wegt oder daß der Bildschirm 
schwarz bleibt und die Floppy 
weiterläuft, obwohl sich der Com- 
puter schon längst hätte zurück- 
melden müssen (bei dem größt- 
möglichen Programm [37K] nach 
weniger als 20 Sekunden). In so ei- 
nem Fall einfach den Drucker aus- 
schalten; das Programm wird 
dann korrekt geladen. Beim Spei- 


$0800-—$Ibff — 
$9c00-—$9f85 — 


Basicspeicher 
Befehlserken- 


nung 
$a000—$bfff— Basicim RAM 
$c000—$caae — Befehle von 

POWER BASIC 
$cb00--$chbff — Tabelle von 
POWER BASIC 
Farbram des 
Grafikbild- 
schirms 
Tabelle von 
TURBOLOAD 
(im RAM) 
$4100-—$d4b5 — TURBOLOAD 


$cc00—$ciff — 


$A000—$A0ff — 


- (imRAM) | 
$e000—$ffff— Bitmap des Gra- 
fik- 
bildschirms (im 
RAM) 


Tabelle 1: Speicheraufteilung nach 
dem Start von POWER BASIC 
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Geschwindigkeit 
ist Trumpf 


chern von POWER BASIC Pro- 
grammen wäre es sinnvoll, an den 
Programmnamen ein '.PB' anzu- 
hängen, um Programme, die nur 
mit POWER BASIC laufen, von an- 
deren Programmen zu unterschei- 
den. 

FRE (x) 

Dieser Befehl wurde so verbes- 
sert, daß jetzt die korrekte Anzahl 
freier Bytes angezeigt wird. 
GOSUB x 

Die Zeilennummer x kann auch 


$0001 — Prozessorregister 
$0034 — Stringspeicher 
50036 — Hilfszeiger 
$0038 — Speichergrenze 
$0304,$0305 — Umwandlung in 
Tokens 
$0306,$0307 — Umwandlung in 
Schlüsselwörter 
$0308,50309 — neue Befehle 
50314,50315 — Interrupt (IRQ) — 
nur bei WINDOW 
l 
$0316,$0317 — Break Interrupt 
$0318,5$0319— nicht maskierba- 
- rer Interrupt (NMD) 
$0330,50331 — Load-Vektor 


Tabelle 2: Von POWER BASIC verän- 
derte Speicherstellen 


ein mathematischer Ausdruck 
sein (zum Beispiel GOSUB 
100+2*INT(x/3)). 

GOTOx 


x darf, wie bei GOSUB, Variablen 
und Ausdrücke enthalten. 
RESTORE x 

Es kann eine Zeilennummer (auch 
ein mathematischer Ausdruck) an- 
gegeben werden, wo der Zeiger 
für READ stehen soll. Dies ist be- 
sonders bei der Programmierung 
von Musikstücken interessant, 
wenn eine Melodie öfters vor- 
kommt, die Daten für diese Me- 
ldodie aber nur einmal im Pro- 
gramm vorkommen sollen. 

AT x,y [wobei x=0—39;y=0—24] 
Der Cursor wird an die x-te Spalte 
und die y-te Zeile am Bildschirm 
positioniert. Ein folgendes PRINT > 
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oder INPUT erfolgt an dieser Posi- 
tion. 

TCOL a,b,c [wobei a,b,c=0—15] 
Die Farben des Textbildschirms 
werden gesetzt, wobei a die Hin- 
tergrund-, b die Rahmen- und c 
die Zeichentarbe ist (Farben auf 
Seite 61 im Commodore Hand- 
buch). 

OLD 

Retten eines nach NEW oder 
einem Reset gelöschten Pro- 
gramms. Nach einem Reset kann 
POWER BASIC mit SYS 39936 neu 
gestartet werden. 


GRAFIK: 
ee: 


HIRES 

Umschalten auf Grafikmodus. Der 
Grafikbildschirm liegt von 57344 
[$E000] bis 65535 [$FFFF] unter 
dem ROM. 

TEXT 
Umschalten auf Textmodus. 
CLEAR 

Löschen des Grafikbildschirms. 
GCOL a,b [wobei a,b=0—15] 
Setzen der Grafikfarben, wobei a 
die Punkt- und b die Hintergrund- 
farbe ist. Die Rahmenfarbe im 
Grafikmodus kann mit TCOL ge- 
ändert werden, die Hintergrund- 
farbe jedoch nicht. Das Farbram 
liegt von 52224 [$CC00] bis 53247 
[$CFFF] im Speicher. 

PLOT x,y 

[wobei x=0—319;y=0—199] 
Zeichnet einen Grafikpunkt an die 
x-te Spalte und die y-te Zeile des 
Grafikbildschirms. 

CPLOT x,y 

Löscht einen Grafikpunkt. 

LINE xl,yl1,x2,y2 [wobei 
x1,x2=0—319;yl,y2=0—199] 
Zeichnet eine Linie vom Punkt mit 
den Koordinaten x1,yl zum Punkt 
mit den Koordinaten x2,y2. Bei 
diesem Befehl wurde besonders 
auf die Geschwindigkeit Wert ge- 
legt, um auch komplexe Grafiken 
(wie zum Beispiel Vektor-Grafi- 
ken) darstellen zu können. 

CLINE xl,yl,x2,y2 

Löscht eine Linie vom Punkt xl,yl 
zum Punkt x2,y2. 

BOX xl,yl,x2,y2 

Zeichnet einen Kasten, wobei 
xl,yl und x2,y2 zwei Eckpunkte 
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FRE (x) 
— korrekte Anzahl freier Bytes 
GOSUBx : 


— x kann Variablen enthalten 
GOTOx 

— x kann Variablen enthalten 
RESTOREX \ 

— Angabe einer Zeile erlaubt 
ATx,y 

— positioniert den Cursor 

TCOL a,b,c 

— setzt die Farben im Textmodus 
OLD 


— rettet ein gelöschtes Programm 
HIRES : 

— schaltet auf Grafikmodus 
TEXT 


— schaltet auf Textmodus 
CLEAR 

— löscht den Grafikbildschirm 
INVERS 


— Invertiert den Grafikbildschirm 
GCOLa, 
— setzt die Grafikfarben 
PLOT x,y 
— zeichnet einen Punkt 
CPLOTxy 
— löscht einen Punkt 
LINE xl,yl,x2,y2 
— zeichnet eine Linie 
CLINE x1,y1,x2,y2 
— löscht eine Linie 
BOX x1,y1,x2,y2 
— zeichnet einen Kasten 
CBOX x1,y1,x2,y2 
— löscht einen Kasten 
BLOCK xl,y1l,x2,y2 
— zeichnet einen vollen Kasten 


.— setzt die Wellenform 
_PLAYnr,a 


ware einen Ton 
— setzt das Tastverhältnis 
ERR = 
— zeigt den Floppystatus an 
DIR 


— zeigt das Directory an 
DISK „Befehl“ 
— sendet einen Befehl zur Floppy 
BLOAD „Name“[,adr] 
lädt Daten von der Floppy 


FORMAT „Name,ID“ 


— formatiert eine Diskette 
SPOS nr,x,y 

— positioniert ein Sprite 
SPRITE nr,a,b,c,d,e,f 

— setzt das Spriteaussehen 
SOFF a 


— schaltet Sprites aus 
MU: 


TIa,b > 
— setzt die Multicolorfarben 


Tabelle 3: Alle neuen Befehle auf 
einen Blick 
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des Kastens sind, die sich schräg 
gegenüberliegen. 

CBOX xl,yl,x2,y2 

Löscht einen Kasten, der durch 
die Punkte xl,yl und x2,y2 fest- 
gelegt ist. 

BLOCK xl,yl,x2,y2 

Zeichnet einen ausgefüllten Ka- 
sten der durch die Eckpunkte 
x1,yl und x2,y2 festgelegt ist. 
CBLOCK xl,yl,x2,y2 

Löscht einen ausgefüllten Kasten 
mit den Eckpunkten xl,yl und 
x2,y2 wieder. 

WINDOW a 

a=1: Textfenster wird eingeblen- 
det 

a=(0: Textfenster wird ausgeblen- 
det 

Mit WINDOW 1 schaltet man das 
Textfenster ein, wobei direkt auf 
Grafikmodus umgeschaltet wird 
(ein vorheriges HIRES kann entfal- 
len). Die Auflösung mit Textfen- 
ster beträgt 320x151 Punkte 
(&x=0—319;y=0—150), wobei je- 
doch die y-Koordinate eines Punk- 
tes auch weiterhin Werte bis 199 
annehmen kann. Die Grafik unter 
dem Textfenster bleibt erhalten. 
Mit WINDOW 0 wird das Textfen- 
ster ausgeschaltet und auf Text- 
modus umgeschaltet. Folgt direkt 
hinter WINDOW 0 ein HIRES, so 
bleibt der Grafikmodus einge- 
schaltet. 


SOUND: 
EIER! 


VOL a [wobei a=0—255] 

Setzt die Lautstärke aller drei 
Stimmen (O0=stumm. ..15=laut). 
Werte, die größer als 15 sind, set- 
zen den Filtermodus (vergleiche 
Handbuch, Seite 156, Reg. 24). 
ADSR nr,a,d,s,r 

[wobei nr=1—3;a,d,s,r=0—15] 
Bestimmt den Klang eines Tones, 
wobei nr für Stimme, a für, Attack 
(Anschlag), d für Decay (Ab- 
schwellen), s für Sustain (Halten) 
und r für Release (Ausklingen) 
steht. Werte für die einzelnen Stu- 


fen: 

Attack: O=hart. .. 15= weich 
Decay: O=hart.... 15=weich 
Sustain: O=stumm. .. 15=laut 
Release: O0=schnell... 15=lang- 
sam 


| 
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WAVE nr,a 

[wobei nr=1—3;a=0—255] 
Bestimmt die Wellenform der 
Stimme nr, wobei a=129 Rau- 
schen, a=65 Rechteck-, a=33 Sä- 
gezahn- und a= 17 Dreieckschwin- 
gung bedeutet. 

PLAY nr,a 

[wobei nr=1—3;a=0—65535] 
Bestimmt die Höhe a eines Tones 
der Stimme nr. Die Werte für die 
einzelnen Notenwerte stehen im 
Handbuch auf Seite 158f unter 'Pa- 
rameter’). 

WIDTH nr,a 

[wobei nr=1—3;a=0—4095] 
Bestimmt das Tastverhältnis a der 
Stimme nr (nur bei der Wellen- 
form Rechteck). 


SPRITES: 
RER 


SPOS nr,x,y [wobei 
nr=0—7;x=0—511;y=0—255] 
Positioniert das Sprite nr auf dem 
Bildschirm und schaltet esein. Die 
Variablen x und y stehen für die 
Position am Bildschirm, wobei na- 
türlich ein Sprite mit x=511 und 
y=255 nicht sichtbar wäre, da es 
damit außerhalb des sichtbaren 
Feldes auf dem Bildschirm läge. 
SPRITE nr,a,b,c,d,e,f [wobei 
nr=0—7;a=0—255;b,d,e,f,=0—1]; 
c=0—15] 

Definiert das Aussehen eines Spri- 
tes: 

a ist der Block, in dem sich die 
Spritedaten befinden (zum Bei- 
spiel für 704 — >704=11x*64, also 
a=1]) 

b ist die Art des Sprites (0=nor- 
mal, l=multicolor) 

c ist die Farbe des Sprites 

d ist die Priorität des Sprites 


(0=vor dem Hintergrund, 1=hin- 
ter dem Hintergrund) 

e ist die Vergrößerung in x-Rich- 
tung (O=normal, 1=vergrößert). 
SOFF nr [wobei nr=0—8] 

Schaltet das Sprite nr aus. SOFF 8 
schaltet alle Sprites aus. 

MULTI a,b [wobei a,b=0—15] 
Setzt die Multicolorfarben aller 
Sprites. 


FLOPPY: 
re 


Diskettenoperationen im Grafik- 
modus sollten grundsätzlich nur 
bei ausgeschaltetem Textfenster 
erfolgen, weil es sonst zu Störun- 
gen in der Befehlsausführung 
kommen kann! 

ERR 


Zeigt den Floppystatus in der 
Form 'Fehlernummer, Fehlermel- 
dung, Spur, Sektor’ an. 

DIR 

Listet das Inhaltsverzeichnis (Di- 
rectory) einer Diskette auf dem 
Bildschirm, ohne ein vorhandenes 
Basicprogramm zu zerstören. 
Durch Drücken der <CTRL> Ta- 
ste kann das Listen unterbrochen, 
durch Loslassen der <CTRL> Ta- 
ste wieder fortgesetzt werden. 
DISK „Befehl“ 

Sendet einen Befehl an die Floppy 


(ersetzt OPEN 1,8,15, Befehl": 
CLOSE ]). 
BLOAD „Name“[,Adresse] 


Lädt ein Maschinensprachepro- 
gramm oder ein Grafikbild mit bis 
zu sechsfacher Geschwindigkeit, 
ohne die Basiczeiger zu verän- 
dern (=> kann in Programmen 
verwendet werden). Durch Ange- 
ben einer Adresse wird das Pro- 
gramm an die angegebene Stelle 


78,39,34,85,01,a59,73,85, 
fb,a9,80,85,fc,a08,00,84, 
£d,a9,d1,85,fe,a2,04,b1, 
fb,S1,fd,c8,d8,£9,e6, fc, 
e6,fe,ca,d®,f2,a9,37,85, 
81,58,a9,29,85,fb,a3,54, 
B5S,Ffc,8%,Ffd,a9,9C,85,fe, 
a2,84,b1,fb,31,fd,c8,d®, 
£f9,e6,fc,e6,fe,ca,dd,F2, 
a9,aFf,85,fb,a9,87,85, fc, 
B4,fd,a9,c0,85,fe,a2,®b, 
b1,fb,31,fd,c8,d0,F9,e&6, 
fc,eb,fe,ca,d®,f2,4c,00, 
Sc,ea,ea,sa,sa,sa,sa,ea, 
ea,ea,ea,a9,356,85,01,58, 
84,39,a5,ba,d®,203,4c,13, 


geladen. So ist es möglich, selbst- 
erstellte Bilder in den Grafikspei- 
cher von POWER BASIC (57344) 
zu laden und anzuzeigen. Da- 
durch, daß BLOAD schneller als 
die Originalroutine lädt und in Ba- 
sicprogrammen verwendet wer- 
den kann, wäre ein Hires-Adven- 
ture mit POWER BASIC denkbar. 
Liegt ein Ladefehler vor, wie zum 
Beispiel FILE NOT FOUND, so 
verzichtet BLOAD auf eine Fehler- 
meldung. Die Art des Fehlers 
kann jedoch über die Statusvaria- 


ble ST abgerufen werden: 
ST=0 : Ok (kein Fehler) 
ST=66 :FILENOT FOUND 


ST=—128: DEVICE NOT PRE- 
SENT 

In einem Programm wäre folgen- 
des denkbar: BLOAD „Hallo":IF 
ST=—128 THEN ?“Bitte schalten 
Sie die Floppystation ein!“ 
FORMAT „Name,ID“ 

Formatiert eine Diskette in zirka 
24 Sekunden! Der Name der Dis- 
kette darf maximal 16 Zeichen 
lang sein; die ID besteht aus zwei 
Zeichen. Der ’Bump’ am Anfang 
des Formatierens wurde auf ein 
Minimum reduziert, um einem 
Verstellen des Schreib-/Lesekop- 
fes vorzubeugen. Die Formatier- 
routine springt direkt nach der Be- 
fehlsübertragung an die Floppy 
wieder ins Basic, was ein Weiter- 
arbeiten mit dem Computer er- 
möglicht, während die Floppy for- 
matiert. 

WICHTIG: Soll hinter dem Basic- 
Befehl THEN ein neuer POWER 
BASIC-Befehl folgen, so muß vor- 
her ein Doppelpunkt stehen (zum 
Beispiel IF a THEN:HIRES)! 


T Ser er 


F7,c9,03,f0,F9,b0,03,4c, 
33,f5,a4,b7,d0,206,4c,10, 
£f7,4c,04,£7,a6,b9,a9,60, 
85,6b9,20,d5,f3,a5,ba,2®, 
09,ed,a5,b9,29,07,ed,228, 
13,22,85,ae,35,399,4a,4a, 
bd,df,20,13,ee,B5S,af,Ba, 
d®2,08,25,c3,85,ae,a5,c4, 
85,af,a9,Fd,25,30,85,38®, 
&2,00,b1,bb,c9,24,d0,03, 
4c,01,f5,ad,20,d0,85,b6, 
8c,20,d0,39,2b,8d,11,d2, 
78,49, 34,85,01,20,Ff,d3, 
a0,36,84,01,58,38,1b,8c, 
11,d9,24,b6,80,20,d0,a6, 
ae,at,af,60,a9,0b,84,00, 


N ESESENR RN 
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8102 338 data dd,2c,8080,dd,10,fb,a9,03, 
81088 348 data 8d,88,dd,2a2,907,ca,d®,Fd, 
8110 358 data a9,04,ad,88,dd,2a,2a,26, 
8118 368 data bd,6a,26,bd,ea,88,d8,f2, 
8128 378 data a5,bd,49,Ff,60,84,fb,aS, 
8128 388 data 36,85,01,a2,01,20,92,23, 
8138 398 data e8,01,Ff0,4b,a9,34,85,01, 
8138 408 data a2,02,35,fb,d8,02,a2,04, 
B14® 418 data ad,00,d0,d92,07,ee,21,d®, 
8148 420 data ad,01,49,2c0,39,00,85,fc, 
8158 438 data a5,93,f0,10,bd,00,d0,di, 
8158 440 data ae,f®,0e,a9,10,05,90,85, 
8168 458 data 98,4c,7B,03,bd,00,d0,51, 
8168 4568 data ae,s6b,ae,dßd,22,86,af,eB, 
8170 470 data e4,fc,d®0,dc,a9,01,85,Fb, 
8178 458 data ad,20,d0,d0,a2,158,60,89, 
8188 490 data 1d,38,60,20,94,01,c9,01, 
8188 500 data FO,f8,a9,0b,8d,08,dd,2c, 
8198 518 data 00,dd,10,Ffb,39,03,8d,00, 
8198 528 data dd,a0,06,88,d0,fd,ad,2®, 
Blad 538 data dd,2a,2a,26,bd,6a,26,bd, 
BlaB Sy data ea,ea,ad,88,dd,2a,2a,26, 
81b® S58 data bd,6a,26,bd,ea,ea,ad,®2®, 
B81b8B S6B data dd,2a,2a,26,bd,6a,26,bd, 
81c® 578 data ea,ea,ad,208,dd,2a,2a,26, 
81cB S5Bd data bd,6a,26,bd,a9,34,85,01, 
81d® 598 data a5,bd,49,ff,3d,00,d0,a3, 
81d8B 608 data 36,85,01,e8,d0,ac,60,aS, 
Ble® 618 data 05,85,31,a5,12,85,16,45, 
Bile8B 6208 data 13,45,06,45,07,85,1a,a5, 
B1Ffd 638 data 13,85,17,a5,06,85,18,a35, 
B1fB 648 data 07,85,19,20,34,f9,a2,c8B, 
5288 558 data 20,56,£5,50,fe,bB,ad,21, 
8288 5508 data 1c,d9,24,00,F0,06,ca,d®, 
8219 578 data ef,4c,51,f5,c8B,c0,08,d0, 
8218 5508 data ea,20,56,F5,59d,fe,b8,ad, 
8220 558 data 281,1c,91,38,c8,d0,f5,5S®, 
8228 708 data Ffe,b8,ad,81,1c,39,ba,01, 
8239 71® data c8,c0,46,d0,Ff2,29,e0,f8, 
86238 728 data 28,eS,fF5,c5,323,£f8,23,4c, 
8240 730 data 82,fF5,22,00,82,280,cc,83, 
824B 749 data bd,88,85,85,3b,2c,08,18, 
8250 758 data 18,Ffb,a9,18,84,80,18,2c, 
8258 768 data 08,18,380,fb,58,26,3b,2a, 
8260 778 data 2a,26,3b,2a,22,84,288,18, 
8268 788 data 98,26,3b,2a,2a,26,3b,2a, 
8278 798 data 23,8d,20,18,58,26,3b,2a, 
8278 808 data 2a,26,3b,2a,2a,8d,02,18, 
8288 810 data SB,26,3b,2a,2a,26,3b,2a, 
8288 828 data 2a,8d,09,18,e8,d2,bS,ad, 
8290 830 data 80,1c,09,208,8d,20,1c,ad, 
8298 648 data 09,05,c5,18,f0,03,4c,9e, 
B2a0 850 data Fd,8B5,06,3d,01,05,85,07, 
B2aB 868 data 4c,04,03,85,3b,2c,008,18, 
82b8 878 data 18,Fb,a9,18,8d,808,18,2c, 
8268 888 data 80,18,30,fb,380,04,39,08, 
82c2 898 data 26,3b,2a,?a,26,3b,2a,2a, 
82c8 9828 data Bd,00,18,88,40,F0,60,35, 
82d2 918 data 1B,85,06,8d,09,25,a5,19, 
8248 928 data 85,27,8d,01,05,29,e0,85, 
B2eBd 938 data 080,35,00,38,fc,c9,01,d®, 
B2eB 948 data 2f,ad,28,05,f0,0f,85,06, 
B2f® 358 data ad,21,05,85,07,4c,fe,03, 
B2FB S62 data a9,01,20,cc,23,4c,22,eb, 
8308 978 data a8,55,b9,ff,ce,39,ff,cf, 
8328 982 data 88,49,F7,a0,49,b9,be,d3, 
8318 998 data S9,ff,ce,B8,d9,F7,a8,15, 
8318 1808 data bS9S,a0,d4,399,3F,cf,88,d, 
8328 18218 data F7,20,008,cf,30,55,b3S,fFf, 
8328 10828 data cf,S9,ff,ce,88,dd,f7,4c, 
8338 183® data 2b,21,29,b2,b9,ff,d®,33, 
8338 1948 data Ba,21,88,d0,fF7,a0,ba,bS, 
8340 1858 data b1,d1,99,33,83,88,490,£7, 
a9,36,85,21,58,28,40,cf, 
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data 
data 
data 
data 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
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data 
data 
data 
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data 
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a9,57,20,dd,ed,a39,07,20, 
dd,ed,a3,1c,28,dd,ed,a9, 
01,20,dd,ed,a9,0F,20,dd, 
ed,28,Fe,ed,78,39,34,85, 
01,60,380,30,b3,ff,ce,S39, 
FF,cf,88,d0,F7,38,90,b9, 
25,d4,99,ff,ce,88,d8,Ff7, 
20,008,cf,a0,980,b9,Ff,cf, 
39,Ff,ce,88,d0,£7,4c, 34, 
03,39,36,85,01,58,a9,6c, 
85,fb,33,d2,85,fc,84,fd, 
a9,03,85,fe,a2,029,20,7b, 
cf,a9,57,20,dd,ed,aS,fd, 
ed,dd,ed,a5S,fe,20,dd,ed, 
a9,23,20,dd,ed,a®,00,78, 
a9,34,85,01,b1,fb,48,a9, 
36,85,21,58,68,20,dd,ed, 
c8,c0,23,d0,ea,20,fe,ed, 
a5,fb,69,23,85,Ffb,90,03, 
e6b,fc,18,a5,Fd,69,23,85, 
£fd,30,03,e6,fe,18,ca,dD®, 
b5,20,7b,cf,a9,45,20,dd, 
ed,aS,f0,20,dd,ed,a9,03, 
28,dd,ed,28,fb,ed,78,a9, 
34,85,21,60,a9,08,20,0c, 
ed,a9,6f,20,b9,ed,a9,4d, 
20,dd,ed,a9,2d,20,dd,ed, 
60,29,60,84,04,03,39,9d, 
8d,05,03,a9,25,8d,06,03, 
a93,94,8d,07,03,89,090,8d, 
08,03,49,9d,8d4,09,03,a9, 
96,85,9%2,B5ndbrdorgur,as, 
b4,8d4,30,03,39,9c,8d,31, 
03,39,be,8d,18,03,a9,9c, 
8d,19,03,a9,d5,8d,16, 03, 
a9,9c,8d,17,03,89,30,a2, 
21,20,00,85,fb,84,Fa,bi, 
fa,91,fa,c8,d®,Ff9,e6,fb, 
ca,d®,Ff4,a9,91,8d,24,a2, 
a9,9c,8d,25,a0,a9,aa,8d, 
Sc,b3,39,9c,8d,9d,b3,a9, 
20,8d,a0,aB,a9,ae,8d,al, 
a8,39,9c,8d,a2,a8,a9,36, 
85,21,b9,2f,9f,20,d2,Ff£f, 
c8B,c8,4d,d®,F5,20,44,a6, 
40c,74,84,d80,03,4c,1d,aB, 
20,83,ad,20,£7,b7,20,13, 
a6,38,35,5f,e9,01,34,60, 
4c,24,38,38,4c,49,bc,20, 
Ba,ad,4c,F7,b7,85,93,78B, 
a9,34,85,801,4c,8d,d3,48, 
82,48,98,48,a9,7f,Bd,2d, 
dd,ac,8d,dd,30,1f,20,bc, 
£6,20,e1,Ff,d8,17,20,a83, 
fd,20,18,e5,39,36,85,01, 
a9,31,84,14,83,a9,ea,8d, 
15,03,6c,02,a0,40,72,fe, 
00,228,008,020,00,00,00,00, 
00,00,20,00,20,00,00.0®0, 
00,280,73,208,c9,e0,b8,08, 
20,79,00,20,ed,a7,4c,ae, 
37,18,29,1f,0a,88,b3,fF®, 
Se,85,a7,b39,ef,39e,85,a86, 
20,73,08,6c,36,208,10,3®, 
c9,ff,f9,2cC,24,0F,30,28, 
8d,f3,cb,c3,e8,98,24,18, 
2e9,1f,33,e8,84,43,a0,Ff, 
c8,b9,66,9e,19,fa,ca,d®, 
f7,c8,b3,66,9e,30,06,20, 
47,ab,4c,48,9d,4c,ef,a6, 
4c,F3,36,ad,f9,cb,4c,24, 
a7,20,fe,3d,36,73,208,04, 
84,0F,bd,00,02,8d,f9,cb, 
c3,e8,30,04,18,4c,bb,9d, 
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10,07,c9,ff,f®0,3e,eB,d®, 
e93,c9,20,f0,37,85,08,c3, 
22,f0,56,24,0F,70,2d,c9, 
3F,d®d,04,39,99,d9,25,c9, 
30,90,04,c9,3c,90,1d,84, 
71,30,00,84,0b,88,86,7a, 
ca,c8,e8,bd, 08,02,38,FS, 
ge,a8,f®,F5,c9,80,d0,3®, 
05,0b,a4,71,e8B,c8,33,Fb, 
01,b3,£fb,201,f0,36,38,e3, 
33,F0,04,c9,49,d0,22,85, 
0f,38,e9,55,d0,94,85,28, 
bd,80,02,F0,df,c5,2B,Ff®, 
db,c8,99,fb,81,eB,d2,f®, 
36,73,6856,2b,c8,b3,3d,30, 
18,Fa,b9,9e,38,d®,b4,bd, 
00,22,180,be,4c,029,a6,a6, 
7a,ca,eB,B8e,f2,cb,ad,ff, 
Be,fb,cb,8e,fa,cb,se,fFa, 
cb,ae,fa,cb,bd,66,9e,F®, 
21,10,£f3,ee,fb,cb,ac,f2, 
cb,88,c8,b9,00,22,8d,FS, 
cb,e8,bd,66,9e2,38,ed,FS, 
cb,f®,ef,c9,80,f0,13,“4c, 
0d,Se,ae,Ff2,cb,bd,02,22, 
£f0,07,c9,3a,f®d,bc,e8,d2, 
£4,609,ae,f2,cb,ad,fb,cb, 
18,69,e0,9d4,00,02,e8,c&, 
b9,00,02,9d,28,02,F®,da, 
e8B,c8,d2,f4,40,39,9e,Ff, 
43,03, SH YI YESEB HEN 
c4,48,49,52,45,43, 535, 
58,404, 43, 3c, 45 43,005 
48,56,45,52,03,837 733. BE: 
CC, 50, 4C HE dHr 43,00 3er 
4Erd4,40,49,4e705, 2, 3c5 
49,4e,c5,42,4f,dB,43,42, 
yE708. 42, 4554654 JEcBFEE 
40,32: 4F 4900,52 3 He2 
4374E307,5BEHE7cBrsE en 
53,d2,57,41,55,5555953 
42.09, 435550,0e Wr 2gre 
47,49,535ch-4B74 RS 
37,03,430 46 HR 0 5 
50,4f,d3,53,50,52,49,5%, 
c5,57.,49,47, SPECBFS372E 3 
46,c6,4d,55,4c0,54,c9,28, 
ce,c6,ed,c6,14,c7,28,c2, 
17,c0,28,c0,46,c0,6e,c®, 
ac,cd,a9,c0,61,c1,5e,c1, 
19,C3;.16,03, 9Br car Io 
27,ca,60,c7,69,c7,dc,c7, 
10,cB,a7,c4,1a,c4,87,c4, 
c1,04,9%4,c85cH,C8; 10,05 
50,c8,2e3,c9,0d,ca,28,af, 
93,0d,28,20,20,28,20,2a, 
Da,2a,2a,20,43,36,34,20, 
50,4F,57,45552:20542,377 
53,49,43,20,56,31,28,30, 
20,2a,2a,Da,2a,0d,0d,20, 
20,20,28,57,29,20,42,53, 
20,514,08,53,594,.41, 52735; 
45,20,2d,20,33,37,38,3B, 
37,00,46,59.57,35,537687 
46,52,45,45,0d,02d,45,53, 
28,46,52,45,45,0d,0d,a3, 
34,8d,280,dd,a9,04,8d,88B, 
02,39,38,84,18,d8,39,3b, 
Bd,11,d0,4c,ae,a7,39,37, 
8d,80,dd,a9,04,8d,88,22, 
a9,15,8d,18,d8,a9,1b,8d, 
11,dd,4c,ae,a7,a2,08,a9, 
e0,a0,00,85,Fb,B4,Fa,38B, 
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2620 
2638 
2640 
2658 
2662 
2670 
26808 
2630 
2700 
2710 
2720 
2738 
2740 
2758 
2768 
2778 
2788 
2730 
2808 
2818 


3008 
3010 
3028 
3030 
3040 
3958 
3068 
3078 
3989 
3932 
3108 
3118 
3129 
3138 
3149 
3158 
3168 
3178 
3188 
3138 
3200 
3218 
3228 
3238 
3240 
3250 
3268 


91,fa,c8,d®,fb,e6,fb,ca, 
dd,f6,4c,ae,a7,a2,20,a3, 
ed,a0,00,85,fb,B4,fa,78B, 
893,35,85,01:D1 Fa,39,£E, 
91,Ffa,c8,d8,f7,e6,fb,ca, 
do,Ff2,a9,36,85,21,58,Hc, 
ae,a7,01,00,ea,20,9e,b7, 
e0,18,b0,31,8e,6b,c0,20, 
fd,ae,20,9e,b7,e8,18,b2, 
2E4,8Be,6c,c0,a2,04,a9,cc, 
a0,00,85,fb,84,fa,ad,6b, 
c0,0a2,03,08,0a,2d,6c,c0, 
91,fa,c8,dd,fb,e6,fb,ca, 
dd,f6,4c,ae,a7,4c,48B,bo2, 
a9,80,2c,a9,00,85,97,20, 
eb,b7,e80,cB,b®,ef,a5,15, 
c9,01,90,808,d0,e7,a5,14, 
c3,40,b®,e1,8a,4a,4a,Ha, 
0a3,38,b9,23,c1,85,Ffa,b3, 
24,c1,85,fb,Ba,29,07,18, 
65,fa,85,fa,a5,14,293,f8B, 
85,fc,18,a9,800,65,fa,85, 
£fd,a9,e0,65,fb,85,fe,18, 


:a85,fd,65,fc,85;,f0,a5,fe, 


65,15,85,fe,a5,14,29,07, 
49,27,a8,bd,55,c1,a0,22, 
78,a2,35,86,01,24,97,12, 
205,49, Ef, 3. 2Eds cc, it, Ed, 
91,fd,a2,36,86,01,58,“4c, 
ae,a7,00,00,40,01,80,22, 
c0,23,00,905,40,06,80,97, 
c0,08,00,03,40,0b,80,0c, 
cd,04,008,0Ff,40,10,82,11, 
c0,12,20,14,480,15,80,16, 
c0,17,28,19,40,1a,88,1b, 
cd,1c,88,1e,01,02,24,08, 
18,20,40,80,008,83,80,2c, 
39,80,85,97,20,7a,c1,20, 
S5T7cC1,c0;83,c1,£0,77,C4, 
20,63,c2,4c,a8,a7,20,fd, 
ae,28,eb,b7,8a,a8,36,15, 
c0,c8B,b8,04,35,14,e0,01, 
99,26,d0,05,c9,48,b2,21, 
60,4c,4B,b2,8c,1c,cb,8Bd, 
l1a,cb,Be,1b,cb,85,14,8B6, 
15,98,4a,4a,4a,aa,bd,F®, 
c2,85,2ad,8a,29,03,aa,bd, 
0a,c3,85,a0,98,29,07,18, 
65,ac,85,ac,a5,14,23,F8, 
85,63,29,e0,05,ad,B5,ad, 
18,a5,ac,65,63,85,a0,35, 
ad,65,15,85,ad,35,14,23, 
07,49,07,aa,bd,8e,c3,85, 
ab,60,28,78,280,35,84,01, 
a08,80,a5,ab,24,97,30,05, 
49,fFf,31,ac,2c,11,ac,31, 
ac,a®ß,36,84,01,58,28,aH4, 
6f,60,85,ac,29,07,c9,07, 
f0,05,38,89,08,b08,04,a9, 
38,e6,ad,65,ac,85,ac,a3, 
08,65,ad,85,2d,69,308,e2, 
a5,ac,29,07,F0,205,18,aS, 
£ff,30,04,89,c7,c6,ad,65, 
ac,85,ac,a5,ad,e9,20,85, 
ad,5®,46,ab,90,Be,66,ab, 
a5,ac,c8,1B,69,08,85,ac, 
99,02,e6,2d,50,19,eb,26, 
ab,30,0e,26,ab,35,ac,5BB, 
38,e3,88,85,ac,b8,02,c6, 
ad,50,48,ad,1b,cb,4Ha,ad, 
1a,cb,6a,4a,4a,85,6f,68, 
48,38,ed,1a,cb,4B,Ba,ed, 
1b,cb,85,6c,b®,03,68,49, 
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8a38 
Ba4td 
8a4B 
Ba5® 
Ba58 
Ba6bd 
Ba6B 
83708 
8a78 
BaBd 
BaBB 
Ba98 
8398 
Baad 
Baad 
Bab® 
Bab8 
Bac® 
Bac8 
Badd 
8ad8 
Based 
BaeB 
Baf® 
BafB 
8bB8 
8b28 
Bb1® 
Bb1B 
Bb28 
Bb28 
8b38 
Bb38 
Bb4® 
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8b78 
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8b98 
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Bbaß 
Bbb2 
B8bb8 
Bbcd 
8bcB 
Bbd® 
8bd8 
Bbed 
BbeB 
BbFf® 
BbfB 
Bc88 
8c08 
8c18 
8c18 
8c28 
8c28 
8c38 
8c38 
Bc4B 
Bc4B 
8c58 
8058 
Bc68 
Bc68 
8c78 
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data 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


£EF,53,921,48,39,00,e5,6c, 
85,53,85,6e2,68,85,69,85, 
6d,58,8d,1a,cb,Be,ib,cb, 
98,18,ed,1c,cb,30,04,43, 
E£F,69,fe,85,6b,8c,1c,cb, 
65,6c,38,e5,69,aa,a9,Fff, 
e5,53,85,70,24,6f,b0,05, 
2a2,20,4e,c2,38,35,6d,65, 
6b,85,6d,35,68,e9,20,85, 
Be,84,6f,28,e3,c1,e8,d2, 
05,2e6,70,d0,01,60,25,6c, 
b®,de,280,1f,c2,18,a5,6d, 
65,69,85,6d,35,6e8,65,56a, 
50,dd,65,63,58,43,90,00, 
01,22,03,05,06,07,08,0a, 
0b,2c,8d,0F,180,11,12,14, 
15,16,17,19,1a,1hb,1c;1e, 
1F,80,40,80,c0,01,02,0%4, 
08,10,20,40,80,a9,00,2c, 
39,80,85,97,20,7a,c1,8c, 
280,cb,8d,21,cb,8e,22,cb, 
20,95,c1,20,e3,c1,20,77, 
c1,8c,23,cb,Bd,24,cb,Be, 
25,cb,ac,28,cb,20,63,c2, 
ac,28,cb,ad,24,cb,as,35, 
cb,20,95,c1,28,e3,c1,ac, 
23,cb,ad,24,cb,ae,25,cb, 
28,63,c2,ac,23,cb,ad,24, 
cb,ae,25,cb,20,95,c1,2®, 
e3,c1,ac,23,cb,ad,21,cb, 
ae,22,cb,20,63,c2,ac,23, 
cb,ad,21,ch,ae,22,cb,20, 
35,c1,28,e3,c1,ac,20,cb, 
ad,21,cb,ae,22,cb,28,63, 
c2,4c,a8,a7,a9,20,2c,a9, 
80,85,97,20,7a,c1,8c,20, 
chb,8d,21,cb,8e,22,cb,20, 
S5,c1,28,e3,c1,20,77,c1, 
8c,23,cb,Bd,24,cb, 88,25, 
cb,ad,28,cb,cd,23,cb,b®, 
ec,ac,208,cb,ad,21,cb,ae, 
22,Ch, 20,95,01;20,83;c1,; 
ac,2®,cb,ad,24,cb,ae,25, 
cb,20,63,c2,ad,28,cb,cd, 
23,cb,d®,03,4c,ae,a7,ee, 
28,cb,4c,c2,c3,ac,28,cb, 
ad,21,cb,ae,22,cb,20,55, 
c1,28,e3,c1,ac,2d,cb,ad, 
24,cb,ae,25,cb,20,63,c2, 
ad,28,cb,cd,23,cb,d®,03, 
Yc,ae,a7,ce,28,cb,Hc,ee, 
c3,39,01,a2,fd,a8,20,22, 
£f9,fd,a2,08,30,60,20,00, 
Fe,a9,24,85,fd,20,d5,f3, 
a9,08,20,09,ed,a39,60,20, 
c7,ed,a9,28,85,30,28,03, 
84,£fd,20,13,ee,85,fe,at4, 
99,d0,35,28,13,ee,a4,9®, 
d®,2e,a4,fd,88,d0,e9,a6, 
fe,28,cd,bd,39,28,20,dc, 
£ff,20,13,ee,36,30,d®,18B, 
aa,f0,06,20,d2,ff,4c,62, 
c4,39,0d,20,d2,ff,a4,31, 
cd,fb,f®,fa,a8,02,d0,cd, 
20,42,f6,4c,ae,a7,39,01, 
a2,08,20,0F,20,00,fe,a9, 
008,85,b7,20,c0,ff,a2,01, 
280,30,23,280,b5,ab,a9,01, 
20,c3,ff,4c,ae,a7,a9,08, 
28,09,ed,29,6f,20,c7,ed, 
20,13,ee,20,d2,Ff,c9,0d, 
d®d,F6,28,ef,ed,4c,ae,a7, 
20,57,e2,35,b7,c9,14,39®, 
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8c828 
B8c88B 
8c392 
8c38 
Bcad 
BcaB 
Bcb® 
8ch8 
8cc® 
8cc8 
Bcdd 
Bcd8B 
Bced 
8ceB 
Bcf® 
BcfB 
BdBß2 
8d288B 
8418 
Bd18 
8422 
8d28 
8d30 
8438 
8d4® 
8d48 
8d58 
8458 
Bd6d 
8d58 
8478 
8478 
BdBd 
8d88 
8d98 
8498 
8da®d 
8da8 
Bdb® 
8db8 
Bdc® 
8dc8 
Bddd 
8ddd 
Bded 
BdeB 
Bdf® 
BdfB 
Be08 
BedB 
Bel® 
Bel8 
Be2d 
Be28B 
Be3® 
8238 
Be4td 
Be4B 
BeS5d 
8e58 
Be6d 
Be6B 
Be78 
Be78 
BeB2d 
Be88 
Be3® 
Be38 
Bead 
BeaßB 
Beb® 
Beb8 


4018 
4028 
49038 
4940 
4050 
4060 
4970 
4080 
4238 
4108 
411® 
4120 
4138 
4140 
4158 
4168 
4178 
4188 
4130 
4200 
4210 
4220 
4230 
4240 
4250 
4268 
4278 
4288 
4290 
4392 
4310 
4328 
4338 
4348 
4350 
4368 
4370 
43B® 
4390 
4490 
4419 
4420 
4438 
4440 
4450 
4468 
4470 
4488 
4490 
4508 
4518 
4520 
4530 
4548 
4558 
4560 
4570 
4588 
4538 
4608 
4618 
4620 
4630 
4640 
4650 
4660 
4670 
4682 
4690 
4708 
4718 
4720 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


03,4c,08,af,a8,08,bl,bb, 
99,bb,c6,c8,c4,b7,d@,FfF6, 
8c,b93,c6,38,88,b1,bb,c9, 
2c,f8,808,c8,c80,11,d0,F5, 
4c,808,af,c8,8c,ba,c6,a3, 
7b,85,fb,a9,c5,85,fc,a9, 
00,85,fd,a9,05,85,fe,a2, 
22,39,08,20,0c,ed,a9,6f, 
28,b9,ed,39,4d,20,dd,ed, 
39,2d,28,dd,ed,a9,57,22, 
dd,ed,aS,fd,20,dd,ed,a35, 
fe,20,dd,ed,a9,23,20,dd, 
ed,a®,88,b1,fb,20,dd,ed, 
cB,c0,23,d0,f6,20,fe,ed, 
a5,fb,69,23,85,Ffb,30,03, 
e6,£c,18,35,Ffd,69,23,85, 
£fd,930,83,e6,fe,18,ca,d®, 
b8,a3,08,20,0c,ed,a3,6f, 
280,b9,ed,39,4d,28,dd,ed, 
a9,2d,20,dd,ed,a9,45,20, 
dd,ed,a9,e8,29,dd,ed,a9, 
05,20,dd,ed, 28, fb,ed,!"c, 
ae,a7,a5,03,28,4b,Ff2,85, 
43,30,00,84,1b,a2,00,35, 
39,39,00,03,35,1b,39,02, 
03,a5,02,33,03,23,35,13, 
99,04,03,a5,12,99,95,03, 
a9,0F,99,06,03,33,07,03, 
35,1b,45,0a,45,12,45,13, 
939,01,23,98,69,08,a8,e6, 
16,35,45,055:43,90,c08,29; 
03,85,31,98,48,Ba,9d,00, 
07,eB,d®,fa,20,30,fe,68, 
a8,88,20,85,fd,20,f5,fd, 
a9,07,85,31,20,e9,F5,85, 
3a,20,8f,f7,a9,00,85,32, 
28,Be,fe,a9,ff,8d,21,1c, 
a2,05,580,fe,b8,ca,d@,fa, 
a2,8a,a4,32,50,Fe,b8B,b9, 
00,23,8d,81,1c,cB,ca,d®, 
F3,a2,09,50,fe,b8,a9,55, 
Bd,01,1c,ca,d®,f5,a9,Fff, 
a2,05,50,fe,b8,8d,21,1c, 
ca,d®,f7,a2,bb,50,Fe,bB, 
bd,88,01,84,81,1c,e8,d®, 
£4,230,00,50,fe,b8,b1,30, 
Bd,21,1c,c8,d0,f5,a9,55, 
a2,08,50,fe,b8,8d,21,1c, 
ca,d@,f7,35,32,18,69,0a, 
85,32,c6,1b,d8,35,50,Fe, 
b8,50,Fe,bB,20,00,Fe,'tc, 
Se,fd,a0,80,b9,40,06,59, 
008,02,c8,cc,3e,86,d@,f4, 
8c, 74,02,ac,3F,806,8c,7b, 
02,39,20,85,7F,28,00,c1l, 
b9,00,02,85,12,b9,21,22, 
85,13,20,07,d3,39,1a,8d, 
05,1c,39,2b,8d,07,1c,a9, 
c0,85,00,25,08,30,fc,a9, 
OF,5d,07,1c,32,21,86,Da, 
a9,e80,85,02,25,02,30,Fc, 
eB,2e8,24,d0,F1,4c,40,ee, 
00,08,00,00,00,00,00,00, 
00,00,00,20,20,20,09,00, 
00,00,00,00,00,28,9e,b7, 
e0,28,b0,15,8a,48B,20,fd, 
ae,20,98e,b7,e8,19,b0,029, 
68,38,18,20,Fd,Ff,H4c,ae, 
a7,4c,48,b2,20,9e8,b7,e®, 
19,b0,F6,B8e,21,d0,20,fd, 
ae,20,98,b7,e0,10,b2,e9, 
Be,20,d0,20,fd,ae,20,Se, 
b7,e8,10,b8,dc,Be,86,22, 


Becd 
BecB 
Bed® 
BedB 
Beed 
BeeB 
Bef® 
Bef8 
BFODO 
BFOB 
BF1® 
BF1B 
BF2O 
BF2B 
BF3® 
BF38 
BEF4D 
BF4B 
BFSO 
8F58 
BEFEO 
BFEB 
BEF7® 
BF7B 
BFBO 
BFB8 
BFIO 
8398 
Bfa®d 
BFaB 
BFb® 
BFbB 
Bfc® 
BFCB 
BfFd® 
8fdB 
Bfed 
BfeB 
Brffd 
BrfFfB 
3922 
9288 
9218 
9018 
9228 
9228 
9038 
9038 
9048 
9248 
90508 
9958 
9060 
9068 
9078 
9978 
9280 
9088 
9098 
9298 
90a2 
90daB 
98b® 
98b8 
90c8 
99c8 
9248 
92d8 
9Dded 
9d88B 
92f® 
90F8 
9108 
91988 
9118 


473® 
4740 
4750 
4768 
4770 
4780 
4790 
4800 
4B1® 
4820 
4830 
4840 
4850 
4B62 
4870 
4BB® 
4890 
49008 
4910 
49208 
4930 
4940 
4950 
4968 
4370 
4980 
493998 
50008 
s21® 
5920 


"5938 


5240 
5250 
Sa6B 
5078 
=12]=1%) 
5038 
5198 
5118 
5128 
5138 
5148 
5158 
5168 
5178 
5180 
5198 
5208 
5210 
52208 
5230 
5240 
5250 
5268 
5278 
5280 
5290 
5300 
531® 
5320 
533® 
5348 
5350 
5360 
5378 
5388 
53908 
5490 
541® 
5428 
5430 
5440 
5450 
5468 
5470 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


Yc,ae,a7,35,2b,18,69,04, 
85,fd,a5,2c,85,fe,a0,00, 
b1,fd,F0,08,c8,c0,58,d®, 
£f7,4c,08,af,cB,98,a8,08, 
18,65,fd,91,2b,85,fd,90, 
o2,e6,fe,a5,fe,c8,31,2b, 
88,bi,fd,aa,c8,bi1,fd,FB, 
07,85, fe,86,£fd,38,b®,Ff®, 
a5,fd,18,69,02,85,2d,a5, 
fe,20,55,36,4c,86,e3,20, 
Se,b7,8e,18,d4,4c,ae,a7, 
20,9e,b7,e8,01,F8,45,e2, 
02,F0,4e,e0,03,£0,57,4c, 
48,b2,20,fd,ae,28,9e,b7, 
e0,10,b0,£f3,60,20,7b,c7, 
Ba,da,da,da,0a,48,20,7b, 
c7,Be,2d,803,68,2d,0d,23, 
8d,0c,d4,20,7b,c7,Ba,Ba, 
0a,80a,0a,48,20,7b,c7,Be, 
0d,23,68,2d,0d4,03,8d,0d, 
d4,4c,ae,a7,a9,05,Bd,S3a, 
c7,a9,06,8d,b8,c7,4c,B6, 
c7,a9,2c,8d,93,c7,39,2d, 
8d,b8,c7,4c,86,07,a9,13, 
Bd,93,c7,a9,14,8d,b8,c7, 
4c,86,c7,28,9e,b7,e8,01, 
Fd,12,e0,02,f0,17,e0,03, 
f®d,1c,4c,48,b2,20,fd,ae, 
20,9e,b7,60,28,ee,c7,Be, 
04, d4,4c,ae,a7,2d,ee,c7, 
Be,®b,d4,4c,ae,a7,28,ee, 
c7,Be,12,d4,4c,a8,a7,20, 
Se,b7,e8,01,f8,15,e8,22, 
f®d,1d,20,03,f8,25,4c,48, 
b2,28,fd,ae,28,Ba,ad,2B, 
£7,b7,60,280,22,c8,8c,08, 
d4,8d,801,d4,4c,ae,a7,020, 
22,c8,8c,87,d4,8d,88,d4, 
4c,a2,a7,28,22,cB,8c,Be, 
d4,8d,8Ff,d4,4c,a8,37,20, 
9e,b7,e8,01,f0,19,e0,02, 
£f®0,21,e0,03,f8,29,4c,"B, 
b2,20,Fd,ae,20,8a,ad,20, 
£f7,b7,c9,180,b8,f0,60,20, 
62,c8,8c,02,d4,8d,03,d4, 
4c,a8,37,0280,62,c8,8c0,09, 
d4,8d,8a,d4,4c,ae,a7,20, 
62,c8,8c,18,d4,8d,11,d4, 
4c,ae,a7,20,57,e2,a9,08, 
85,ba,a8,08,b1,7a,c9,2c, 
de,13,20,73,00,20,Ba,ad, 
20,£f7,b7,36,14,a4,15,39, 
00,85,b9,F0,05,a9,21,55, 
b9,98,28,d5,ff,“4c,ae,a7, 
4c,48,b2,20,9e,b7,e,08B, 
b®d,f6,8a,a8,a9,01,e0,00, 
f0,04,0a,88,d0d,fc,48,0d, 
15,d0,8d,15,d0,Ba,8a,8d, 
10,c9,69,01,8d4,13,c9,20, 
£fd,ae,28,eb,b7,a5,15,c9, 
00,£f0,06,c9,01,F0,0e,dd, 
c7,68,49,Ff,2d,10,d0,8d, 
18,d80,4c,2d,c9,68,0d,1®, 
d®,8d,18,d0,35,14,8d,20, 
dd,8e,81,d8,4c,ae,a7,4c, 
48,b2,280,9e,b7,e8,08,hbB, 
f6,Ba,a8B,a9,01,e0,00,F®, 
04,03,88,d0,fc,48,8a,18, 
48,69,f8,8d,44,c9,68,63, 
27,8d,74,c9,20,fd,ae,2B, 
Se,b7,Be,f8,07,20,fd,ae, 
28,9e8,b7,e8,802,b0,c8,e®, 
01,F0,0d4,68,48,49,Ff,2d, 
1c,d8,8d,1c,d®0,4c,69,c9, 
6B,48,8d,1c,d8,8d,1c,d®, 


Praxis-Listing 


Der Porsche unter den Basicerweiterungen: „Power-Basic“ 


IE EONSESNFETERNORE ZH 


9118 5488 
Sı298 5499 
gı28 5598 
9130 5518 
9138 5528 
3149 5538 
9148 5540 
9158 555® 
9158 55568 
S169 5578 
sı68 5588 
Sı7a 5590 
s1ı78 5608 
81892 S5618 
Sı88 5628 
3138 5638 
9138 5649 
S1ad 556508 
9138 556568 
S1b2 5578 
S1b8 5688 
31c® 56538 
S1c8 5708 
91d® 57108 
g1dB 5728 
S1ed 5738 
9le8 5740 
sıra 5758 
sıfa 5768 
Ss202 5778 
s208 5788 
93218 5738 
9218 5888 
s228 5810 
s228 5828 
32380 5838 
93238 5848 
S248 5858 
s24B _ 5868 
3258 5878 
3258 5888 
9268 5838 


69002 


60012 


690228 


60038 
60040 
60050 
60069 
69079 
60082 


60050 


data 20,fd,ae,28,38,b7,e8d,18, 68 
data b0,35,Be,27,4d8,20,fd,ae, 6f 
data 20,98,b7,e0,22,b8,98,e0, 64 
data 01,F0,2d4,6B,48,49,Ff,2d, BB 
data 1b,d0,8d,1b,d8,4c,99,c9, 11 
data 68,48,0d,1b,d8,8d,1b,d®, a® 
data 29,fd,ae,28,3e,b7,e8,02, 76 
data b0,3d,e82,201,f0,04,68,48, 53 
data 49,Ff,2d,1d,d8,8d4,1d,d®, eb 
data 4c,bc,c9,68B,48,20d,1d,d8d, 79 
data Bd,1d,d8,20,fd,ae,28,9e, Fö® 
data b7,e0,02,b8,1a,e8,81,£®8, 76 
data 6c,68,49,ff,2d4,17,d8,8d, 48 
data 17,d®,4c,ae,a7,68,0d,17, ib 
data d®d,8d,17,d2,4c,ae,a7,“c, B4 
data 48,b2,20,9e,b7,e0,09,00, “a 
data F6,e0,08,f0,17,8a,a8,a9, bb 
data 21,e0,00,f0,24,0a,88,d®, eS 
data Fc,493,ff,2d,15,d0,84,15, “1 
data d®d,4c,ae,a7,a9,00,8d,15, ab 
data dd,4c,ae,a7,20,9e,b7,e®d, e4 
data 180,b9,cc,Be,25,d0,20,fd, 17 
data ae,20,98,b7,e8,18,b®,bf, 35 
data Be,26,d8,4c,ae,a7,28,9e, 74 
data b7,e0,92,b0,b2,e0,01,f0, ®e 
data 19,78,39,31,8d,14,83,39, ec 
data ea,8d,15,03,39,08,Bd,la, Ba 
data d®,39,81,8d,2d,dc,58,4c, 59 
data 17,c0,78,a9,6d4,8d4,14,83, 18 
data a9,ca,8d,15,03,39,7Ff,8d, a3 
data ®d,dc,a93,01,8d,1a,d8,a9, 72 
data 01,85,b6,a9,3b,8d,11,d®, 79 
data 58,4c,ae,a7,78,ad,19,d8d, 28 
data 8d,19,d0,23,01,F0,2b,c6, 31 
data b6,18,04,293,01,85,b6,36, Bd 
data b6,bd,a7,ca,Bd,11,d8,bd, 64 
data a9,ca,8d,12,d8,bd,ab,ca, Hd 
data 8d,18,d0,bd,ad,ca,8d,20, FB 
data dd,8a,f®,06,68,28,68,aa, ba 
data 68,48,58,4c,31,8a,3b,1b, Sc 
data c9,12,38,15,394,97,008,00, d7? 
data 00,00,20,00,20,00,09,00, 08 


For a=32768 to 37472 step 
B:s=8:c=8:for b=® to 7: 
gosub 68940 
s=s+h+1l-c:0=s>255:s5=255-s 
and 255:poke at+tb,h+l:next 
b:gosub 60048 
£f$=-"pruefsumme ok”:if s$> 
h+l then f$="[rvs] 
pruefsummenfehler”:f-f+1 
gosub 680998: next a:print ” 
Cdown]”f”fehler”:end 

read h$:gosub 600858: h=1* 
16:h$=mid$ Ch$,2) 

l=-asc Ch$+"x”)-4B:if 1<O 
or 1>22 then 690808 

if 1<18 then return 
1=-1-7:if 1>9 then return 
£f$=-"CrvslJeingabefehler”:1- 
O:f-f+1 

print "zeile” peek (64)J* 
256+peek (63)f$: return 


saven des programms nach starten 
des loaders mit 


poke 43, 


®:poke 44,128 


poke 45, 97:poke 46,145 
save "name”,B 


Sonderheft mp 39 


4279 


5034 


5693 


2267 
2715 


"3198 


1044 
1334 
2460 


2726 


EEE REBEETTE Praxis Listing 


Datasette als 


System: C64/Floppy/Datasette 
Typ: Utility 
Sprache: ASM 


us 


Bis zu 202 Diskblocks umfassende 
Programme verarbeitet der Data- 
settenspeeder. Zu „Turbo-Tape" 
aufzeichnungskompatibel, liest er 
auch dessen Daten. Je nach Grö- 
ße des Files greift Turbo-Tape 
ebenfalls auf „Gamer-Tape"-Da- 
teien zu. Der Befehlssatz: 

£L für LOAD (laden) 

£S für SAVE (speichern) 

£V für VERIFY (prüfen) 


Datensafe 


Kassetten eignen sich 
hervorragend als si- 
cherer Datenspeicher. 
Dabei beschleunigt 
„Gamer-Tape“ die 
Speicher-/Ladege- 
schwindigkeit um den 
Faktor lO und der 
Bandverbrauch sinkt 
auf 10 Prozent. 


Abgespeicherte Programme bele- 
gen zirka 1/10 der üblichen Kas- 
settenbandlänge. Pro C60-Kasset- 
te speichert man durchschnittlich 
ll bis 12 Disketten. 

WICHTIG!!! 

„Gamer-Tape" darf nur zum Ko- 
pieren zwischen Diskette und Kas- 
sette oder zum Laden von Kasset- 
te und anschließendem Starten 
benutzt werden. Ändert man ein 
Programm oder schreibt ein neu- 
es, speichert „Gamer-Tape" das 
File falsch ab. 


soft ern 


rem erstellt durch softteam 1018 data 5,134, -IZE SI, Fein ce, be, 
poke 53288,8:poke 53281,8:print chr$S 54,2134 208 
(5) 1028 data 4, 181, 42, 149, 171, 202, 206, 
2e997=32,-56;7238 
1022 data 32, 143, 246, 32, 247, 204, 32, 
print 11, 205, 165, 185 
"basiert auf den routinen von 1024 data 24, 105, 1, 202, 32, 43, 205, 
o tape” 162, B, 185, 172 
t "allerdings kann man mit turbo 1026 data 8, 32, 43, 205, 162, 6, 208, 132, 
5, 234, 208 
1028 data 242, 160, ®, 162, 4, 177, 187, 
736,.303-2 144723 
1838 data 169, 32, 282, 32, 43, 205, 162, 
5, 2088, 132, 187 
1032 data 208, 237, 169, 2, 133, 171, 32, 
+1, 2005721525232 
1034 data 43, 205, 132, 215, 162, 7, 234, 
1 ee Fe) 


"spezial auch programme mit mehr 
’152 blocks diskettengrossse 
"(max. 202 blocks)?” 


"allerdings erscheint dann immer 


"nach ende des ladevorgangs” 


”"'load error !', was 

print ”stoeren sollte.” 

print 

print "benutzen sie bitte 
ELCH“ 

print "(z.’bsp. ’£l’ fuer 

print :print :print "bitte 

a=-52224 

b=52974 

For i=-a to b:read q:poke i 

sys S2224 

print chrS5 (147); "Fertig | 

end 


data.169,.11,141, 8, 3,-169,. 20%, 


237,2°:957:93,296 


data 32, 115, ®, 240, 4, 201, S2, 240, 


3, 76, 231 
data 167, 32, 115, 0, 2eı, 
19, 201, 76, 240 
data 28, 201, 86, 240, 33, 
240, 38, 201, 78 


32, SB, 204 


data 162, 55, 134, 1, 76, 
32, 115,-0, 32 

data 30, 205, 76, 174, 167 
o, 32, 33, 205 

data 76, 174, 167, 32, 115 
129, 206, 76, 174 

data 167, 32, 115, 8, 32, 
76, 174, 167, 162 


40 GIUW Sonderheft 


sie aber 


1036 data 205, 162, 3, 230, 172, 208, 4, 
230, 173, 202, ebd 


1038 data 165, 172, 197, 174, 165, 173, 


e29, 175, 


1 de de Rate Fe 


1040 data 165, 215, 32, 43, 285, 162, 7, 


'£’ anstatt 


136, 208, 246, 2088 


1042 data 132, 132, 88, 24, 168, 8, 141, 


’load').” 
warten” 


132971925 
‚g:next 208, 253, 


” 


160, 2, 162, 55 
1044 data 134, 1, 


16, 447, '2305.1607,%0, 


173,317 
1046 data 208, “41, 


239, 141, 17, 208,202, 


136, 208 
1048 data 250, 120, S6, 168, 8, 169, 2, 32, 


43, 205, 162 


83, 24D, 


201, 80, 


1050 data 7, 136, 
198, 171, 208 

1052 data 238, 152, 32, 43, 205, 162, 7, 
136, 208, 247, 202 

1054 data 202, S6, 
e15, 169, 8, 

1056 data 163, 6, 
77,205, Abe 


Sonn et, 162,75, 


133, 189,68, 215, 133, 
133 
US, 360, Hl, E47 ,.38, 


1058 data 17, 234, 9, 8, 32, 77, 205, 16e, 
data 240, 43, 76, 8, 175, 32, 115, o, 14, 198, 163 


1069 data 208, 233, S6, 202, 208, 253, 144, 


373,167, 


Setteril, 


202 


1062 data 2086, 253, 133, 1, S6, 162, 2, 44, 


9242145, 


1627727165 


1064 data 43, 165, 44, 134, 10, 134, 147, 


er 132,.1953 


133, 196 


1066 data 32, 212, 235, 32, 119, 205, 32, 


171, 286, 


Ice, 209,76, 316 


1068 data 164, 32, 218, 285, 165, 171, 201, 


a u ac 


2, 240, 8, 2o1 11®04 data 189, 165, 189, 201, 2, 208, zus, 
data 1, 208, 243, 165, 185, 240, 18, 168, 3, 32, 87 

173, 680, 3, 133 1186 data 206, 201, 2, 248, 249, 156, 189, 
data 195, 173, 61, 3, 133, 196, 32, 208, 232, 32, 87 

88, 247, 32, 228 1188 data 206, 136, 298, 246, 36, 155, 8 
data 255, 240, 251, 32, 44, 168, 164%, 133, 163, 32, 106 Be: 
183, 240, 11, 136 1112 data 286, 38, 189, 234, 234, 234, ı98 
data 177, 187, 217, 65, 3, 208, 286, 163, 208, 244, 165 : 5 
152, 208, 245, 132 1112 data 189, 36, 169, 16, 44, 13, 22®, 
data 144, 32, 210, 245, 173, 62, 3, 240, 251, 173, 13 

56, 237, 60, 3 1114 data 221, ıu2, 7, 221, 72, 

data 8, 24, 101, 195, 133, 174, 173, 141, 15, 221, 104 


63, 3, 101, 195 
’ ’ ’ 1116 data 74, 74, 96, 169, ®, 1477; 
data 40, 237, 61, 3, 133, 175, Ir 141, 33, 208 


240, 205, 165, 183 
data 69, 215, 5, 144, 240, 4, 169, rs ee ee 


E55, E33 144776 
’ ’ ’ 1128 data 141, 8, 221, 169, sz1417=2, 
data 169, 245, 32, 41, 206, 201, ®, 208, 169, 128, 141 


240, 249, 133, 171 

data 32, 87, 206, 145, 178, 208, ıs2, ern ee 
192, 208, 246, 240 I 

data 45, 32, 41, 206, 32, 87, 296, 1124 data S6, 22, 24, 228, 162, 0, 189, 
156, 147, 2os, @ 196, 206, 240, 6 

data 145, 195, 209, 195, 248, 2, 134, 1126 data 157, 0, 4, 232, 208, 24s, 162, 5, 
144, 69, 215, 133 160, d, 24 

data 215. 230. 195, 208, 2, 230, ı86, 1128 data 32, 108, 229, 96, 42, 42, 42, up, 
165, 195, 197, 174 42, 45, 46 

data 165, 196, 229, 175, ı44, 221, 3, 1130 data 46, 46, 46, 7, 2, 5, 5, 20, 9, 
87, 206, 32, 247 14, 7 

data 204, 200, 132, 192, 88, 8, 168, 1132 data 19, 46, 6, 18, 15, 13, 46, 49, 

@, 141, 160, 2 46, 50, 50 

data 76, 147, 252, 32, 23, 248, 32, 1134 data 51, ‚46, 46, 46, 46,42, 48, 
247, 204, 132, 215 y2, 42, yo 

data -169, 7, 141,76, 221, 162, 1, 32, 1136 data 8, 8, ®, 255, 255, 255, 255, 355, 
106, 206, 38 255, 255, 255 


# 


r-Tape“ nutzt Kassetten als billigen Datenspeicher 


Organisierte Datasetten: 
„Tape-Directory“ 


System: Commodore 64, eingelesen, erscheinen die Daten 

Datasette, Drucker UHBARWZSSSRVGEIIG Wahlweise nochmals am Bild- 
Typ: Anwendung r schirm oder werden auf dem 
Sprache: Basic bespielten Kassetten Drucker ausgegeben. Maximal 


gesch rieben ist, muß 100 Programme je Kassettenseite 


1 werden bearbeitet. 
Nachdem das Programm geladen man das komplette Kern des Programmes ist eine Ma- 


und gestartet ist, a an Bee Band auf Programme schinenspracheunterroutine in 2 
liebige Kassette in die Datasette. - Teilen, die ab Zeile 54 in Basic- 
Danach drückt man PLAY, den absuchen. „ Tape-D I- DATAs steht. Die Daten stehen 
& en Bess, : Weleil)saeertakeli ig nach RUN im Speicher ab Stelle 
edes gelundene Frogramm eT- ‚7, TE 52992, wobei Teil 2 den Bereich 
scheint mit Angaben zur Länge Eulen area zwischen 53062 und 53107 belegt. 


und Anfangsadresse am Bild- raubende Arbeit ab. 
schirm. Ist die Kassette komplett Michael Maie ÜiEEEEEEEEEEE 


goto 1® EofFfJ”:print :print :print :print 

goto 16 print ” Bitte Band einlegen und 4688 
goto 44 zurueckspulen!”:print :print 

rem WERTEN TE RE gosub 52 yy4g 


rem * tape-directory a goto 34 SF 


Ean; Kemummmurenemrnumumme print "[Cclr,cbm 6]Kassette enthaelt:”: 3264 

rem * (c) michael maier * ez=ps:print 

DENE TER TEN if ps=® then print ”Kein Programm 4327 

rem gefunden.”:gosub 25:goto 53 

print chr$ (147) chr$ (14) chr$ (B) 4BB4 for i=-8 to ez 998 

chr& (153):poke 53288,8:poke 53281,0: For j=-® to 3:print as$fi,j):next }J: e611 

gf=-® print 

poke 56,1900:clr :dim as5(198,5) 19256 iF df then 22 456 

print tab(11)"[rvsIkXassettendirectory 3777 if int (i/3)=i/3 and i>® then gosub 25 2334 >» 
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eich a bee re hei ee ern ET TÜR CNETETTEE RER RO SR ee 


next i:if df then print#4:close Y:goto gosub 51 443 

53 47 close 1:ps=ps+l:if ps<181 then 34 2563 
23 gosub 25 453 48 goto 16 451 
24 goto 28 461 49 kb=( peek (832)*256+peek (831))-C peek 4281 
e5 print :print "Weiter: Taste”:poks 138, 2341 (838)*2S56+peek (829)) 

[%) 


5Bd as$Cps,2)="Laenge: ”+str$ (kb)+” byte” 3314 


86 get wS$:if wS="”* then 26 1788 :return 
e7 print "[clr,2down]*":return 733 = 3 
28 print "[dewniDrucken,Bildschirm oder 14867 sı for i=833 to B4B:as$(Cps,1)-as$Cps,1)+ 3997 


Endel3spacesItd/b/e) ?” chr$ C peek Ci)):next :return 


a ee S2 asS(ps,3)="Anfangsadresse: ”+str$ ( 5186 
ıS5:if <> > <>”e” <> a 

23 get = — d” and w$<>”e” and w$ 3855 peek (B3@)*256+peek (829)):return 

5 ee 53 end 128 
30 if wS-"e” then 53 1318 54 data 120,169,207,141,41,3,169,48,141, 5028 
31 if wS="”b"” then 16 1216 40,3,88,56,0,0,0 
32 open 4,4,80:close 4:if st=-12B then 32 24393 
een SE SS data 169,71,141 ‚119, = 169,207,141,128, 5957 


2,169,50, 141 ‚ıeı, 2, 


34 print "[clir,2down, wht]Suchen beenden: 3324 S6 uses 13, 141, 122, =. = 4,133,198,16e, 5451 
35 er to 849:poke i,8:next 1813 57 an uam ea jos,e,ieb 3 
36 open 1,1,8,””:print ”"Cb1k]J” 1144 n > - en ePnEa, Baal 


37 iF peek (828)>® and. peek (828)%<5 then 2282 32,147,252,104,104,169,0 


39 58 data 141,160,2,248,203,0 2008 
38 close 1:goto 34 751 593 data 169,81,141,0,3,169,2907,141,1,3, 5552 
39 on peek (828) goto 48,41,42,43,44 2268 96,224,5,208,27,169 
40 asS(ps, ®O)=-"Basicprogramm”:goto 45 2376 68 data 71,141,119,2,169,207,141,120,2, s461 
41 goto 38 463 169,5 14151277 25369,13 
42 as$(ps,B)=-"Maschinenprog”:goto 45 2533 61 data 141,122,2,169,4,133,198,76,116, 5011 
43 as$Cps,®)="Datenfile[l4spaces)”:goto 46 1965 164,76,139, 227,255 
44 as$Cps,B)="Bandende[l5spaces)":goto 16 1976 62 For x=52992 to 53107:read d:poke x,d: 4853 
gosub 49:gosub 52:gosub 51:goto 47 2376 next :sys 52992:sys 53962: return 


Gibt das „Directory“ einer Kassette aus. 


BMON-Diskmonitor 


System: Commodore 64, 


Laufwerk 
Typ: Anwendung 
Sprache: ASM 


Ein Diskmonitor bearbeitet direkt 
einzelne Spuren und Sektoren des 
Laufwerkes. Sämtliche Eingaben 
und Ausgaben im Programm er- 
folgen hexadezimal. Listen des 
Speicherinhalts erfolgt mit SHIFT- 
Taste, der Abbruch des Befehls 
mit STOP. Die Befehle im einzel- 
nen: 

R: Read Track/Sektor 

'R1201' 

liest einen Block ein, der auf 
Track 12 (= 18 dezimal), Sektor 01 
liegt. Hierbei handelt es sich um 
den ersten Block des Directory. 
'R' liest den logischen nächsten 
Block ein. 

W: Write Track/Sektor 

'W 1201' 

schreibt den Block im Speicher 
auf die Diskette nach 12 01 zurück. 
'W’ schreibt den vorher eingele- 
senen Block an seinen Platz zu- 
rück. 

B: BAM anzeigen 

'B’ zeigt auf dem Bildschirm die 
belegten Blöcke der Diskette an. 
In horizontaler Richtung die 
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Üblicherweise nutzt 
man das Laufwerk 1541 
über DOS (Disk Opera- 

ting System). Dadurch 


sind Manipulationen 

eingeschränkt. DMON 
geht über diese 
Grenzen hinaus. 


Tracks von $01 bis $23 (85 dezi- 
mal), und in vertikaler Richtung 
die Sektoren von $00 bis $14 (20 
dezimal). Tracks, die weniger als 
20 Sektoren haben, werden durch 
'x*' markiert. 

BA: Block im BAM belegen 

'BA 02 03' kennzeichnet diesen 
Block als belegt. Um sich von der 
Wirkung zu überzeugen, gibt man 
danach 'B' ein. Der belegte Block 
ist an dem weißen Quadrat zu er- 
kennen. 

BF: Block in BAM frei machen 

'BF 02 03° sorgt dafür, daß der 
oben belegte Block wieder als frei 
in die BAM eingetragen wird. 

M: Anzeige des Floppy-Speichers 
(RAM und ROM) als Hex-Dump 

'"M 00’ gibt den Inhalt der Floppy- 
Zero-Page als Hex-Dump aus. Der 


SE Tr 


Inhalt dieser Zero-Page wird stän- 

dig durch Interrupts ausgelesen. 

In der Zero-Page ruft man ver- 

schiedene Floppy-Kommandos di- 

rekt auf. 

Die folgenden Job-Codes sind von 

Bedeutung: 

$80 LESEN eines Blocks in einen 
Puffer 

$90 SCHREIBEN eines Blocks aus 
einem Puffer 

$DO oder 

SEO AUSFÜHREN eines Maschi- 
nenprogrammes im Puffer. 
$EO stellt zusätzlich den Mo- 
tor an. 

Durch Überschreiben der ersten 

Speicherstellen liest man den Job- 

Code LESEN ($80) in die Speicher- 

stelle für Puffer 0 ein. Beispiel: 

Nach 'M’ erscheint: 

0000 01 01 00 OB 02 00 12.04 

0008 01 02 00 23 12 00 21 33 

'STOP' beendet das Listen. 

Die ersten vier Zahlen (0000) ge- 

ben die Adresse der Floppy-Spei- 

cherstelle an. Es folgen die oben- 

genannten Jobspeicher O0 bis 5, 

und in den letzten beiden Zahlen 

sind die Track- und Sektornum- 

mern für Puffer 0. Um den ersten 

Directory-Block einzulesen, muß 

man '12 01’ als Track/Sektornum- 

mer in $0006/07 eingeben. Da- 


nach schreibt man den Job-Code 
in Speicherstelle 0000. Änderung: 
0000 80 01 00 0B 02 00 12 01 
Hierbei ist zu beachten, daß zuerst 
die Track- und Sektornummer ein- 
gegeben wird, damit beim Eintra- 
gen des Job-Codes ($80) der zu le- 
sende Block festgelegt ist. Der 
Job-Code führt nach 'RETURN’ so- 
fort zur Befehlsausführung. 
Fehlerkanal abfragen: 

Den Floppyfehlerkanal liest man 
mit dem 'Klammeraffen’ aus. Zu- 
sammen mit einem Buchstaben 
werden Kommandos an die Flop- 
py übermittelt. Beispiel: 

I = Initialisieren 

Auf diese Art werden alle ande- 
ren Diskkommandos an die Flop- 
py übermittelt. 

$: Direktory anzeigen 


Praxis Listing 


Hierbei besteht die Möglichkeit; 
entweder einzelne Programme 
(LINK-ONE’) oder die ganze Dis- 
kette ('LINK-ALL') zu überprüfen. 
Vor allem bei "Validate'-Fehlern 
ist dieser Befehl hilfreich. Der drit- 
te Linkbefehl ('LINK-FRE') zeigt 
die Linkung einer bestimmbaren 
Anzahl an Blöcken an, die nicht in 
der BAM eingetragen sind. 

V: Verschieben eines Program- 
mes aus dem Speicher in einen 
Floppy-Puffer: 

Der Block aus Puffer 0 muß an- 
schließend durch Eingabe von 'M’ 
und Schreiben des Jobcodes $90 
in die erste Speicherstelle auf der 
Diskette abgelegt werden. K setzt 
Koppeladresse auf '00 FF’. Dieser 
Befehl sorgt dafür, daß die ersten 
beiden Bytes des eben abgeleg- 


ge Bytefolge aufweisen. 

'H' zeigt alle Kommandos an. 

'X’ verläßt das Programm. 

Das vorliegende Listing ist als 
kombinierter Hex-Dump-Basicla- 
der abgedruckt. Wie man mit die- 
ser Art Listings umgeht, steht auf 
Seite 8. Wird das Programm als 
Basic-Lader eingegeben, so muß 
der Lader vor dem Start abgespei- 
chert werden. Nach RUN werden 
dann die Daten in den Speicher 
gepoket. Das fertige Maschinen- 
programm speichert man mit: 
POKE 43, 0: POKE 44,192 

POKE 45,40: POKE 48,205 

SAVE „name",8 

auf Diskette ab. Wird es als Hex- 
dump eingegeben, so wird der 
Checker benutzt. Als Startadresse 
ist C000 einzugeben. 


L: Linkung der Blöcke angeben. ten Blocks nicht länger eine zufälli- N. Mar ÜiEEEEEEEEEEE 


4c,2a6,c1,28,2a3,c0,c9,20, 
£90,F3,d0,03,20,22,c0,20, 
21,c0,903,03,03,03,85,37, 
28,22,c0,20,21,c0,05,a7, 
60,c9,33,390,02,69,08B,29, 
9F,60,20,cf,ff,c9,0d,d®, 
FB,a9,3F,20,d2,Ff,4c,a6, 
c1,a2,fb,20,03,c0,35,01, 
290,0c,c0,35,900,eB,eB,60, 
29,cf,Ff,c6,d3,c3,0d,6®, 
a5,fc,20,57,c0,35,fb,48, 
Ys ,4a,4a,43,280,62,00,68, 
29,9F,c9,02,99,02,69,26, 
69,30,4c,d2,ff,a9,0d,20, 
d2e,Fff,8a,4c,d2,Ff,84,ac, 
85,3b,28,00,b1,ab,F®,1d, 
c9,03,b0,95,aa,bd,25,cd, 
d®,09,c9,0d4,b2,05,aa,ca, 
280,ba,c®,20,d2,ff,cB,d®, 
e3,e6,ac,d®,df,608,e6,fb, 
d®,92,e6,fc,60,a2,30,38, 
e9,03,90,03,e8,b9,f9,69, 
33,60,29,0d,2c,39,20,4c, 
d2,Ff,a9,20,20,d2,Fff,ca, 
d®,Fa,60,a9,00,85,90,20, 
a5,03,a9,93,20,d2,ff,c20, 
88,c1,a9,24,20,38,Ff,20, 
ae,ff,a5,930,10,03,4c,08, 
c1,39,08,20,b4,FF,a9,60, 
20,36, Ff,20,a5,ff,20,a5, 
£FfF,4c,0b,c1,28,a5,Ff,aa, 
20,a5,ff,20,cd,bd,20,b5, 
c0,20,35,FfFf,F0,05,20,d2, 
ff,d®o,f6,20,a5,Ff,20,a5, 
£ff,a5,30,d0,13,20,b2,c0, 
ad,8d,02,c9,02,d0,d5,ad, 
8d4,02,c9,01,d0,F9,Fd,cc, 
20,ab,ff,a9,08,20,b1l,Fff, 
a9,e0,20,53,FFf,20,ae,Fff, 
e80,41,c1,29,b2,c®d,4c,cf, 
c1,39,08,20,b4,FF,a9,6f, 
20,36,Ff,20,85,ff,c3,31, 
08,90,2b,48,20,b2,c0,20, 
b2,c0,68,20,d2,Ff,20,35, 
FF,c9,0d,fF0,03,28,08,90, 
f5,20,d2,Ff,4c,5e,cl1,20, 
ab,Ff,a9,00,85,50,28,62, 
20,e4,ff,F®,Fb,560,39,08, 
e0;Hnr; 66 3a9;bF,Ie533;£E 
a9,808,20,b1,ff,a9,F®,4c, 
93,FfFf,29,88,20,b1,Ff,a9, 
eBß,4c,93,ff,a9,08,28,b4, 
ff,a9,6f,4c,96,Ff,ad,ce, 
39,60,20,76,c0,38,cd,a9, 


558 
=1=14) 
578 
588 
5928 
608 
610 
628 
638 
649 
650 
658 
670 
688 
650 
700 
718 
728 
730 
740 
758 
768 
770 
780 
790 
800 
B1® 
B208 
830 
B4DO 
858 
868 
B7® 
B80 
8398 
9908 
310 
928 
330 
948 
350 
9608 
970 
t=1=15} 
930 
1008 
1010 
1028 
1038 
1040 
1050 
12060 
1970 
1DB® 


11,28,76,c8,28,e#,Ff,F®, 
fb,28,7e,c1,39,43,28,38, 
ff,28,32,ff,28,3a,c3,aS, 
01,84,49,83,84,41,83,a2, 
ff,93,29,b2,c®,a?,3e,22, 
6d,cß,29,cf,ff,cS,3e,Ff®, 
f9,c9,29,F0,F5,22,0d,dd, 
ba,c3,f8,09,ca,d®,F8,20, 
b2,c8d,4c,d5,c1,Ba,Ba,aa, 
eB,bd\,c6,c3,48,ca,bd,c6, 
c3,48,60,20,48,c0,d®,®a, 
39,00,8d,b2,c3,8d,b3,c3, 
fd,12,20,03,c0,8d,b3,c3, 
2e80,48,c0,d0,07,39,00,8d, 
b2,c3,f0,08,20,03,c0,29, 
f8B,8d,b2,c3,28,3d,c2,a8, 
00,20,a5,ff,S9,00,cf,cB, 
d®o,f7,4c,ab,ff,20,7e,cl, 
a2,00,bd,aF,c3,20,aB,Fff, 
eB,e0,06,30,f5,20,ae,Ff, 
4c,9c,c1,29,cf,85,fc,a9, 
00,85,fb,60,20,03,c2,a39, 
00,2c,a9,ff,8d,3c,03,20, 
53,c2,32,33,20,6d,c0,ad, 
b3,c3,20,57,c0,ad,b2,c3, 
20,57,c0,a0,20,a2,00,20, 
b5,c0,20,b5,c®,al,fb,20, 
57,c8,al,fb,29,cc,c2,d®, 
£f1,a9,08,18,6d,b2,c3,8d, 
b2,c3,08,c9,f8,d0,06,20, 
2c,c2,20,53,c2,28,90,11, 
ad,3c,83,18,03,4c,cf,ci, 
ee,b3,c3,20,2c,c2,20,53, 
c2,20,e1l,ff,d8,03,4c,cf, 
c1,ad,8d,802,f0,F3,a9,00, 
85,c6,Ff0,9e,c9,20,98,0®c, 
c9,60,30,03,c9,c0,90,04, 
c3,db,98,04,a9,2e,29,3f, 
29,7F,91,d1,8d,86,02,91, 
f3,20,9e,c8,cB,c®,28,60, 
20,39,c0,a5,fb,8d,b8,c3, 
a5,fc,8d,b9,c3,28,27,c3, 
a0,20,32,00,20,23,c0,28, 
2a,c0d,20,0c,c0,20,a8,Ff, 
Ed,cc,c2,d0,f2,20,ae,Fff, 
4c,d7,c1,28,98,c0,35,fb, 
c5,fd,a5,fc,e5,fe,60,20, 
7e,c1,a2,980,bd,b5,c3,20, 
aB,ff,e8B,e8,06,50,F5,60, 
PO, 3e,c3,4c,cf,c1,280,39, 
cd,a2,fd,20,3b,c8,a5,fd, 
Bd,b8B,c3,a5,fe,Bd,b3,c3, 
39,20,8d,ba,c3,29,27,c3, 
30,08,b1,Fb,20,a8,ff,c8, 
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c5aß 
c5a8 
c5b® 
c5b8 
c5c® 
c5c8B 
c5d® 
c5d8 
c5e8 
eS5e8B 
c5f® 
ce5fB 
"c698 
c688 


c61® 


1178 
1188 
11530 
1208 
1210 
1228 
1238 
1249 
1258 
1268 
1278 
1288 
1299 
13908 
1318 
13208 
1330 
1340 
1350 
1368 
1379 
1388 
1390 
14008 
1410 
1420 
1430 
1440 
14580 
1468 
1470 
1480 
1490 
1598 
1510 
1520 
1530 
1549 
1550 
1560 
15708 
15808 
1539 
1688 
1610 
1620 
1630 
1648 
1659 
1668 
1670 
1688 
1698 
1708 
1718 
1720 
1738 
1749 
1750 
1768 
1778 
1788 
1798 
1800 
1818 
1828 
1830 
1848 
1859 
1868 
1878 
1880 
1838 
1388 
13918 
19208 
1930 
19340 
1958 


c8,28,530,F6,20,ae,Ff,18, 
a9,28,69,b8,c3,b®,0c,8d, 
b8,c3,a9,20,65,fb,85,fb, 
42,55,03,39,08,8d,ba,c3, 
60,20,48,c0,00,06,28,41, 
e1,4c,cf,c1,20,7e,c1,2®, 
c£,FF,20,38,ff,c5,0d,d®, 
f6,20,3e,ff,4c,cf,c1,00, 
a5,c3,20,74,24,a9,37,8B5S, 
01,560,29,36,85,01,60,4d, 
2d,52,00,80,Ff,4d,2d,57, 
00,00,08,32,42,4d4,556,49, 
2452,57.,140C,753,45,48;58, 
er;0r,8£.,c6,55,02,37,63;, 
80,c3,c2,c8,el,c3,3b,c4, 
b7,c4,be,c8,36,c9,bb,ca, 
9e,c3,28,48,c9,d0,22,20, 
BFf,c4,28,3c,c4,32,00,bd, 
09,cf,20,88,ca,b0,2d,20, 
a8,ff,e8,bd,00,cf,20,32, 
c3,b9,21,20,38,ff,4c,2df, 
c4,28,3c,c4,28,4e,c4,20, 
ae,Ff,20,31,c4,28,7c,c4, 
20,Bf,c4,20,74,c4,20,62, 
c2,4c,cf,c1,a9,3f,a0,cc, 
20,76,c80,20,74,c4,4c,cf, 
c1,20,64,c4,a9,80,20,a8, 
ff 4c,ae,ff,a9,06,8d,bB, 
c3,a9,00,84,b9,c3,a9,02, 
8d,ba,c3,4c,27,c3,20,83, 
c0,20,88,ca3,b9,ce,20,a8, 
Ff,20,03,c0,28,92,ca,bßB, 
c3,4c,a8,ff,a9,00,8d,b8, 
c3,8d,b9,c3,39,01,8d,ba, 
c3,4c,27,0c3,a9,08,8d,ba, 
c3,4c,ae,ff,83,09,8d,b2, 
c3,8d4,b3,c3,20,3d,c2,20, 
a5,ff,30,f®,4c,ab,Fff,a9, 
03,8d4,b3,c3,39,00,8d,b2, 
e3,4c,2c,c2,28,48,c0,F®, 
06,29,3c,c4,28,4e,c4,20, 
ae,ff,20,64,c4,a9,90,2®, 
Ba,FfR, 29, 7USEH IC OR.CcT? 
89,35,80,cc,20,76,c0,a9, 
01,8d,3d,03,8d,3e,23,20, 
eu, Ff,F®,Ffb,c9,31,d0,03, 
“c,1e,c6,c9,32,F0,03,4c, 
7c,c98,20,67,c5,80,05,20, 
b2,c8,20,b2,c0,20,b2,c®, 
a9,12,20,d2,FF,a2,f1,b9, 
00,cf,f9,47,20,d2,FFf,c8, 
e8,d®,f4,ad,3d,03,20,57, 
c0,a9,92,20,d2,Ff,20,b5, 
cd,38,38,e9,11,48,38,20, 
51,c5,39,00,8d4,01,ce,20, 
b2,c0,20,9d4,c5,28,c2,c5, 
20,41,c5,68B,18,69,22,a8, 
98,b5,ad,3e,03,F8,0c,ad, 
3d,823,18,69,23,8d,3d,®3, 
4c,98;0c4,007734;04;, Ic,eE; 
c1,ad,28,ce,38,ed,®1,ce, 
£f9,52,89,bb,38,cc,4c,76, 
c0,18,569,1b,aa,bd,20,cf, 
8d,00,ce,20,b5,c0,20,bS5S, 
c0,ad,80,ce,4c,57,c8,2®, 
3c,c4H,89,12,20,a8,ffF,ad, 
3d,83,28,a8,Fff,208,ae,Ff, 
20,31,c4,20,7c,c4,20,8F, 
c4,30,Ff,8c,b2,c3,20,3d, 
c2,20,a5,ff,99,00,cf,c2®, 
ab,ff,a0,00,b3,00,cf,d®, 
03,8c,32,03,60,b9,00,cf, 
48,cB,b9,88,cf,4B,298,3c, 
c4,68,33,68,28,a8,ff,20, 
57,c0,Ba,20,38,ff,29,57, 
cß,ee,081,ce,28,b5,c®,“4c, 
ae,ff,20,31,c4,28,ae,Ff, 
29,7c,c4,a9,09,Bd,h2,c3, 
83,23,8d,b3,c3,28,3d,c2, 
20,235,ff,48,29,35,Ff,48, 
28,ab,Ff,28,32,c4,6B,aa, 
68,20,a8,ff,f0,2d,20,88, 
ca,390,03,4c, 24,c4,20,57, 
c8,82,20,aB,Ff,20,57,c2, 
2O,ae,ff,ee,801,ce,29,b5, 


.c9,208,e1,Fff,08,03,4c,3b, 


c5,ad,8d,02,F8,ac,68,58, 
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2138 
2148 
2158 
2168 
2170 
2180 
2198 
2200 
2218 
2220 
2238 
2248 
2250 
2268 
2270 
2288 
22908 
2308 
2310 
2329 
23308 
2340 
2350 
2369 
2378 
2380 
23908 
2400 
e41® 
2420 
2430 
e440 
E4SO 
2460 
2470 
2480 
2430 
2500 
2518 
2520 
2530 
25408 
2559 
2560 
2578 
2589 
2530 
26080 
2610 
2620 
2630 
2648 
2650 
2669 
2670 
2680 
2638 
2709 
2718 
27208 
2738 
2749 
2758 
2768 
2770 
2788 
2738 
28908 
2818 
2828 


42-,23,.05,40.7%,03,83,51, 
28,cc,280,76,c0,a2,00,Be, 
01,ce,20,cf,ff,Sd,02,ce, 
e8,c9,0d4,d0,f5,eB,8Ba,8d, 
02,ce,20,b2,c0,20,67,c5, 
30,05,22,00,bd,82,ce,c9, 
0d4,F8,28,d9,00,cf,08,6e8, 
c8,28,F0,F0,38,18,59,2®, 
29,F5,098,05,38,90,e3,ad, 
3e,83,d0,03,4c,3b,c5,ad, 
34,03,18,569,03,8d,3d,03, 
4c-,3d,06,58,38,2d,00,ce, 
48,18,69,02,28,280,b2,c0, 
a5,12,20,d2,FFf,a2,10,b9, 
88,cf,28,d2,Ff,cB,ca,d®, 
fS,2d,34,03,20,57,c0,a9, 
92,28,d2,FF,68,38,20,51, 
c5,28,b2,c0,20,84,c5,2®, 
ER,OSJEB HT E55, Hc5cef,ci, 
20,48,c8,F8,12,20,cf,Fff, 
c9,41,4080,83,40,2d4,c8,39, 
45,84,87,08,4c,32,c8,20, 
cd,c6,%c,eb,c6,20,35,c3, 
a3,07,84,63,03,a9,00,8d, 
bh2,c3,28,3d,c2,80,00,20, 
a5,ff,39,880,ce,c8,d0,Ff7, 
4c,ab,ff,a2,08,bd,8f,cB, 
20,d2,Ff,F8,803,e8,d0,F5S, 
a2,90,bd4,88,ce,20,d2, ff, 
e8,e0,a2,38,F5,22,00,bd, 
a2,c8,28,d2,FF,F8,03,e8, 
dd,FS,ad,a2,ce,20,d2,Fff, 
ad,a3,ce,28,d2,Ff,a2,04, 
a0,800,20,Bda,25,a2,34,a9, 
31,20,23,c8,28,b2,c9,e®, 
30,b0,F4,a2,46,a59,30,20, 
23,c8,28,b2,c8,e8,41,b®, 
£f4,a2,39,a9,380,28,23,c8B, 
e®d,39,30,05,28,b2,c0,d0, 
f2,82,02,20,03,20,0a,e5, 
&a0,23,a9,30,22,8F,28,d2, 
FF,88,F0,0a,ca,d®,E7,18B, 
69,01,a2,10,d0,F0,a2,03, 
a0,03,20,0a,e5,20,23,a9, 
31,a2,0f,20,d2,EF,18,69, 
01,88,F0,12,ca,d®,86,a9, 
30,82,10,dd,ee,cS,3a,d®, 
ea,18,69,07,d0,e25,a3,®1, 
85,02,22,04,2a5,02,69,22, 
a8,20,80a3,e5,a2,14,86,8b, 
a89,ce,85,8d,29,21,26,02, 
69,04,ca,d®,fb,BS,86c,a5, 
8b,a6,902,e8,12,98,20,ed, 
19,39,14,e0,1F,90,88,c9, 
11,980,14,a2,08,d8,2a,c5, 
12,30,0c,22,08,d8,22,c9, 
13,90,04,22,08,d®,1a,a5, 
Bb,4a ,4a,4a,28,b1,8c,a8, 
a5,8b,29,07,32,98,3d,ab, 
cB,d9,04,22,20,F0,02,22, 
04,a0,04,bd,b3,c8,20,d2, 
FF,e8,88,d0,Ff6,a5,8b,Fß, 
05,39,11,20,d2,FF,c6,Bb, 
10,25,e6,802,25,802,c39,24, 
d®,80,29,e7,FFf,28,78,c1l, 
4c,cf,c1,28,6F,c80,29,2d, 
20,d2,ff,ca,58,23,41,8d, 
87,cB,a9,28,20,b1,Ff,a3, 
F2,20,93,Ff,a9,23,29,28, 
FF,20,ae,ff,28,03,c0,8d, 
490,03,28,85,c0,8e,89,c8, 
8d,83,c8,20,03,c0,8d, 41, 
03,280,35,c0,Be,8c,c8,8d, 


8d,c8,20,7e,c1,a2,00,bd,' 


85,c8,28,38,ff,e8,e0,03, 
90,f5,28,ae,Ff,a9,08B,20, 
b1,Ff,a9,e2,28,93,ff,00, 
BesEr HI CH He LOL, 
00,1e,1e,08,1e,1e,00,93, 
2e,3d,46,52,45,49,0d,44, 
49,53,4b,4e,41,4d,45, 3a, 
29,00,20,20,20,20,49,44, 
32,28,90,21,02,04,08,10, 
20,40,80,17,20,92,3d,®5, 
2e,05,9d,9e,23,95,9d4,a9, 
21,84,3d,83,20,67,c5,a0, 
22,b9,08,cf,F0,13,98,18, 


aa 
BE 
le 
67 
e3 
Fb 
cd 
568 
86 
30 
9a 
bb 
10 
33 
bi 
62 
d4 
bF 
62 
5a 
el 
3a 
Fo 
03 
dS 
id 
03 
>4 
He 
b® 
53 
66 
28 
83 
bb 
1=]6) 
3c 
4d 
38 
bb 
d6 
34 
78 
7ı 
01 
ae 
Se 
c6 
es 
36 
le 
bb 
cb 
Bd 
Be 
7E 
Ze: 
ic 
ed 
cc 
e6 
bh 
50 
96 
ıF 
49 
ef 
en 
63 
dd 
ab 
3a 
05 
ca 
23 
SE 
e5 
37 
6d 
ab 
fe 
25 
of 
74 
41 
Bc 
d8 


cBd® 2838 data 69,20,28,30,Ft4t,2d4,3d,983, 3688 59,28,41,4e,53,45,49,97 
cBd8 28428 data 18,69,03,8d,3d,83,4c,cH,. 36398 

c8e® 2858 data cB,39,82,39,08,cf,c8,ad, 3798 20,52,45,41,44,20,5%, 
cBeB 2869 data 48,03,99,00,cf,c8,ad,“41, 3719 7,.33,46,2E753,45,33.55 
cBf® 2870 data 03,39,00,cf,38,48,29,G2, 3728 4F,52,0d,20,57,20,2G,3e, 
c8F8 2888 data aß,cc,29,76,09,568,a8,a2, 3738 29,57,52,49,54,45,20,54, 
cS00 2838 data 020,?8,cf,Fff,cB,e8,c3,0d, 37498 se,41,43,46b,02£,53,45,4b, 
c9908 2900 data F®,05,99,00,cf,d9,F2,a3, 3758 Sy,4f,52,0d,080,20,4c,20, 
cS18 2919 data a8,539,00,cf,c8,e8,eß,1il, 3768 2d,3e,28,4c,49,4e,4b,55, 
c9318 2928 data 90,F5,98,18,569,09,38,a9, 3770 4e,47,20,55,4e,54,45,52, 
c922 2930 data 01,59,00,cf,29,00,8d,b8, 3788 53,55,43,48,45,48,0d,20, 
c928 2948 data c3,a9,93,8d,b9,c3,28,53, 3798 53,28,2d,3e,20,53,43,48, 
c330 2950 data c2,20,59,03,40,37,c4,20, 3808 52,45,49,42,54,29,4e,41, 
c338 2968 data 3c,c4,ad,40,03,20,a8B,ff, 3818 34,45520,49, Ya; 20; 45,835; 
c3490 2978 data ad,41,03,20,a8,FFf,20,ae, 3829 52,45,43,54,4F,52,59,0d, 
cS4B 2988 data FF,20,31,c4,28,7c,c4,28, 3838 29,4b,20,2d,3e,20,4b,4f, 
c950 2998 data 74,c4,a9,00,8d,b8B,c3,a9, 3840 S59,50,45,4c,41,44, 52,45, 
c958B 3008 data 83,84,b9,c3,39,02,8d,ba, 3858 53,53,45,20,40,4f,45,53, 
c960 3818 data c3,20,27,c3,39,00,20,28, 3868 43,48,45,4e,0d,29,48,20, 
c96B 3020 data Ff,a9,ff,20,a8,Ff,20,ae, 3870 2d,3e,20,48,45,4c0,50,20, 
c978 3038 data ff,29,27,c4,a9,08,8d,ba, 3888 £0,20,40;49,53,54,45,5% 
c937B 3048 data c3,4c,cf,c1,a9,e5,ad,cc, 3898 20,42,45,46,45,48,4c, 45, 
c9380 3058 data 20,76,c0,20,0c,c0,8d,46, 3398 0d4,20,58,29,2d,38,20,45, 
c9388 3068 data 03,8d,45,03,a9,ff,ad,cc, 39198 58,49,54,0d,00,0d,2d,4c, 
c390 3078 data 20,76,c0,a9,08,20,cd,20, 3920 49 ,4e,4b,2f,4f,4e,45,28B, 
c998 30808 data 76,c0,20,cd,c6,a9,12,8d, 3930 31;2352r, 41,30, H072B73E, 
c93ad® 3090 data 43,03,a0,44,ce,43,03,28, 3948 29,26,46, 52.545,28, 33728 
c9a8 3100 data b2,c0,ad,43,03,48,20,57, 3950 00,2d,2d,46,49,4c,45,"4e, 
c9b8 311® data c0,20,b5,c0,20,b5,c0,58, 3960 y1,4d,45,4e,20,3F,3a,00, 
ce9b8 3128 data c9,12,d0,03,4c,cf,c1,bS, 3979 01,93,94,04,20,20,20,20,‘ 
c9c0 3130 data 20,ce,d®,12,38,98,e9,04, 3980 29,20,29,20,2a,2a,2a,20, 
c9cB 3148 data F®,03,a8,d0,d7,a0,8c,a9, 3999 45,4c,4f,50,50,59,2d,4d, 
cSdd 3150 data 24,8d,43,03,dd,ce,8d,47, 4900 yF,4e,493,54,4f,52,20,°Pa, 
cSdB 3168 data 83,a9,00,8d4,44,03,84,a5, 4019 Pa,2a,0d,20,20,20,20,20, 
c9ed 31708 data a2,08,8e,48,03,c8,b9,00, 4020 20,20,20,20,20,20,20,56, 
c9eB 3188 data ce,1B,4a,90,11,85,aa,2®, 4938 4Ff,4e,29,4e,2e,4d,2e,20, 
c9f® 3190 data 08B,ca,a5S,aa,ce,47,03,d®, 4940 26,20,44,2e,57,2e,99,02, 
c9f8 3208 data 05,a4,a9,4c,c4,c9,ee,44, 4950 0d,9d,12,46,41,4c,53,43, 
ca00 3219 data 83,ce,48,03,d0,e3,F0,d8, 4950 y8,45,52,29,42,4c,4F,43, 
cadB 3228 data 84,aB,ad,45,03,84,46,03, 4070 4b,2f,53,45,4b,54,4F,52, 
cald® 3230 data 20,9a,ca,29,36,ca,ce,“46, 4080 92,01,00,02,04, 12,42 ,"4c, 
cal8ß 3248 data 03,d8,f8,ad,43,03,F8,Sc, 49S0 4E,42,4b,41,4e,5a,2e,20, 
ca20d 3250 data a39S,12,20,d2,FfF,ad,44,03, 4100 46,41,40,53,43,48,20,9?, 
cap8 3260 data 20,57,c0,a9,92,20,d2,FfFF, 4110 01,908,0d,4e,41,4d,45,20, 
ca30 3270 data 20,b5,c0,24,a8,60,20,31, 4129 44,45,53,20,456,49, 40,45, 
ca3B 3280 data cH,209,ae,ff,20,7c,c4,aS, 4130 53,20,3a,20,090,0d4,0d,41, 
ca4d 3290 data 20,8d,b2,c3,a9,03,8d,b3, 4140 Ye,5a,41,48,40c,20 40,49, 
ca4B 3308 data c3,20,3d,c2,20,a5,FFf,“48B, 4159 Ye,4b,2d,42,4c,4F,45,43, 
ca50 3310 data 20,a5,ff,48,20,ab,ff,20, 4160 4b,45,28,24,29,38,00,0d, ed 
sa5B 3320 data el,ff,d®d,03,4c,cf,ci,ad, 4179 04,0d,54,52,41,43,4b,00, 4b 
ca60 33308 data Bd,22,F8,03,4c,ac,ca,20, 4189 20,53,45,43,54,4F,52,0d, 19 
caß8 3340 data 3c,c4,68,a2,568,20,88,ca, 4198 00,24,24,0d4,44,49,53,4b, F6 
ca70 3350 data 90,04,58,4c,ac,ca,20,a8, 4290 28,45,49, 4e,47,45 30735; dE 
ca78 3368 data FF,Ba,20,92,ca,S0,03,4c, 4219 47,54,20,3F,00,20,05,9e, 30 
ca880 33708 data ac,ca,20,a8,Ff,4c,ae,ff, 
caB8 3388 data F0,06,c39,24,b2,02,18,5®, 
ca9® 3390 data 38,60,30,Fc,c9,15,b®,F8, 
caS8 340828 data 18,60,20,3c,c4,ad,43,03, Bu = 5 
caad 3410 data 20,aB,Ff,ad,44,03,20,28, a ee 


caa8B 3420 data Ff,4c,ae,ff,20,ae,ff,ae, 69019 s-s+h+1l-c:c=-s>255:5-255-5s 5034 
cab® 3430 data FF,3a,a9,00,84,46,03,a4, and 255:poke a+b,h+l:next 

cab8 3440 data aß,4c,f2,c9,a9,93,20,d2, b:gosub 60049 

cac® 3450 data FF,a9,d2,39,ca,20,76,c®, 60029 FS-"pruefsumme ok":iF s<> 5633 
cacß 3456® data a9,b5,a0,cb,20,76,c0,“c, h+l then f$="[rvs] 

cad® 3478 data cf,c1,01,04,2a,2a,28,20, pruefsummenfehler”:Ff=£+1 

cad8 34B® data 4b,4Ff,4d,4d,41,4e,44,4F, 60039 gosub 608S0:next a:print ” 2267 
caed 3430 data 53,20,32,20,2a,2a,22,2d, Cdown]”f”fehler”":end 

caeB 3500 data ®d,20,42,20,2d,3e,28,#1, 50040 read h$:gosub 560059: h=1* 2715 
cafd 3510 data 4e,5a,45,49,47,45,20,44, 16:h$S=-mid$ Ch$,2) 

caf8 3528 data 45,52,20,4?,41,4d,0d,28, 60059 l=-asc Ch$5+”x”)-48:iFf 1<8 3198 
chd0 3538 data 4d,20,2d,3e,20,41,4e,5a, or 1>22 then 69082 

chdB 3548 data 45,49,47,45,20,44,45,52, 60069 if 1<18 then return 1944 
ch1d 3558 data 20,5a,45,52,4f,2d,580,41, 690278 1-1-7:iF 1>9 then return 1334 
cb18B 3568 data 47,45,9d4,20,56,28,2d,3e, 60088 fF$="[rvsleingabefehler”:1- 24698 
chb2® 35708 data 20,56,45,52,53,43,4B,43, O:F=-f+l 

ch28 358@ data 45,42,54,20,56,4f,4e,2D, 69052 print "zeile” peek (64)* 2726 
cb3® 3598 data 53,50,45,49,43,4B,45,52, 256+peek (63)F$: return 

cb38B 356®® data 20,439,4e,28,46,4c,4F,58B, 

cb48 361® data 50,53,0d,20,49,20,2d,3e, 

cb48 3628 data 29,46,45,48,40,45,52,41, saven des programms nach starten 

.cb50 3630 data 42,46,52,41,47,45,20,4f, des loaders mit 

ch58 3649 data 44,45,52,20,46,40,4F,5®, 

cb60 36508 data 50,59,42,45,46,45,4B,4c, poke 43, 08:poke 44,192 

cbEB 3668 data 45,04,20,24,20,2d,3e,20, poke 45, 49:poke 46,205 

cb7®0 3678 data 44,49,52,45,43,54,4F,52, save "name”,B 


. 
. 
= 


50088 For a-4S152 to 52512 step 4936 


DMON zeigt, was auf Disketten gespeichert ist. 


SURVERSNECEHFITERVOLD ER 
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2 Praxis Listing 


HELP 


hilft beim Fehler suchen 


System: C64 
Typ: Utility 
Sprache: ASM 


Um Fehler genau zu lokalisieren, 
arbeitet HELP in drei Ebenen mit 
dem Commodore 64 zusammen. 
Die jeweiligen Programmteile 
sind über Betriebssystemvekto- 
ren in das Betriebssystem einge- 
baut, 

Die benutzten Vektoren sind: 

1. Fehlermeldung 768/769 

2. Basiceingabe 770/771 

3. Tokenumwandlung 772/773 
Am Programmanfang steht eine, 
auf den ersten Blick etwas um- 
ständlich programmierte, Initiali- 


"sierungsroutine. Es wird immer 


erst der Vektor ausgelesen und 
dann in die entsprechende Stelle 
im Programm geschrieben. Das 
hat den Vorteil, daß HELP auch 
mit anderen Erweiterungen funk- 
tioniert, da HELP nicht stur ins Be- 
triebssystem zurückspringt, son- 
dern zu der Speicherstelle, die 
vorher durch den Vektor ange- 
sprochen wurde. 

Zu 1: Fehlermeldungen 


In diesem Programmteil überprüft 


[e114]%) 
cd8B 
c01® 
c®18 
c020 
co28 
c030 
c038 
co4® 
c048 
c050 
c058B 
c060 
c06B 
c070 
c078 
c089 
c088 
c030 


data c8,8c,5b, 
data 8d,00,03, 
data 83,8c,03, 
data ‚ag, 
data ‚8cC,03, 
data ‚Bd, 
data A ‚ad, 
data ‚23,60, 
data A RI 
data ‚95,14, 
data ‚4c,00, 
data : ‚a6, 
data n 05 
data R 695 
data , ‚@c, 
data r ‚ce7, 
data ‚F®,06, 
data ‚88,b1, 


for a-4S152 to 439296 step 
8:35=-8:c-®:for b=® to 7: 


gosub 60248 


608812 s=-s+h+l-c:c=s>255: s=-255-s 


HELP hilft allen Basic-Programmierern 
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data ad,20,03,ac, 
‚ag 
‚oı 
‚Bd, 
‚ad, 
„ad 
‚cd, 
‚Bd 
‚80, 
‚oc, 
is 
‚a5 
‚00 


Die mühsame Fehler- 
suche hat ein Ende. 
HELP zeigt einen Feh- 
ler, sobald er aufgetre- 
ten ist, in der Basic- 
Zeile invers an. 


o1 


‚cd, 
‚38, 
‚7b, 
‚03, 
‚00, 
‚Sc 


HELP, was für eine Fehlermel- 
dung ausgegeben werden soll. 
Steht im X-Register 128, so soll nur 
READY ausgegeben werden. 
Dann wird der Rest der Routine 
weggelassen, da ja keine Fehler- 
meldung ausgegeben werden soll 
und auch kein Fehler vorliegt. 
Nun wird noch getestet, ob der 
Fehler im Direktmodus aufgetre- 
ten ist. Im Direktmodus steht in 
der Speicherstelle 157 eine 128. 
Ist nun ein Fehler aufgetreten, so 
wird die aktuelle Zeilennummer 
aus 57/58 nach 20/21 gerettet. 
Außerdem wird das Flag in Spei- 
cherstelle 2 auf 255 gesetzt, damit 
der Routine, die in den Basicein- 
gabevektor eingebunden ist, mit- 
geteilt werden kann, daß ein Feh- 
ler aufgetreten ist. 


‚283,8d,5a, 
‚43,a0,c®, 
‚23,ad,22, 
6b,cd,8c, 
c0,8d,22, 
‚086,03,ac, 
8c,96,c0, 
‚06,03,8c, 
F®,12,a5, 
a5,39,a4, 
‚89,££,B5, 
‚Bo2,f®,Da, 
‚85,22,4c, 
a6,60,18, 
01,e8,c5, 
d®,08,a9, 
d®,0a,a5, 
85,c07,85, 
‚28,c0,00, 


Zu 2: Basiceingabe 

Es wird das Flag in Speicherstelle 
2 getestet. Ist es gelöscht, so wird 
die Routine wieder verlassen. 
Sonst wird die Anfangsadresse 
der Basiczeile berechnet, deren 
Zeilennummer in 20/21 steht. Das 
besorgt die Betriebssystemrouti- 
ne ab 42515. Dann wird das Flag 
gelöscht und die Zeile gelistet. Da- 
nach geht es bei der Speicherstel- 
le weiter, auf die der Vektor zeig- 
te. 


Zu 3: Token-Umwandlung 

In den Speicherstellen $5F/60 
steht ein Zeiger in die zu listende 
Zeile. Im Y-Reagister steht ein Off- 
set, der mit jedem gelisteten 
Zeichen erhöht wird. Es wird nun 
das HI-Byte dieses Zeigers in das 
X-Register gebracht. Das Lo-Byte 
setzt sich aus dem Offset im Y-Re- 
gister und dem Wert von der Spei- 
cherstelle S5F zusammen. Außer- 
dem wird der Offset um eins er- 
höht, damit das fehlerhafte 
Zeichen rechtzeitig erkannt wird. 
Nun wird der Wert von Akku und 
X-Register mit dem Zeiger in den 
Basictext, der auf den Fehler 
zeigt, verglichen. Sind sie ver- 


and 255:poke a+b,h+l:next 
b:gosub 50840 
f$=-"pruefsumme ok”:iF s<> 
h+l then FS=-"[rvs) 
pruefsummenfehler”:f=F+1 
gosub 658858:next a:print ” 
Cdown]"f”"fehler”:end 

read h$:gosub 60050: h=1* 
16:h$s-mids Chs,2) 

l-asc ChS+"x")-4B/if 1<0 
or 1>22 then 68080 

if 1<1®8 then return 
1-1-7:ifF 159 then return 


fS=-"Crvsleingabefehler":1- 
O:f=-f+1 

print "zeile” peek (64)* 
256+psek (63)F$: return 


saven des programms nach starten 


des loaders mit 


4294 
poke 43, 


®:pokes 44,192 


poke 45,151:poke 46,192 


5034 save "name”,B 
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schieden, wird noch Flag 2 gete- 
ste, um einen eventuell einge- 
schalteten Reversmodus auszu- 
schalten. Nun wird das Y-Register 
um eins erniedrigt, weil es am An- 
fang um eins erhöht worden war 
und das Betriebssystem die alten 
Werte benötigt, um korrekt wei- 
terzuarbeiten. Sind die beiden 
Zeiger gleich, wird der Reversmo- 
dus eingeschaltet und Flag2 ge- 


setzt. Anschließend werden noch 


der Akku und das Y-Register be- 
richtigt. 

Noch etwas dazu, wie HELP mit 
dem Betriebssystem zusammenar- 
beitet. Der erste Teil (Main |) 
überprüft nur, ob im Programm- 
lauf ein Fehler aufgetreten ist. 
Wenn dies so war, wird die aktu- 
elle Zeilennummer aus den Spei- 
cherstellen 57/58 in die Speicher- 
stellen 20/21 gerettet und das 
Flag gesetzt, damit der Pro- 
grammteil Main 2 weiß, daß ein 
Fehler auftrat. Main 2 ist in die Ba- 


HELP 


(EC) BY 


E.jefolele) 
ANFANG 
LISTIN 
NUM 
VEK1 
VEK2 
VEK3 
ZEILE 
DUMMY 
FLAG 


NAKIENTESIERSIZESTEERTSTAERE FENSTER 


#<CMAINI1I 
#> CMAINI) 
VEK1 
VEK1+1 
VEKZ2 
VEK2+1 
END2+1 
ENDE+2 
#<CcMAINEI . 
#> CMAIN2) 
VEK2 
VEK2+1 
VEK3 
VEK3+1 
END3+1 
END3+2 

#< CMAIN3) 
#> CMAIN3I 
VEK3 
VEK3+1 


> 


HELP als Assembler-Source-Code 


FRANK SCHUSDZIARRA 
ROBERT-KOCH-SIR. S0 
2350 NEUMLENSTER 


Praxis Listing 


siceingabewarteschleife einge- 
bunden und wird nur aktiv, wenn 
dieses Flag gesetzt ist. Dann wird 
die Startadresse der fehlerhaften 
Zeile berechnet. Dazu muß die 
Zeilennummer in den Speicher- 
stellen 20/21 gespeichert sein, 
das hat Main 1 schon besorgt. Den 
Rest erledigt eine Betriebssystem- 
routine ab 42515. Anschließend 
wird die fehlerhafte Zeile noch ge- 
listet. Das geschieht von Main 2 
aus. Hier greift Main 3 ein, der 
Programmteil, der in die Listrouti- 
ne eingebunden ist. Um die Zeile 
zu listen, muß die Startadresse der 
Zeile in den Speicherstellen 95/96 
stehen; das hat Main 2 schon 
durch den Aufruf der Betriebssy- 
stemroutine ab 42515 erreicht. 
Nun wird noch der Zeiger in die 
fehlerhafte Zeile (95/96 plus den 
Offset im Y-Register) ins Lo/Hi- 
Format gebracht, damit er mit 
dem Zeiger in den Basictext ver- 
glichen werden kann. Bei Über- 


;VEK1 LESEN 
;UND AN DAS 
;ENDE UDN MAINI 
;SCHREIBEN 
ANFANG VON 
;MAIN1 ALS 
;NEUEN VEKTOR 


EBENSO MIT 
|VEK2, MAINZ 
"VERFAHREN 


;UND AUCH MIT 
;VEK3, MAIN3 


-EONT2 


-END3 


| RE 


einstimmung wird das Zeichen re- 
vers ausgegeben. 


Main 2 stellt fest, ob ein Fehler 
auftrat und rettet die Zeilennum- 
mer. Main 2 berechnet die Än- 
fangsadresse der Zeile und läßt 
diese vom Betriebssystem listen. 
In die Listroutine greift Main 3 ein 
und gibt das Zeichen, bei dem der 
Fehler auftrat, revers aus. Das 
Programm ist als kombinierter 
Hexdump-Basiclader abgedruckt. 


Wie man mit dieser Art Listing um- 
geht, steht auf Seite 8. Falls Sie 
den Checker nutzen, müssen sie 
C000 als Startadresse eingeben. 


Geben Sie das Programm als Ba- 
sic-Lader ein, so speichern Sie die 
Datas ab, starten den Lader mit 
RUN und speichern das fertige 
Maschinenspracheprogramm wie 
am Ende des Listings angegeben. 


Laden mit: LOAD „name',8.l. 
Starten mit SYS 49152 
(Frank Schusdziarra) EEE 


;‚INIT ENDE 


;NUR READY? 

;JA,ENDE 

;DIREKT- 

‚MODUS ? 

;JA, ENDE 

;ZEILENNUMMER 
NUM+1 ;LADEN UND 
ZEILE ; RETTEN 
GEILEFT SZ 

;FLAG FUER 

;MAIN2 SETZEN 

‚ZUM BETRIEBSSYSTEM 


‚FLAG GESETZT 

;NEIN, ENDE 
;ANFANGSADR. BERECHNEN 
FLAG 

;LOESCHEN 

;ZEILE LISTEN 

; INS BETRIEBSSYSTEM 


;XR MIT 'ZEIGER LADEN 
;OFFSET (YR) 
;ERHDEHEN UND 

;ZU S5SF CZEIGER) 
;ADDIEREN 

;UEBERTRAG ? 

JA, XR +1 

;MIT $7A/7B VER- 
;SLEICHEN 

;<£>, DANN 

;ZuU EONTI 

;SONST, REVERS- } 
‚MODUS EIN 

:FLAG2 SETZEN 
;UNBEDINGTER SPRUNG 
;‚FLAG2 TESTEN 

;=0, ENDE 

;<>0, REVERSMODUS AUS 


CONPARE 


57A 
- EONT1 
. 57B 

EONT1 

#512 

5C7 

s03 

CONT2 

503 

EONT2 

#500 

sc? - 

503 ;‚FLAG2 LOESCHEN 
‚ENDE, YR UND AKKU 
;WERDEN BERICHTIGT 
;‚INS BETRIEBSSYSTEM 


(35),Y 
JMP DUMMY 
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| 
| 
| 
| | 


| 
| 
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IF 
N 
j 


Floppy auf die 
Sprünge geholfen mit dem 
Boot-Seetor Manager 


System: C128/Floppy 1570/71 
Typ: Utility 
Sprache: Basic 


Boot-Programme entwerfen wird 
mit BSM zum Kinderspiel. Er er- 
möglicht folgende Arbeiten: 

— Erstellen beliebiger Boot-Sek- 
toren (Block 1,0 einer Disk). 

— Erstellen von nachfolgenden 
Boot-Sektoren (Sektoren 1,1 
und folgende) die der Sektor 
1,0 nachlädt (maximal 100). 

— Kopieren des Boot-Sektor und 
maximal 100 'Folgeboot-Secto- 
ren' auf andere Disketten. 

— Wahlweises Arbeiten mit einer 
oder zwei Floppy-Stationen 
(Gerät 8+9), wobei es gleich ist 
ob man aufeine 1541 oder 157] 
Floppy zugreitft. 

— 40- oder 80-Zeichen-Modus. 
Das Programm arbeitet sowohl 
mit einem 40-Zeichen-Monitor/ 
Fernseher als auch mit einem 

 80-Zeichen-Monitor. 

Durch die letzten beiden Punkte 

ist das Programm von Besitzern ei- 

nes © 128, die ihr System nicht voll 
ausgebaut haben, nutzbar. 

Nach Einladen und Starten des 

Programmes wählt man anhand 

der Tasten Fl bis F7 die- ge- 

wünschte Funktion. STOP/RE- 

STORE ist gesperrt; eventuelle 

Fehler werden abgefangen. 

Im Menüpunkt F3 will der C 128 

wissen, ob man mit einer oder 

zwei Floppies kopieren will. Nach 

Kopieren des Sektors 1,0 entschei- 

det man sich, ob Folgeboot-Sekto- 

ren kopiert werden. Wichtig: Ma- 
ximal 100 Folgebootsektoren wer- 
den kopiert! 

Menüpunkt F5 ermöglicht das Er- 

stellen von Folgeboot-Sektoren. 


Es muß ein File existieren, das zu _ 


Folgeboot-Sektoren umgewandelt 
wird. Es ist möglich, das File auf 
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Um eigene, frei wähl- 
bare Boot-Sektoren zu 
entwickeln, war es bis- 
her notwendig, einen 


Disk-Monitor zu benut- 


zen. „Boot-Sector Ma- 
nager“ vereinfacht den 
Umgang mit dieser 
Autostart-Funktion. 


einer anderen Diskette zu haben, 
auf der die Folgeboot-Sektoren 
stehen sollen. Das Programm ver- 
langt nach Start der Umwandlung 
die richtige Eingabe des File-Na- 
mens, alles weitere geschieht 
selbständig. 

Über Fl erreicht man die Boot- 
Sektor-Erstellung. Hier werden 
vom Änwender entsprechende 
Eingaben gefordert, die das Aus- 
sehen des Sektors bestimmen. 
Der Sektor wird zunächst im Com- 
puter komplett erstellt und dannin 
Block 1,0 eingetragen. 

Zu Beginn werden die Bytes 0 bis 
6 im Sektor, — die wichtigsten Da- 
ten —, angefordert. Automatisch 
wird vom Programm die Kennung 
„CBM" in Byte O bis 2 eingerichtet. 
Anschließend wird nach Folge- 
boot-Sektoren gefragt. Soll der 
Boot-Sektor keine Folgeboot-Sek- 
toren nachladen, werden die 
Bytes 3, 4 und 6 automatisch auf '0' 
gestellt. Man muß dann nur die 
gewünschte RAM/ROM-Konfigu- 
ration des C 128 für Byte 5 einge- 
ben. Sollen weitere Sektoren ab 
Block 1,1 nachgeladen werden, so 
ist zunächst in Dezimal! die Anzahl 
der nachzuladenden Sektoren 
und anschließend die Adresse im 
Computer, ab der diese Daten ab- 
gelegt werden, anzugeben (hexa- 


Pe ea 


dezimale Schreibweise), Diese 
Eingaben befinden sich im Boot- 
Sektor in Bytes 3, 4 und 6. 

Von diesen 7 Bytes hängt es ab, ob 
der Boot-Sektor richtig funktio- 
niert Man hat die Möglichkeit, 
Daten zu verändern oder im Pro- 
grammablauf weiterzumachen. 
Anschließend wird über Textaus- 
gaben entschieden. Falls ja, den 
Text, der in der Meldung „BOO- 
TING.. .* erscheinen soll, einge- 
ben. Durch Eingabe eines Hoch- 
kommas (*) und anschließender 
Steuercodes (CTRL/Zahl, etc.) be- 
einflußt man die Ausgaben des 
Textes auf dem Bildschirm. 

Bei entsprechenden Eingaben ist 
der Boot-Sektor in der Lage, ein 
auf der Disk befindliches File 
(Programm) zu laden. Hierbei 
richtet sich der Computer nach 
der Ladeadresse, die im File ab- 
gespeichert ist. Gibt man bei der 
Frage, ob ein Programm gebootet 
werden soll, „J* und anschließend 
einen Programmnamen ein, wird 
völlig unabhängig von etwa vor- 
handenen Folgeboot-Sektoren 
das Programm geladen. 

Im Anschluß an diese Eingaben 
bleibt es vollständig dem Anwen- 


der überlassen, wie weiter verfah- 


ren wird. Der Computer erwartet 
im Boot-Sektor ein ÄAssemblerpro- 
gramm mit dem Anwendungen 
gesteuert werden. 

Über ein Auswahlmenü wählt 
man, ob ein bereits erstelltes As- 
semblerprogramm in den Boot- 
Sektor geladen wird oder bereits 
festgelegte Verfahrensweisen 
(Sprung in 64er oder 128er Direkt- 
modus) vom Boot-Sektor ausge- 
führt werden. 

Danach ist der Boot-Sektor inner- 
halb des Computers erstellt und 
wird auf der gewünschten Disket- 
te abgespeichert. 

R. Pieroth EEE 


un Pr aA XIS-Listing 


bank ®:poke 792,125:c1r : 

bs=®:bank 15:color B,1:color 4,1 

if rwindow (2)=88 then color B,1:fast 
:bs=28 

print chr$ (27);”m":dim a1%(25500): 
trap 2798:g1-8:g2=B 

sys 51748:color 5,14:scnclr :char 1,8+ 

bs,6, "C23cbm @J” 

char ‚B+bs, 7, "[2spaces]Jboot-sector 
manager[2spaces)”,1 

char ‚5+bs,8, "[4spaces]von robert F. 
pieroth[4spaces)",1 

char ‚5+bs,9,” peterstr. “4[2spaces) 

6052 muehlheim ”,1 

color 5,16:print 


print :print tab(122-bs)”'fi1' zum 
erzeugen eines boot-sectors” 

print tab(42-bs)"'f3’ Fuer kopieren 
von boot-sectoren” 

print tab(42-bs)"’f5’ macht 
nachfolgende bootsectoren” 

print tab(49-bs)”’f7’ Fuer 
programmende” 

key 1,"1”:key 3,"2”:key 5,"3”":key 7, 
"y’".:get key a$:color 5,14 

on val Ca$) goto 700,1820,2300,25690: 
goto 148 


rem : 

& block ‚-read,-test, -write 

if ds=® then return :else color 5,2: 
print ”"disk-Ffehler:[2spaces}”;ds$ 
color 5,14:print :print "taste 
druscken”:get key n$:gosub 228:goto 
490 


close 1:close 2:close 3:closs 15: 
return 


window @+bs,2,39+bs,24,1:print tab 
2490)”C36cbm EI” 

print ”[rvs]Jlesen von sector”t”[left], 
"s"[left] - bitte wartenloff]”:print 


gosub 228:open 15,91,15,”i®”:gosub 208 
open 2,g1,2,”#":print#15, "va”;2;0;t;s: 
gosub 208 

print#15, ”b-p”;2;®8 


if 1f$=-"j"” and gi=g2 then return 

for i4=® to 255:get #2,bt$:31%li4)=-asc 
Cbt$+chr$ (B)):if i4=6 then Fs$-bt$ 
next :gosub 228 


scncelr :if gi=g2 or m$="j" then begin 
print ;print :color 5,16 

:print :print ”zieldiskette einlegen. 
geraet:”;g2:print "taste druecken” 
:get key c1$:color 5,14:bend 


window ®+bs,2,39+bs,24:print tab(240)” 

C36cbm @,3spaces)” 

print ”"[rvsltesten von block”"t"Lleft], 
»’s’Cleft] - bitte wartenloff,3spaces]” 
:print 

gosub 228:open 1,g92,15,”"i10”":gosub 2808 
open 3,g98,3,”#":print#1, "ua"”;3;8;t;s: 

gosub 208 

print#1,”b-p”;3;0:get #3,t$,s$ 

if t$="”" or asc (t$)>40 and s$=""” or 
asc (s$)-1 then 518 

color 5,2:print :print :print "block 
ist bereits belegt!!":color 5,16 
print :print "alte daten 
veberschreiben? (j/n)” 

get key 18:if 1$="n"” then gosub 220: 

goto 638:else if 15<>”j” then 490 


NEWS FERN RER 


senclr :print#1,”"b-£f";8;t;s 

color 5,14:print tab(248)”C[C39cbm @)” 
print "[rvs]schreiben von block”t” 
[left], ”s"Cleft] - bitte wartenloff)”: 
print 

print#1,”b-p";3;0:if 1F$="j” and gi“ 
g2 or fe$<>”” then return 


Eor i3"-® to 255: print#3,chr$ 
(al%Ci3)); :next 


print#1, "ub";3;0;t;s:gosub 200 
print#1,”b-a”;d;t;s:gosub 2099:gosub 
220 


if 1£$=-"j" or fe$<>”"” then return 


color 5,16:print :print :print ”sector 
ist installiert.” 

print :print "auf weiterer disk 
speichern? (j/n)”:color 5,14 

get key m$:if m5=-"j" then 360 

if m$<>"n” then E4d:selse m$="":return 


:: boot-ssctor erzeugen 


senelr :print tab(bs)”[4dchm @J” 

char ‚bs,1, "aufbau des boot-sector 
Cspur 1, sect. 8)”,1:color 5,16 

print tab(160+bs)”sind eingaben in 
hexcode notwendig, gibt” 

print tab(bs)”das programm disse vor. 
es ist dannl2spaces}’S’” 

print tab(bs)”vorangestellt.” 

print tab(24+bs)”beispiel: $Sff2a”: 

print 


21%10)-67:a1%C1)-56:31%(2)=77 


ehar ‚bs,18,”sind folgebootsectoren 
vorgesehen? (3j/n)” 

get key a$:if a$-"n"” then 850:else if 
a$<>”j” then 888 


sys 51748:char ‚bs,12, "anzahl[6spaces] 
<":window 6+bs,12,11+bs,12:input bS 

if val (b$)>255 then B208:else al%(6)- 
val (b$) 


sys 51748:char ‚bs,14,”an welche 
adresse zu laden[2spaces]$50000” 
window 26+bs,14,33+bs,14: input o$:if 
leftS$ (c$,1)<>”$” then 858 

if len (c$)-5 then al%(4)-dec ( mid$ 
(c$,2,2)):31%C3)=dec (C right$ (c$,2)): 
else 858 


sys 51748:char ‚bs,16, 
"speicherkonfigurationl2spaces]1800”: 
window 21+bs,16,27+bs,16 

input d$:if left$ (d$,1)=-"$” and len 
(dS)=3 then al%(5)=dec ( rights (d$, 
2)):else 890 


window ®+bs,9,39+bs,20,1:print ” 
Ccbm 3,408shift *J” 

print ”C[Ccbm Bldies sind die ersten 7 
bytes im sector:”:print 

print ”Cgrn]lbyte ® to 2: [cbm 8]$”; 

right$ ( hex$ (al%(0)),2)” $”;right$ 
C hex$ (al%(1)),2)" $”;right$ (C hex$ 
(al%cl2)),2)” Cc b m)” 

print "Cgrnlbyte 3: [chm 815”; rights 
C hex$ (al%(3)),2)” Clowbyte 
ladeadresse c128)” 

print "[Cgrn]lbyte 4: [cbm B]$”;right$ 
C hex$&5 (al%(4)),2)3” Chighbyte 
ladeadresse)” 


980 


3930 


10028 
1010 
1828 
1838 


1848 
1058 


1060 
1078 
1088 


1098 


1100 


1110 
11208 
1130 


11490 
1158 
1160 
1178 
1188 
1198 
1208 


1210 


1222 
1230 


1240 
1250 
1260 
1270 
1280 
1230 
1300 
1310 
1320 
1330 
13490 


1358 


1368 
1370 


1380 
1398 


1490 
1418 
1420 
1438 
1449 


1450 
14628 


1478 
1480 


Praxis-Listing 


print ”[grnlbyte 5: [Ccbm BJS”";rights 
C hex$ (al%t5»,2)3” 
C(konfigurationsbyte)” 

print "[grn]Jbyte 6: [Ccbm BJ$”;rights 
C hexS (al%(68)),2)” Canzahl 
folgebootsectoren)” 

print :print "alles richtig? dann 
taste ’3j’” 

print "zurueck zum anfang mit ’z’” 

get key eS:if e$=-"z” then 4Bd:else if 

es<>"4"” then 1018 


window ®+bs,10,39+bs,24,1:print "wird 
textausgabe gewuenscht”? (3j/n)” 

print :get key fF$:if F$="n” then 1088: 
else if f$<>”j” then 1248 

print "text[35spacesJ<”:window 4+bs, 
12,38+bs,12,1 

input g$ 


window ®+bs,10,39+bs,28,1:print ”soll 
ein programm gebootet werden? (3/n)” 
get key h$:if h$="n"” then 1138:else if 
hs<>”j” then 1898 

print :print ”prg-name[l19spacss]€”: 

window 8+bs,12,26+bs,12 

input iS 


if gS5="" and i$-"" then a1%(7)-B: 
a1l%c8)-9:i2=-9:goto 1268 
if g$=-"" then al%(7)=9:il=-B:goto 1228 


For il=-7 to len (gS)+6 
al%Clil)=-asc (C mid$ (g$,i1-6,1)) 
next :a1%Ci1)=®:il-il+1:b-® 


if iS=-"" then al%li1)=-9d:i2=il+1:goto 
1268 


For i2=il to len (i$S)+i1-1:b=b+1 
al%Ci2)-asc ( mid$ (i$,b,1)) 


next :al%li2)=-B:i2=i2+1 


window ®+bs,3,39+bs,24,1:color 5,16 

print "ueber assembler-befehle muss 
nun gesteu-” 

print ”ert werden, was der c128 
ausfuehren soll”:print 

print ”anschlisessendes menue 
beinhaltet bereits” 

print "zwei (1. & 2. ) fertige jobs 
zur auswahl”:print :print 

print ”"[4spaces]Ji, einsprung zum c64 
direktmodus”:print 

print ”"[4spaces]2. rueckkehr in c12B 
direktmodus”:print 

print ”"[4spaces]3. assembler-code von 
disk laden”:print 

print ”"[4spaces)4. assembler-programm 
C2spaces]lerstellen”:print 

print ”"[4spaces]5. neustart boot- 
sector[2spaces)manager”:print :color 
5,14 

print ”"[4spaces]zur auswahl 
zahlentaste druscken” 

get key il$:on val (Ci1l$5) goto 1330, 
1420,1449,1540,40:goto 1378 


restore 1400: for i3=-ie to i2+2:read 
ab:al%(i3)-ab:next :goto 1719 
data 76,77,255 


al%li2)-=-9S6:goto 1718 


senclr :print :print "zum ruecksprung 
C2spaces)’t’ eingeben! ”:print 

print "file-name[ll8spaces]<"”:window 9+ 
bs,6,25+bs,6,8:input 3% 

if asc (j$)=34 then 1258 


window ®+bs,20,339+bs, 22:gosub 22®8:open 
2,8,90,j$5:gosub 288 
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print "daten werden gelssen”:get #2, 
by$,by$:do while i2<256 

get #2,by$:a1%li2)=asc Cby$+chr5 (9)): 
i2=-i2+1l 

loop :gosub 228:goto 1718 


senclr :color 5,16:print "erstellen 
eines assembler-programms muss” 

print "von adresse $13908 bis maximal 
$” hex$ (4864+255-i2)” vor-” 

print "genommen werden, da sonst keins 
Funktion” 


print :color 5,4:print "eingebauter 
maschinsesprache-monitor c128” 

bank ®:window ®+bs,9,31+bs, 24:poke 
2560,13:poke 2561,67:color 5,4 

print chr$ (27);”1”;chr$ (27);”r”:poke 
842,147:poke 843,68:poke B44,49 

poke 845,51:poke B46,48:poke 847,48: 
poke 208,6:poke 808,11®8:monitor 

print chr$ (27);”"n";chr$ (27);"m”:poke 
2569,3:poke 2561,64:poke 808, 112:bank 
15 


window 8+bs,9,39+bs,24:color 5,1%: 
scenclr 

print ”"endadresse des programmes 
C2spaces]$13??[Bspaces)”:window 2S+bs, 
9,31+bs,9 

input ep$:if len (epS)<>5 or asc (ep$) 
<>36 then 1640:else ep$=right$ Cep$,4) 
if dec (ep$)>(4B64+255-i2) or dec 
(ep$)<4864 then 1530 

For i4=-4B64 to dec (ep$):al%li2)=-peek 
(i4):i2=i2+l:next 


window @+bs,0,39+bs,24,1:print tabt( 

249)”C25cbm @]” 

char ‚2,7,”boot-sector ist aufgebaut”, 

1:print :color 5,16 

print :print "disk in Floppy '”"g2”’ 
einlegen, um” 

print "die daten in block 1,8 
einzuschreiben! "”:print 

color S,2:print "taste druecken oder 
’?' fuer ruscksprung” 

get key k$:scnclr :if kS$="t" then 48 

color 5,14:t=-1:s=-®:gosub 418:goto 428 


ot-sector kopieren 


window @+bs,4,39+bs,24,1:print ” 
£[36cbm @I” 

char ‚d,1,”kopieren des boot-sector 
(block 1,8)”,1:color 5S,16:print 

print :print :print :print ”1 
quelldisk in Floppy:”;gl:print 

print ”2 zieldisk in Floppy: "”;ge: 

print 

print ”3 kopieren beginnen”:print 

print ”4 zurueck zum startmenue”:print 
SGolonr25544 

print "zahlentaste waehlen” 

get key z$:on val (25) goto 1900,1391®, 
1938,40:goto 1838 

gosub 2448:goto 1839 

gosub 2488:goto 1839 


t=1:5=d:gosub 248:color 5,16:scnelr : 

if Fs$=-"" or asc (fs$)>108 then 2238 

print :print ”der boot-sector lasdt” 

asc (fs$)”folgeboot-” 

print ”sectoren nach!”:print :print 
"sollen diese auch kopiert werden? 
(3/n)” 

get key lf$:if lf$-"n"” then 2238:elss 

if 1F$5<>”j” then 1968 


Praxis-Listing 


: 2438 g2=8:print ”acht” 
1980 window ®+bs,0,39+bs,24,1:print :print 2668 2508 if z$="2” then return :else 24208 1782 


»print :print 2510 : 
1998 print ”quelldiskette einlegen! Floppy: 4249 2520 window O+bs,8,39+bs,24,1:print chr$ 4132 
”»;gl:af-asc (fs$) c27);”"1":directory uCgl1):print ds$ 
2000 print :print "taste druscken”:get key 2729 2530 print :print "taste druecken”:print 5312 
g1s chr$ (27);”m”:get key d$:color 5,14: 
20108 : goto 2308 
2028 if gi1<>g2 then begin :print :print 5588 es40 : 
"zieldiskette einlegen! Floppy: ”;g2 2550 sys 51748:scnclr :print tabCbs)”zum 5037 
2038 :print :print "taste druscken”:get key 3944 ruecksprung '?’ eingeben” 
g2$:color 5,14:Ffor iS=1 to af 2568 char ‚bs,4, ”filename”:window 9+bs,4, 28 4946 
BO4® :s=s+tl:if s=21 then s=-®:t=-t+1 28790 +bs,4,1: input fe$ 
2850 :gosub 240 yy4g 2579 window ®+bs,0,39+bs,24,1:if len (fe$)> 3563 
20698 :next :goto 2230 704 16 then 2558 
2078 bend 304 E5B9 if asc (fe$)=-S4 then 4d:else t=1:35=® 2233 
20808 : 2590 : 
2082 color 5,14:poke 888,118 1543 2602 gosub 228:open 2,g1,2,fe$:gosub 200: 4173 
2108 For iS=1 to af:fi%=(i5-1)=256 2354 get #2,be$,bt$:poke 808,110 
21l® :s=s+1:if s=21 then s=9:t=t+1 2870 2618 For iB=® to 25500:get #2,bt$:a1%(i8)- 3797 
E12® :gosub 240:Ffor i6-® to 255:get #2,bts: 4387 asc (bt$+chr$ (0)) 
alxliß+fi%)=asc (btS+chr$ (B)):next 2620 if (st and 64)<>64 then next :elss 5235 
2130 next :gosub 228 y4ss gosub 228:af=int ((i8-1)/255)+1 
2140 2630 : 
2158 SRIHE :print "zieldiskette einlegen! 4119 e540 gosub 2150:print :print ”Job 4543 
Floppy: 02 erledigt... taste druecken”:get key 
2168 print :print "taste druecken” :get key 3177 xz3:fes-"” 
Des: s=d:t=1 2645 poke B0B,112:sys 51748:goto 2308 2314 
2170 For i6=1 to af: fi%=(iß-1)=*256 2231 8650 : 
2188 :s=s+1:if s=21 then s=®:t=t+1 2870 2660 


2198 :gosub 418:Ffor i7-® to 255:print#3, 3604 
chr$ (al1%(i7+fi%));:next E670 rem ::::::::::::s:222o2ssireeeee PPOge 
2200 gosub SB8:next 843 ammende 
2218 if Fe$<>”” then return 735 B6BO : 
B2EO : 2638 scnelr :char ‚B+tbs,2,”[22cbm @]” , 3638 
2238 color 5,16:print :print "kopieren 5857 2708 char ‚8+bs,3,”sind sie sicher? (}/n)", 14517 
beendet - bitte taste druecken”:poke 1:get key en$s 
888,112 ©2710 if en$="n” then 4Bd:else if ens<>”j” 2827 
2249 get key kvS: lf$="".goto 49 1357 then 2708 
2250 : 2720 key 1,”dload[3ctrl i,3spaces]"+chr$ so32 
2260 : (13):key 3,chr$ (147)+"directory”+chr$ 
2270 (13) 
EN 33 2730 key 5,”bload[3ctrl iJ,b®”+chr$ (13): 5158 
2282 rem key 7,"CclrJlist”+chr$ (13):print chr$ 
eboot- bioscknt einrichten CETI:SL! 
2230 : 2748 scnclr :poke 792,64:poke 888,11@:end 18531 
2388 color 5,14:sys 51748:scnclr :print S625 2750 : 


tabCbs)”[29chm @I” 2760 :: 


23128 char ‚bs,1, ”"folgeboot-sectoren 4979 
einrichten”,1:color 5,16 2770 

2320 window 0+bs,3,39+bs,24:print "ein 5153 ungs-routine 
programm wird in diesem abschnitt zu” 2780 : 

2330 print ”'boot-sectoren’ umgewandelt. Je 4144 £738 if er-14 and el=-1678 then window O+bs, 4285 
nach der” 3,39+bs,24,1:resume 1548 

2340 print ”laenge wird es in den sectoren 10856 2800 : 

[2spaces]1, 1[2spacesJund” 2818 sys 5174B:color 5,14:scnclr 1794 

2358 print "folgende abgelegt, von wo es 3762 2828 if er-5 then begin 1029 
der pc 128” 2830 :char ‚bs,4,”das geraet ist nicht 3525 

2368 print "anhand der angaben im boot- so24 vorhanden!” 

sector laedt.”:print :color 5,14 2848 :char ‚bs,6,”floppy anschalten oder 39395 

2370 : anschliessen! ” 

2380 print ”1 File-disk in Floppy: "gi:print 5414 ©8508 :char ‚bs,8,”fuer neuen programmstart 3932 

:print ”2 Folgeboot - disk in:”g2 taste druscken” 

2398 print :print "[grn]3 directory ansehen 565656 EB6B :get key dp$:dcelose :resume 49 1182 
Cg1)”:print :print ”4 umwandlung 2878 bend 304 
beginnen” EBBD : 

2408 print :print ”5 zurueck zum 3536 2838 window ®+bs,21,39+bs, 24,1:print err$ 4765 
startmenue"”:print :color 5,16 Cer);” Fehler in ";el:print 

241® print ”gewuenschtes Funktion? (taste)" 3268 2300 print "fuer neustart taste druecken” 2576 

24208 color S,16:get key fu$:on val (Fu$) 5148 2918 get key re$:dclose :resume 48 1558 

goto 2449,2480, 2520, 2550,40:goto 2428 2920 :::: 


2430 : 


24408 window 23+bs,9,26+bs,9:if gi=8 then 4611 
print ”"neun”:gi1-9:goto 2468 
2450 gi-B:print ”acht” 1383 


if z$=-"1"” then return :else 2429 


window 23+bs,11,26+bs,11:if g2=B then 
print "neun”:g2=3:goto 2598 


Auto-Boot Sektoren mit BSM editieren. 
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Praxis Listing 


Auf den Track 


System: C64/Laufwerk 
Typ: Utility 
Sprache: Basic/ASM 


Das Programm deckt vier ver- 

schiedene Bereiche ab: 

— Schnelles Formatieren 

— Diskettenname und ID ändern 

Einzelne Spuren reparieren 

Diskette gegen Kopierer schüt- 

zen. 

Nach Start mit RUN präsentiert 

„Spurformat" sein Menü: 

l) Spur x bis y formatieren 

2) Spur x bis y mit n Sektoren for- 
matieren 

3) Spur x spezialformatieren 

4) BAM erzeugen 

65) NAME und ID wechseln 

6) Disk-Befehle senden 

2) Directory 

8) Ende 

Durch Drücken der Zifferntasten 

gelangt man in das entsprechen- 

de Unterprogramm: 

l) Spur x bis y formatieren 

Mit diesem Programmpunkt for- 

matiert man sowohl komplette Dis- 

ketten als auch gezielt einzelne 

Spuren und Spurbereiche. Schad- 

hafte Spuren werden repariert 

und damit wieder benutzbar ge- 
macht, ohne die gesamte Diskette 
zu löschen. „Spurformat" will wis- 
sen, welcher Spurbereich (von 

Spur x bis Spur y) zu formatieren 

ist, Üblich sind die Spuren 1 bis 35. 

Jetzt will das Programm die Dis- 

ketten-ID wissen. Eingestellt sind 

zwei geshiftete Spaces, CHR$(160). 

Von Vorteil ist: 

— Die Geschwindigkeit. Eine Dis- 
kette wird 10 Sekunden forma- 
tiert. 

— Der Formatbereich: Maximal 
4] Spuren erstellt „Spurfor- 
mat". 

2) Spur x bis y mit n Sektoren for- 
matieren 

Einfacher Kopierschutz. Die Para- 

meter sind die gleichen wie unter 

l, nur muß zusätzlich die Anzahl 

der Sektoren pro Spur angegeben 

werden. Normalerweise fassen 
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„Spurformat“ forma- 
tiert einzelne Spuren 
und Sektoren einer Dis- 
kette mit verschiede- 
nen Formaten und 


zeigt damit den 
meisten Kopier- 
programmen eine 
lange Nase. 


die einzelnen Spuren aufgrund ih- 
rer von außen nach innen abneh- 
menden Länge unterschiedlich 
viele Sektoren: 


Spur lbis 17 hat 21 Sektoren 
Spur 18 bis 24 hat 19 Sektoren 
Spur 25 bis 30 hat 18 Sektoren 
Spur 31 bis 35 hat 17 Sektoren 

Ein Kopierschutzbeispiel: Spur 1 
hat normalerweise 21 Sektoren (0 
bis 20). Formatiert man Spur 1 mit 
22 Sektoren, entsteht eine Über- 
länge, die den Anfang von Sektor 
O löscht. Eine Floppy, die versucht 
Sektor 0 zu lesen, findet diesen 
nicht und zeigt die Fehlermeldung 
„20,READ ERROR,01,00". Dieser 
Trick ist leicht umgehbar. Durch 
die Überlänge entstand zusätzlich 
Sektor 21. Ein spezielles Pro- 
gramm (BLOCK-EXECUTE) prüft 
diesen Sektor, in dem wichtige 
Teile des Programms (Codewort 
oder ähnliches) stehen. Die we- 
nigsten Kopierprogramme suchen 
nach solchen versteckten Blök- 
ken. Dieser Trick ist ein wirkungs- 
voller Kopierschutz. 


4) BAM erzeugen 

Mit dieser Funktion wird die Di- 
rectory und die Block-Availability- 
Map (BAM), in der die belegten 
Blöcke vermerkt sind, generiert. 
Als Parameter wird der Disketten- 
name verlangt, der als Überschrift 
im Directory erscheint. Diese 
Funktion MUSS jedem Formatier- 
prozeß folgen, der die Spur 18 be- 
trifft, da sich die Directory auf 
Spur 18 befindet und beim Forma- 
tieren gelöscht wird. 


5) NAME und ID wechseln 
Andert Namen und ID einer Dis- 
kette ohne Datenverlust. 


6) Disk-Befehle senden 
DOS-Befehle nutzen, um Files zu 
bearbeiten. 

D Directory 

Die Directory-Funktion zeigt auf 
Wunsch jederzeit den Diskettenin- 
halt ohne Programmverlust an. 
Falls die Directory-Funktion un- 
mittelbar nach einem Format nur 
wirre Zeichen zeigt, in den Menü- 
punkt „Disk-Befehle senden" ge- 
hen und den Initialisierungsbefehl 
igeben. Danach ist alles wieder in 
Ordnung. 

8) Ende 

Führt ins Basic zurück. 

3) Spur x spezialformatieren 
Dieser Programmpunkt ist kompli- 
ziert und steht daher am Schluß. 
ALLE Parameter des Block- 
headers einer Spur werden selbst 
bestimmt. Ein Kopierschutzbei- 
spiel sind Füllbytes, die nirgends 
abgefragt werden und in keiner 
Prüfsumme erscheinen, 
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def fn ck(x)-ck and not x or not ck 


and x 


poke 53288,14:poke 53281,14 
print chr$ (8) chr$ (14)"C[uht,clr, 
Zright]SPUR-FORNAT v2 ,.2[2spaces)fuer 


C-64/UC-1541” 


print "[2right,35cbm yJ” 
print ”[7right](cC) 1985 by Klaus 


Burkert” 


print ”"[blu,2down,rvsJi1[loff]...Spur x- 
y Formatieren” 
print "[down,rvsJ2foff]...Spur x-y mit 
n Sekt. Formatieren” 

print "[down, rvs33Coff]...Spur x 


Se a er 


1088 
1032 
1108 


1118 
1128 
11308 


1140 
1150 


1168 
1178 


1188 
1198 
1208 


1218 
1220 
12308 


1240 
1258 


12608 


1270 
1280 


1298 
1300 


1310 
13208 


1338 
1349 


1350 
1360 
1370 
1388 


13998 
1490 


1410 
1420 
1430 
1440 
1450 


1460 
1470 
1482 
1490 
1508 
1518 
1520 
1538 
1540 
1558 
1568 
1578 
1588 
1598 
1690 
1618 
1620 
1630 
1640 
1650 
1660 
1678 
1682 


| Eigene Kodierschlüssel machen Kopierern das Leben schwer 
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spezial-formatieren” 

print ”"C[down,rvsJ4lLoff]...BAM 
erzeugen” 

print "C[down,rvsJS[loff]...NAME und ID 
wechseln” 

print "Cdown,rvs3l6l[loff]...Disk-Befehle 
senden” 

print ”Cdown, rvsJ7[off]..,Directory” 
print "Cdown,rvsJBloff]...Ende” 

input ”C2down,cbm 6JBitte waehlen 
C2spacesJ8[3left]”;a$ 

if val (a$)<1 or val C(Ca$)>B then run 

on val (a$) goto 1179,1200,1879,1380, 
1450,1760,1728 

print ”[clr]”:end 

print "Cblu,clr,down,1@right]Spur x-y 
Formatieren” 

print ”C12®right,20cbm y,cbm 6)” 

sys 548B6:goto 1268 

print ’Cblu,clr,down,4rightJSpur x-y 
mit n Sekt, formatieren” 

print ”C4right,32cbm y,cbm 63” 

sys 5486 

b$="":input ”[CdownJAnzahl Sektoren 
C4spaces,4left]”;b$:b=-val ( left$ Cb$+ 
»C2shift-space)]”,2)) 

if b<1 or b>25 then print "[3up}”:goto 
1230 

open 1,8,15:print#1,”m-w” chr$ (13) 
chr$8 (7) chr$ (2) chr$ (201) chr$ (b); 
:close 1 

s$="":input ”[CdownJvon Spur[3spaces)i 
[C3left]J”;s$:sv-val C left$ (s$+” 
C2shift-space]”,2)) 

if sv<1 then print "[3up]”:goto 1268 

s$=-"":input "Cdownlbis Spur[3spaces)35 
C4left]";s$:sb=-val (C leftSs (s$+” 
L2shift-space]”,2)) 

if sb<1 then print "[C3up]”:goto 12858 
input "CdownJID”;id$:id$-lefts (ids+” 
C2shift-space)”,2) 

open 1,8,15 

print#1,”m-w” chr$ (34) chrS (6) chrS 
1) chr$ (sv); 

print#1,”m-w"” chr$ (63) chr$ (6) chr$ 
(1) chr$ (sb); 

print#1,”m-w" chr$ (18) chr$ (8) chr$ 
C2)ids; 

print#1,”m-e” chr$ (8) chr$ (6); 
close 1 

goto 1840 

print "Cblu,clr,down, 14right3BAH 
erzeugen” 

print ”Cl4right,12cbm y,cbm 6)” 

input ”Cdown]NAME”;na$:na$-leftS (na$s+ 
"[16shift-space)”,16) 

open 1,8,15,”i” 

sys 6157 

print#1,”u3:”na$ 

goto 1810 

print ”Cblu,clr,down, 10rightINANE und 
ID wechseln” 

print ”[C12right,20cbm y,cbm 6)” 

open 1,8,15,”i” 

open 8,8,B,”#” 

print#1,”ul:8 8 1B 2” 

print#1,”b-p:B 144” 

print ”"Cdown,6right]” chr$ (34); 

For i=-1to I6 

get #8,a$:print a$; 

next i 

print chr$ (345”"Lup]” 

input ”NAME”; na$ 

print#1,”b-p:B 144” 

print#8,na$; 

print#1,”b-p:B 162” 

print ”"C[Cdown,4right]” chrS (34); 

For- i=-1 to'5 

gest #B,3$:print a5; 

next i 

print chr$ (34)”Cup]” 

input ”ID”;id$ 

print#1,”b-p:B 162” 

print#B,id$; 

print#1,”u2:B 8 1B 9” 


WEN HOMECONFUTERNORS TEN 


m 


16939 
1729 
1718 
1720 


1738 
1748 
1758 
1768 


1770 
1788 


1798 


1898 
1812 
1828 
1838 
1840 
1858 
1868 
1878 


1888 
1838 


1992 
1918 
19208 
1938 
13428 
1958 
1968 


1978 
1988 
1990 
2008 
20108 


2020 
2038 


2040 
2050 


20698 
2079 
2080 
2039 
2188 
2110 
2120 


2138 


2149 
2158 
2160 
2178 
2188 
21908 
2200 


2218 
2220 


22398 
2240 


2258 


22608 
2270 


close 8 

print#1,”i” 

goto 1819 

print "[blu,cir,down,1Sright] 
Directory” 

print ”"[1i5right,Scbm y,cbm 6]” 

sys 6052 

goto 1819 

print "Cblu,clir,down, 18right]Disk- 
Befehle senden” 

print ”"[1Bright,19chbm y,cbm 63” 

print "Cdown,Sright]” chr$ (34):print 
"L[2up]” 

input ”"Befehl[3spaces,rightli[l“4left)”; 
bes 

open 1,8,15,be$ 

close 1:open 1,8,15 
input#1,3$,b$,c$,d$:close 1 

print ."Cblu,down]”a$”,”b$”,”c$”, "d$ 
print "[down, cynltaste druecken” 

poke 198,8:wait 198,1:poke 198,08 

run 

print "Cblu,clir,down, 7right]lSpur x 
spezial-formatieren” 

print "[7right,26cbm y,cbm 6)" 

input "[2downJwelche Spur”;sp$:sp=val 
(sp$+chr$ (8)) 

if sp<1 then 1878 

b1-21 

if sp>17 then bl-19 

if sp>24 then bl=-18 

if sp>30 then bl=17 

if sp>35 then bl=17 

print ”[2downJwieviele Sektoren "bl" 
sera sinput bl$:bl=val CblS+chr$ 
if bl<1 or bl>25 then 18708 
il-160:i2=160:he$s="":Ffor s=-® to bl-1 
print "Cclr,blu]Spur”sp”C2spaces] 
Block”s”"C2down]” 

input "Header-Kennung[2spaces]J8[L3left] 
";hk$S:hk=val Chk$+chr$ (9)) 

print "Sektor ”s"[4left]”;:if s>9 then 
print "Cleft)”; 

input se$:se-val (se$+chr$ (0)) 
print "$£pur ”"sp”[4left]”;:if sp>9 then 
print "Cleft)”; 

input tr$:tr=val (tr$+chr$5 (0)) 

print "ID 1 ”i1”C[C4left)”;:if i1>9 then 
print "[left]”; 

if i1>99 then print "”[left)”; 

input i1$:il-val CilS+chr$ (8)) 

print "ID 2 "i2”[4left]”;:if i2>9 then 
print "[Lleft]”; 

if i2>99 then print "Lleft]”; 

input i2$:id=val (i2S+chr$ (9)) 

input "Fuellbyte 1[2spaces]J15[4left)]”; 
f1l$:fl=val (flS+chr5 (9)) 

input ”"Fuellbyte 2[2spaces)15[4left]”; 
F25:F2=-val (f2S+chr$ (9)) 

if hk<® or hk>255 or se<B or se>255 or 
tr<® or tr>255 or il<® or i1>355 or 
i2<®8 or i2>255 then 1990 

ck=®:ck=fn ck(se):ck=fn ckltr):ck=fn 
ck(il):ck=fn ck(i2) 

print "Prusfsumme "ck”[4left]”;:if ck> 
9 then print "[left)”; x 

if ck>99 then print ”"C[left)”; 

input ck$:ck"=val (CckS+chrS5 (9)) 

if ck<®8 or ck>255 then 1938 
he$=he$+chr$ Chk)+chr$ (ck)+chr$ (se)+ 
chr$ (tr) 

he$=he$+chr$ (Ci2)+chrS5 (il)+chr$ (f1)+ 
chr$ (F£2) 

next s 

open 1,8,15:open 2,8,2,”#2”:print#1, 
”b-p:”2,8:print#2,he$;:close 2 

sys 6258 

print#1,”m-w” chr5 (34) chr$ (6) chr$ 
c1) chr$ (sp) 

print#1,”m-w” chr$ (186) chr$ (6) chr$ 
€1) chr$ (bl) 

print#1,”m-e” chrS5 (8) chr$ (6) 

close l1:goto 1849 


r 


3363 
E62 
553 

3787 


5493 
2757 


2365 


1305 
1885 
1667 
1696 
2187 
2514 

138 
4329 


6344 
3597 


1045 

584 
1698 
1512 
1392 
1552 
5091 


1505 
2953 
1880 
4887 
3218 


1894 
38003 


B1S5 
2614 


1691 
2034 
2664 
1695 
ell® 
3493 
3528 


6582 


5208 
4175 
1528 
1997 
1973 
3193 
3162 


236 
4325 


766 
3341 


3045 


1888 
623 
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BEE En ES BB a ne ee 5 


Er 


Praxis-Listing 


Diskette o.k.? 


System: C64/Floppy 


Typ: Anwendung 
Sprache: Basic 


Read Error! Wer kennt das nicht? 
Ein Programm ist verschwunden. 
Jetzt heißt es, retten was zu retten 
ist. Mit diesem Programm lokali- 
siert man die zerstörten Blöcke. Es 


rem *%#%% (c) 1586 thomas lippert **+# 
F-B:sys 65511:poke 53288,11:poke 


53281,15 
rem 
print 


analyser”:gosub 198 


148 open 1,Ff,15:for t=-1 to 35:read q:for s 
=® to q:open 5,F,5,”#”:print#1,”b 


B;t;s 
158 input#1,a,b$,c,d:if a>1 then print b$S; 


Ist die Diskette gesund, kräht kein Hund! 


”Cclr,down, 13spaces]Jdisk- 


DIAN ist ein kleiner 
Disk-Analyzer. Er prüft 
Disketten auf defekte 
Sektoren. 


liest jeden Block einer Diskette 
und sortiert so die Blocks mit Read 
Error 20,21,22,23,27 und 29 her- 


”C4spaces]t:”c 
close 5:next 
print#2, "Cdown, 2spaces)”z” 


next 


aus. Die Bedienung ist einfach: 
Programm laden — Testdisk einle- 
gen — los geht's. Die gefundenen 
Fehler werden mit Track- und 
Sektornummer auf dem Bild- 
schirm ausgegeben. Ein Durch- 
gang dauert ungefähr 2.30 Minu- 
ten. Auf der Testdisk wird nichts 
verändert. 

T. Lippert ÜiMMEMEEEEE RE 


;"C3spaces]s: "d:z=z+1 
:close 1:gosub 198: 
errors 


4307 


located”:close 2:end 


data 20,20,20,20,20,20,20,20,20,20,20, 


4503 


20,20,20,20,20,2 


-r"5; 


o 
data 18,18,18,18,18,18,18,17,17,17,17, 
17,17,16,16, 16, 16,16 
open 15,F,15,” 


5849 


ij», close 15:return 1695 


System: C64/Laufwerk 
Typ: Anwendung 
Sprache: Basic 


Zuerst entscheidet man, welche 
Hälfte gestreckt wird. Fl wählt 
oben, F3 unten. Danach wartet 
der Computer auf den Programm- 
namen der Grafik. Sie muß sich 
auf der eingelegten Diskette be- 
finden. Jetzt muß man die Grafik- 
Startadresse angeben. „Grafik- 


rem A De ab a A DM a a a a a 


rem grafik halbierer 


rem by peter mueller - buschbaum 
rem von der goltz - allee 37 


rem 2308 kiel 1 
rem 17.11.1985 


rem DEZ ZU ZU ZU ZU 2 ZU 2 ZU 2 ZU ZU ZU 2 ZU 2 ZU ZU ZU ZU 2 ZU 2 ZU ZU 2 zZ ZZ: 


rem 


rem 
if F-23 then 498 


nes -...„...... hauptprogramm -..... 


gosub 10108 
gosub 1279 
8 rem abfragen 
print "[clr,down,cyn3” 


® print »Cdoun, Zrightigrafikfilename: ” 


input gf$ 
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Y mal zwei 


„Grafikdoppler“ teilt 
Grafiken in obere und 
untere Hälften. Eine 
Hälfte wird verdoppelt 
und dadurch in Y-Ach- 
senrichtung gestreckt. 
Ergebnisse sind meist 
bizarre Ergebnisse. 


print 
input nf$ 


16) 
print 


na 
print 


anfangsadresse: 


doppler" lädt das Grafikfile, be- 
rechnet .neue Punkte und spei- 
chert das Ergebnis ab (zirka 3 Mi- 
nuten). Ausdrucke erstellt man mit 
Hardcopyprogrammen eigener 
Wahl. Tip: 

Um eine Grafik komplett in Y- 
Richtung zu verdoppeln, wählt 
man nacheinander Fl und F2, 
druckt beide neuen Grafiken aus 
und klebt sie zusammen — fertig. 


Peter Müller-Buschbaum ÜiiEEEuN 


"Cdown,2rightIJneuer name:”; 


if gfs-nf$ then nfS=nf$s+".v” 
if len (nf$)>16 then nf$=left$ (nf, 


"C2down, ZrightlIneus 


8182[6left)”; :input 


”C3down,Zrightldiskette mit 


zubearbeitender grafik” 


print 


"C2rightleinlegen und [rvs] 
returnloff) druecken .” 
get F$:if FS<>chr35 (13) then 278 


print "Cdown,2rightlok.” 


rem Floppy 


open 1,8,15,”i 
open 1,8,2,”” 
get #1,g$:if g$=-" 


DB l=-asc (g$) 


ME SEN er 3 > TER 


":close 1 


+gF$+”,p,r” 


» then g$=chr$ (8) 


340 
358 
360 
370 
388 
398 
400 


410 


420 
430 
440 


450 
4608 
470 
480 
490 
500 
518 
Ss28 
530 
548 


550 : 


Praxis-Listing 


get #1,g$:iF g$="” then g$-chr$ (9) 
h=-asc (g$) 

close 1 

ad-1+256*%h 

£-23 

load "””"+gf$,8,1 

print ”L[2down,2rightldiskette fuer 
halbierte grafik ” 

print ”[C2rightleinlegen und [rvs] 
returnloff] druecken .” 

FS-"” 

get FS:if £fS<>chr$ (13) then 430 
print ”"Cdown,2rightJlok ..[3spaces] 
‚arbeitszeit 2,B min.. ” 

h=int (na/256): 1=na-256*h 

open 1,8,15,”i”:close 1 

open 1,8,2,""”+nfS+",p,w” 
print#1,chr$ (1);chr$ (Ch); 

on quw gosub 580,798 

close 1 

print "[2down,2Zrightlready .” 
F3=-"":£=8 

get f$:if F$="" then 538 

run 


560 : 


5708 
588 
538 
698 
610 
620 
6308 
648 
658 
6608 
678 
6808 
6308 
708 
7198 
7208 
730 
740 
7508 
760 


770 : 


rem ** grafikhaelfte berechnen *** 
rem obere haelfte 

for x=® to 35228 step 320 
For a=d+x to 4+x step 4 

For xx=® to 312 step B 

For i=-®+atxx to 3+xx+ta 
print#1,chr$ (C peek (Cad+i)); 
print#1,chr$ (C peek (ad+i)); 
next i 

next xx 

next a 

next x 

a=3B40 

for xx=® to 312 step B 

For i=-O+tatxx to I3txx+ta 
print#1,chr$ ( peek (ad+i)); 
print#1,chr$ (C peek (ad+i)); 
next i 

next xx 

return 


780 : 


7308 
808 
810 
820 
830 
840 
850 
8608 
870 
880 
8390 
1=1]%) 
9108 
920 
938 
348 
958 
360 
970 


980 : 


330 
1200 
1018 
10208 
1930 
1240 


19858 
19068 


1078 


rem untere haelfts 

for x=3848 to 7368 step 320 
for a=®+x to 4+x step 4 

For xx=® to 312 step B 

For i=-®+atxx to 3+xxta 
print#1,chr$ (C peek (ad+i)); 
print#1,chr$ (C peek (ad+ti)); 
next i 

next xx 

next a 

next x 

a-76808 

Eor xx"® to 312 step B 

for i=-®+atxx to 3+txx+ta 
print#1,chr$ (C psek (ad+i)); 
print#1,chr$ C psek (ad+ti)); 
next i 

next xx 

return 


rem **%* bildschirmmasken **#+####% 
poke 53288,3:poke 53281,11:print chr$ 
(142) chr$ (147); 

print ”"[Ccyn,rvs)”;:for zZ=1 to 48:print 
» ®. next 

print ”Ccbm 6] grafik-halbisrer [cyn, 
12spaces,grn] 17.11.85 ”; 

print ”"[cyn] by peter mueller- 
buschbaum[13spaces)”; 

print :print 

print ”"[3spaces,cbm Bldieses programm 
ermoeglicht ihnen 

print ”"[3spaceslausschnitte von 


Hardcopies mit Zerreffekten: „Grafikdoppler“. 


VIRCHRENITRITULITIOH 


18858 


19038 
1108 


1118 
1120 
1138 


1140 
1158 


1168 
1178 


1188 
1198 


1208 
1218 
1220 
1238 
1248 
1259 
1268 
1278 


1288 
1298 


1398 
1318 
1328 


1338 
1340 
1358 
1360 
1370 
13808 


13398 
1490 


1418 


1420 
1430 
1449 
1450 


1460 


1470 
1480 
1499 


1592 
1518 
1528 
1538 
15408 


grafifseiten anzu- 

print ”[3spaces]fertigen und disse auf 
diskette 

print ”[3spaceslabzulegen 

print "[3spaces)Idurch geschickte wahl 
der satrt- 

print ”"[3spacesJadresse koennen dis so 
erstellten 

print ”[3spaces]grafik-haelften mit 
anderen grafik- 

print "[3spaces]programmen bearbeitet 
werden . 

print 

print "[3spaces]beispiele fuer 
startadressen: 

print ”"C3spaces)hi-eddi” spc(7)”439664 
(5c2008) 

print "[3spaces]print shop[l4spaces] 

495664 ($c2008) 

print :print 

print "[cyn,rvs)”;:for z=1 to 48:print 
” ».:next 

for z=1 to 48:print ” ”;:next 

print 

print ”[3spaces,cbm BJweiter mit taste 

print 

rem print"®@";:For z=1 to 48:print" 
";:next 

get qq$:if qq$=""” then 1250 

return 

poks 53288,11:poke 53281,11:print chr$ 
(142) chr$ (147); 

print "Ccyn,cbm a,38shift *,cbm s]”; 

print "[shift -,blu,rvs,38spaces,cyn, 

off,shift -]1”; 

print "[shift -,blu,rvs, 38spaces, cyn, 

off,shift -)”; 

print "[shift -,blu,rvs,38spaces, cyn, 

off,shift -3”; 

print ”[shift -,blu,rvs,2spaces,wht, 

offli.haelfte[lblu,rvs,27spaces,cyn, 

off,shift -)”; 

print ”[shift -,blu,rvs, 38spaces,cyn, 

off,shift -]”; 

print "[shift -,blu,rvs,3Bspaces,cyn, 

off,shift -)”; 

print ”[shift -,blu,rvs, 38spaces,cyn, 

off,shift -)]”; 

print "[shift -,blu,rvs,38spaces,cyn, 

off,shift -]”; 

print "[shift -,blu,rvs, 35spaces, wht, 

offJfiClblu,rvs]) [Ccyn,off,shift -]”; 

print ”[shift -,blu,rvs,38spaces,cyn, 

off,shift -I"”; 

print "Ccbm q,38shift *,cbm wJ”; 

print "[shift -,cbm 7,rvs,38spaces, 

eyn,off,shift -]”; 

print ”[shift -,cbm 7,rvs,35spaces, 

wht,offJ£f3Cchbm 7,rvs] [cyn,off, 

shift -)”; 

print ”[shift -,cbm 7,rvs,38spaces, 

ceyn,off,shift -)”; 

print ”[shift -,cbm 7,rvs,38spaces, 

ceyn,off,shift -)”; 

print "[shift -,cbm 7,rvs,3Bspaces, 

ceyn,off,shift -]”; 

print "[shift -,cbm 7,rvs, 38spaces, 

eyn,off,shift -)”; 

print ”[shift -,cbm 7,rvs,2spaces, wht, 

off]2.haelftelchbm 7,rvs,27spaces,cyn, 

off,shift -1”; 

print "[shift -,cbm 7,rvs,3Bspaces, 

eyn,off,shift -)”; 

print "[shift -,cbm 7,rvs,38spaces, 

eyn,off,shift -)”; 

print ”[shift -,cbm 7,rvs,38spaces, 

eyn,off,shift -]”; 

print ”[cbm z,38shift *,cbm x]”; 

get quwS 

if quwS="[Ff1J” then qw=i1:return 

if qu$=-"[f3]” then qw=2:return 

goto 1518 
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Praxis Listing 


Adressen 


verwalten mit dem €64 


System: C64/Floppy/Drucker 
Typ: Anwendung 
Sprache: Basic 


In einer sequentiellen Datei spei- 
chert das Programm Namen, Vor- 
namen, Änrede/Titel, Straße mit 
Hausnummer, Wohnort, Postleit- 
zahl und Telefonnummer auf Dis- 
kette. Auf Wunsch druckt „Se- 
quenz" die Daten auf einem Ep- 
son-kompatiblen Drucker. Nach 
dem Start befindet man sich im 
Hauptmenü. Es stehen zur 
Auswahl: 

1.) Name und Adresse eingeben 
2.) Laden/Löschen/Suchen 

3.) Floppy Befehle 

4.) Ende 

In Unterprogramm eins gibt man 
nacheinander die gewünschten 
Adressen mitsamt Telefonnum- 
mern ein. Pro Eingabe sind maxi- 
mal 22 Zeichen zulässig. Anson- 
sten meldet der Computer einen 
Fehler und fordert auf, die Daten 
gekürzt einzugeben. Am Ende der 
Eingabe muß man sein O.K. ge- 
ben, damit der neue Datensatz in 
die Datei aufgenommen wird. Un- 
ter Programmpunkt zwei lädt man 
bereits gespeicherte Dateien. Mit 
den Cursor up/- und down-Tasten 
fährt man durch eingegebene 


DER 
” sequenz E4 u) 


* (ec) copyright * 
“ malte kohls ” 
* Finkenweg 54 “ 
*“ 2078 ahrensburg * 
* te.,:041902/59369 * 


Adreßdaten und Tele- 
fonnummern speichert 
„Sequenz64“. Wer 
einen Drucker hat, 
bringt die Bytes 
zudem bequem auf’s 
Papier. 


Adressen, mit „Links-Pfeil" ge- 
langt man ins Hauptmenü zurück. 
„D“ druckt Adressen. „Sequenz“ 
fragt, ob die aktuell angezeigte 
oder alle Adressen auf Papier ge- 
bracht werden und ob Telefon- 
nummern zu berücksichtigen 
sind. Nach Eingabe von „S" für Su- 
chen und den Vor-/Nachnamen 
gibt das Programm Adresse und 
Telefonnummer aus, falls ein ent- 
sprechender Datensatz gefunden 
wurde. Ansonsten erscheint 
„Adresse nicht gefunden“. „L“ 
löscht den danach einzugebenden 
Namen/Datensatz. In Programm- 
teil drei gibt es vier Funktionen: 
1.) Directory: Disketteninhaltsver- 
zeichnis ausgeben 

2.) Disk-Status: Gibt den Fehler- 
kanal der Floppy aus. 

3.) Disk-Befehl: Sendet Befehle 


wie S=Scratch oder N=New an 
die Floppy. 

4.) Copy-Datei: Kopiert Adreßda- 
ten von einer Diskette auf eine for- 
matierte, andere Diskette. 


„Sequenz“ und sein 


Aufbau: 
BEEERISFETETEREEETTN 


100 Copyright 

200 Anfang/Hauptmenü 
440) Adresseneingabe 
755 Anhängen 

870 Laden 

1150 Floppy Menü 

1330 Disk-Status 

1370 Directory 

1480 Disk-Befehl 

1620 Neue Datei eröffnen 
1750 Bearbeitungsmenü 
1940 Blättern 
2050 Drucken 
2400 Suchen 
2530 Datei kopieren 
2870 Programmende 
3120 Unterprogramme 
3130 Wait 
3170 Status 
3270 Wait+Taste 
3310 Wait 
3340 Bildaufbau 
3490 Zeile zu lang 


TOT BEREITETE! 


print "[äright,chb= h,28spaces,cbm n] 


Ecbm h3* 


print "C4right,cb= h) 2) adressdatei 
laden[7spaces,cb= n] [Ccbm h]” 
print "[4right,chm h,2Bspaces,cbm n] 


Ccbm hJ” 


print "[äright,cbm= h] 3) Floppy menus 


URL ER TEL N ET IIL NET 2 SANT TER IT ET LRTTT LTE RENT ZU TTTET EIER PIE RERIRT EEE REIT AUHSPEOTEIHe Tee eR PRATEIETE Tue 


De ee er 

35(2000) 

““....* anfang 
ul=B: u2=1:u3=2: u4=3: uS=4: u6=5: u7=-6:uB- 
7 


poke 53288,12:poke 53281,3:poke 646,08 
rem *#*#4#+#4%*% hauptmenus 
print "[clr,rvs,cbm 5,i4spaces,blk]) 
sequenz 64[cbm 5,16spaces]” 
print "[Lup,rvs,cbm 5,4ß8spacss)” 
print "[Lup,rvs,cbm 5,11spaces,blk] 
#422 menue ****#*[chm 5,12spaces]” 
print ”"[Lup,rvs,cbm 5,48spacss)” 
print "[blk,3down,Sright, 38cbm p]” 
print ”"[4right]IN[2SspacesIN[chbm h2” 
print "[Yright]0[L2B8cbm yJP [Ccbm hJ” 
print "[4right,cbm h] 1) name & 
adresse eingeben [chbm n]J E[chbm hJ” 
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[12spaces,cbs n]J [Ccbm h)” 

print "[“Mright,chbm h, 2Bspaces,cbm n] 
Echm h3” 

print "[4right,cbm h] 4) programmende 
[12spaces,cbm n]J [cbm hJ” 

print "[äright]Lf286chbm p,shift EIN” 

get aS:if a$=-""” then 339 

if a5=-"1” then 458 

if a$S=-"2" then 888 

if a5=-"4”" then 2888 

if a$="3” then 1169 

rem *#usss#258# adresseneingabe 

elr 

print "[Celr,rvs,cbm 5,14spacess,blk] 
sequenz E4[cbm 5,16spacss]” 

print ”"[Lup,rvs,cbm 5,40spaces)” 
print "Lup,rvs,cbm 5,1@spaces,blk] 
“=s=s= eingabe *****[chm 5,11spaces]” 
print ”"Lup,rvs,cbm 5,48spaces, blk]” 


500 
518 
528 
530 
540 


545 
558 
e1=]7] 


578 
SB 


585 
530 
600 


610 
620 


625 
638 
648 


645 
658 
6608 
6708 
680 
6908 
700 


710 
720 
738 


7408 
758 
755 
7608 
770 
7808 
798 
808 
818 
820 
830 
8408 
85Q 
860 
870 
880 


899 
908 


318 
9208 
9308 
940 
958 
9608 
978 
980 
932 
19008 
1018 


"1020 


1039 
1040 
1050 
1060 


1070 
1288 


12328 
1188 
1118 
1120 
1130 


input ”[rightlvorname ”;vn$ 

gosub 1888 

input ”C[Chome , 6Gdown, rightJnachname” ; nn$ 

gosub 1088 

input ”Chome, ?7down,rightlanrede/titel 
”,at$ 

if len (vn$+tnn$+ats)>22 then goto 3438 

gosub 1888 

input ”C[Chome, Bdown, right]strassenname 
”,st$ 

gosub 1088 

input "”Chome,Sdown, right]Jhausnummer ”; 

hn$ 

if len (st$+hn$)>22 then goto 3438 

gosub 1888 

input ”Chome, 1®down,rightlJwohnort ”; 

wos 

gosub 1088 

input ”"C[Chome, l11douwn, right]postleitzahl 
”:po$ 

if len (woS+po$)>22 then goto 3498 

gosub 1888 

input ”"C[Chome, 12down, rightltelefon nr.” 
‚tn$ 

if len (Ctn$)>22 then goto 3438 

gosub 1888 

print ”Chome, 4down]” 

for x=1 to 5:gosub 1688 

next x 

print ”"Chome ,Sdown]” 

print "C3rightlalles korrekt 
eingegeben (3/n)” 

get ak$:if ak$="" then 710 

if ak$="n" then 198 

input ”[right,rvsIn[loffleus datei 
eroeffnen, oder zu [rvslaloffliter 
[Sspaces)ldatei ergaenzen ";xx5 

if xx$="n" then 1638 

gosub 3148 

rem #444 anhaengen 

open 5,8,5, "adressen, s,a” 

print#5,at$ 

print#5,nn$ 

print#5,vn$ 

print#5,st$ 

print#5,hn$ 

print#5,po$ 

print#5,wo$S 

print#5,tn$ 

close 5 

goto 198 

rem Me laden 

print ”[Cclr,rvs,cbm 5,1“4spaces,blk] 

sequenz 64[cbm 5,16spaces]” 

print "[Cup,rvs,cbm 5,48spaces]” 

print ”[Lup,rvs,cbm 5,11spaces,blk] 

*#4#%% laden ***=®=[Cchm 5, 12spaces)” 

print "Cup,rvs,cbm 5,4®spaces, blk]” 

q=d 

print :gosub 3148:print 

open 5,8,5, "adressen” 

gosub 3188 

if s1$5<>”28” then close 5:goto 208 

close 5 

q=-®:open 5,8,5, "adressen, s,r” 
input#5,a$(q) 

q=-q+1 

if st<>64 then 3998 

close 5 

gosub 3428 

if ul=-q-B then 1770 

gosub 3358 

ul=ul+B: u2=u2+B: u3=U3+B: uH=u4+B: u5=-UuS+ 

B: ußB=-u6+8: u7=U7+B: uB=uB+B 

goto 10838 

print ”"Chome, 16down,3right] 

UELCCCECCCCCECCCCCCECLCLECCCI” 

print ”C3right]BLlright]”;at$;” ”;nn$; 
”";unS5;tab(29)”B” 

print ”[3rightIBlright]”;st$;” ”;hn$; 

tab(29)”B” 

print ”[3right]Blright]”;po$;” ";wo$; 

tab(29)”B” 

print ”[3rightIB[lright]”;tn$;tabl 

e332B* 

print ”"[3right] 

JCEECCCCCCCCCCECCCECCECECECCK” 
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return 

rem **+#*s804= Floppy menue 

print "“Cclr,rvs,cbm 5,14spaces,b1lk] 

sequenz 64[cbm 5,16spaces]” 

print ”"[up,rvs,cbm 5,40spaces]” 
print ”"[Lup,rvs,cbm 5,7spaces, blMkJ**=#s 
floppy menues ***““*[chm 5,3spaces]” 
print ”"Cup,rvs,cbm 5,48spaces,blk]” 
print "[C1®right,down,cbm a] 
ECCCCCCCECCCECCCEchm sI” 

print "[1ßdright]B 1) directory 
C3spaces]IB” 

print ”[1®right]B 2) disk-status B"” 
print ”"[1®right]B 3) disk-befehl B” 
print "[1®right]B 4) copy-datei 
[2spaces]B” 

print "[C1®right]B -) hauptmenue 
C2spaces]B” 

print ”[1Bdright,cbm zIECCCECCCCECECCECEE 
Ccbm x)” 

get ee$:if se$="" then 1270 

if se$-"1"” then gosub 1388:goto 1160 
if ee$=-"2” then 1340 

if ee$=-"3"” then 1438 

if ee$="4" then 2640 

if ee$=-"«” then 209 

rem *###s0ns#%# Jjisk-status 

gosub 3188 

gosub 3288 

goto 1168 

rem "#»»se#0#% Jirectory 

print "Cclr)]” 

gosub 3188 

if s15<>”00” then 1169 

open 1,8,9,”$”:get #1,a$,a$ 

get #1,85,a$:if st=-64 then close 1: 
goto 1460 

get #1,a$,b$:print asc (Ca$+chr$ (0))+ 
856*asc (b$+chr$ (0)); 

get #1,a$:print a$;:if a$<>”” then 
1449 

print :goto 1420 

gosub 32808 

return 

rem *#ssa#0s»# Jisk-befehl 

print ”"Cclr,rvs,cbm S,14spaces, blk] 
sequenz 64[cbm S,16spaces)” 

print ”"Lup,rvs,cbm 5,408spacas]” 
print "Cup,rvs,cbm 5,8spaces, blkJ****« 
disk-befehl ****+[chm 5,9spaces]” 
print ”"[Cup,rvs,cbm 5,408spaces, blk]” 

gosub 3188 

if s1$5<>”9098"” then 1168 

poke 631,34:poke 138,1 

input "L[2down,2ZrightI>";11s 

open 1,8,15,11$:close 1:print "[down]” 
gosub 3288 

goto 1168 

print "[67spaces]”; 

print "[12spaces]"” 

return 

rem *+#sssssss® neue datei 

gosub 3149 

open 5,8,5, "@E:adressen, s, w" 

print#5,ats 

print#5,nn$ 

print#5,vnS 

print#5,sts 

print#5,hns 

print#5,poS 

print#5,woS 

print#5,tns 

close 5 

goto 228 

gosub 3189 

rem *###==»»#%%% bearbeitungsmenue 


print "Chome, Sdown]” 


for x=1 to 4 

print "[72spaces]” 

next x 

print "[Chome, 5down)” 

print "[4rightldurchblasttern mit 
eursor up, bzw.[6spacss]cursor down.” 
print "[Yright]«-[2spaces]-- menue” 
print "[Lup,4rightldl2spaces]-- 
drucken” 


1558 print "[4rightls[l2spaces]-- suchen” 


1868 


1878 
1888 
183928 
1998 
1918 
1920 
1930 
1940 
1950 


1968 
19378 
1988 
1998 
2008 


20198 
2928 
2039 
2040 
2058 
20608 
2070 
20808 
2032 
2108 
2110 


21208 
2130 


2149 
2159 


2160 
2178 
2188 


22008 
2210 
2220 
2238 
BE4O 
2250 


2260 
2270 
22898 


2299 


23008 
2318 
2330 
2340 
2358 
2369 
2370 
2388 
2398 
240 
2410 
2420 
2430 
B440 
2450 
2460 


2470 
2480 
2498 
25008 
2510 
2520 


2538 
2548 
2558 
2562 


2578 


print "[Lup,4right]1l[l2spaces]-- 
loeschen” 

get z$:if z$="” then 1878 

if z$=-chr$5 (145) then 1958 

if z$=chr$ (17) then 2908 

if z5=-"«-" then 298 

if z$="d” then 2068 

if 25=-"s” then 2418 

if z$="1"” then 2908 

rem !Hemnswss® blaettern 

ul=ul+B: u2=u2+B: u3ru3+B: uy=u4+B: u5=uS+ 
8:u6=U6+B: u7=Uu7+B: uB=uB+B 

if ul>gq-B then 2000 

gosub 3359 

gosub 3429 

goto 18198 

ul=ul-B: u2=u2-8: u3=U3-B: u4=uY4-B: uS=uS- 

B: ußG=-uB-8: u7=U7-8: uB=UuB-8 

if ul<® then 1958 

gosub 3358 

gosub 3420 

goto 1818 

rem EZ ZZ EZ Enz 2 drucken 

print ”Chome, 3down]” 

for x=1 to 4 

print "[68spaces]” 

next x 

print "Chome, Sdown]” 

print "CrvsJlalofflJlles oder [rvsIn 
Cofflur C”;a$(lul);” ";aSlu2);”,”; 
a$(u3);"”)”;:input 0S 

input ”"telefonnummer(n) mitdrucken 
(J/n)”;ny$ 

fl-ul:F2=u2: F3eu3: Fed: FSe US: FE=-ub: 

£7-u7: FB=u8 

if 0$=-"n" then 2238 

print "[rvs)bitte drucker einschalten 

Loff]” 

gosub 3328 

close 2:open 2,4,8:cmd 2 

ul=B:u2e1:u3=-2; u4=3: u5=-4: u6=-5:u7-6: uB=- 

7 

print a$lul);” ";a$(u3);” ";aSlu2) 

print a$(Cu4);” ";a85Cu5) 

print a$(u6);"” ”;a$Cu7) 

if nj$="j" then print "te.:”;a$Cu8) 

print ” 

ul=ul+B:u2=u2+B: U3=U3+B : u4=u4+B: uUS=Uu5+ 

8: uB=U6+B: U7=-U7+B: UB=-UB+B 

if ul=q then print#2:close 2:goto 2288 

goto 2208 

ul=Fl:u2=f2:u3=f3: u4=E4:US=-FS:U6- 

u7=f7:uB=f8:goto 1778 

print "[rvsIbitte drucker einschalten 

Loff)” 

gosub 3328 

open 2,4,8:cmd 2 

print a$lCul);” ”;88(u3);” ";a$(lu2) 

print a$clu4);” ";a$(Cu5) 

print aSlu6);” ”;a$Cu7) 

if njJ$="j” then print ”"te.:”;a$(Cu8) 

print#2 

close 2 

goto 1778 

rem Kun suchen 

print ”Chome, 3down]” 

For x"1 to 4% 

print "[6Bspaces]” 

next x 

print ”Chome, Sdown]” 

print "[right]lbitte geben sie den 
namen der gesuchten adresse ein:” 
input ”"Cright,,downJvorname”;vi1S 
input ”[rightJnachname” ;v2$ 

for x=1 to gq 

if v2S-aS(lx) and vi$=a$lx+1) then 2549 

next x 

print ”[rvsJadresse nicht vorhanden 
Coff]” 

gosub 3328:x=1 

gosub 3359 

print ”Chome, 16down, 3right) 

ULCLCCCECCLCCCCECCCCCCCCCCCC1” 

print "[3rightIBLright]”;a$cx-1);” ”; 

a$(x);” ”;a$lx+1);tabl29)”B”: 

print "[3right]JBlright]”;a$cx+2);” "; 

85(x+3);tab(29)”B” 
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3039 
3948 


3858 
3068 
3978 
3888 
38399 
3188 
3118 
31228 
3138 
3149 


3158 
3169 
3178 
3188 
3198 
32008 
3218 
3229 
3238 
3249 


3258 
32698 
3279 
3288 
3238 
3398 


print "[3rightIJBLright]”;a$(Cx+4);” ”; 

a$(x+5);tab(29)”B” : 

print "[3right]Blright]”;aSCx+6);tabl 

233=B> 

print "[3right] 

JELELECLECEECCCCCECCCECCCCCCK” 

ul=x-1:u2=-x:u3=-x+1: u4=x+2 : u5=x+3: ub=x+ 

4:u7=x+5:u8=x+6 

goto 1778 

rem ##ssssss+®# datei kopieren 

print "[clr,rvs,cbm 5,14spaces,blk] 
sequenz E4[cbm 5,16spaces)” 

print "[Lup,rvs,cbm 5,48spaces]” 

print “Lup,rvs,cbm 5,9spaces, blMk]J**""“ 
copy-datei ***#s[chm 5,3spaces]” 
print "Lup,rvs,cbm 5,48spaces, blk]” 
ren =“. alles copieren *"* 

print :print "Irvs]bitte qualldiskette 
einlegenloff ‚down]” 


if s15<(>”"989” then close 5:goto 208 
ciose 5 

k=-8:open 5,8,5, "adressen, s,r” 
input#5,aS(k) 

k-k+1 

if st<>64 then 2768 

close 5 

print "[rvs]bitte zieldiskette 
einlegenloff)” 

gosub 3328 

open 5,8,5, "@:adressen, s,w” 

For tt=-® to k-1 

print#5,a$S(tt) 

next tt:close 5:q=® 

goto 1168 

rem .m-m........ programmende 

print ”Cclr,4down,3right,rvs] 
tschuesss! ”:end 

rem *++»#s#%»® adresse loeschen 
print ”Chome, Sdown]” 

For x=1 to 3:gosub 1698 

next x 

print "Chome,Sdown]” 

print "bitte vor- und zunames der zu 
loeschendenadresse eingeben.” 
input "Cdown]vorname ”;wiSs 

input "nachname ”;w2S 

For x=-1 togq 

if w1$S=-a$(Cx) and w2$S=aS(x-1) then 3929 

next x 

print ”[Crvs]ladresse nicht vorhanden 
Loff]” 

gosub 332%:goto 1778 

gosub 3148 

m=-®:open 5,8,5, "@:adressen, s,w” 

if a$lm+l)-w2S and aSlm+2)=w1S then m= 

m+8B 

if a$(m)=-"" then close 5S:goto 1778 

print#5,a$(m) 

if m=-q-1 then 3108 

m-m+1 

goto 3848 

close 5 

goto 1778 

rem #*#*4»s##® Unterprogramme 

rem wait 

print ”"[2right, down, rvs,blk]Jbitts 
diskette einlegen” 

poke 158,8:wait 198,1:poke 198,2 

return 

rem status 

print "disk status:” 

print ”Cdown,2right,rvs)”; 

open 15,8,15 
input#15,s1$,s2$,s3$5, s4$ 

print s1$”,”;s52$5;”,";535”,”;s4S 

print ”"Loff]” 

if s1$<>”@9” then wait 198,1:poke 138, 

[%) 

close 15 

return 

rem wait 

print ”[rvs,downlbitte taste druscken” 

poke 198,8:wait 138,1:poke 198,0 

return 


3437 
2797 
4438 
6232 

643 
2823 


1915 
2997 


2001 
3457 


535 
1651 
635 
1507 
266 
2610 
853 
325 
1497 
266 
3218 


595 
2946 
1158 

619 
1348 

611 


2120 


722 
1638 
306 
722 
5620 


1939 
1567 
768 
2787 
306 
25590 


1273 

603 
2835 
3515 


1922 
746 
1588 
335 
535 
266 
643 


2933 


2514 
142 


1372 
1083 
1960 
1602 
3113 

312 
1928 


470 
142 


1751 
2514 
142 


return 


JCCCCCECCCEECCEECCCECECCECK” 


rem wait 3428 print "[Chome, 16down, 3right) 5592 

3320 poke 198,®:wait 198,1:poke 138,8 2sı4 VECCLECCCCCCCCCECCLCLCCLECCI” 

3338 return 142 3438 print "[3right]JBlright]”;a$tul);” *”; 4764 

3348 rem bildaufbau aS(u2);”,";a$lCu3);tab(29)”B”: 

3358 print ”C[home,16down,3right] 5552 3448 print "[3right]JBLlright)”;a$cCu4);” ”; 3412 
LEECCCCCECCCCCCCCCCCECECEEI” = a$S(Cu5);tab(29)”B” 

3360 print "[3rightJBlright]”;"[23spaces)”; 2542 3458 print "[3right]Blright]”;a$(u6);” *”; 3478 
tab(29)”B” a5(u7);tab(29)”B” 

3378 print "[C3rightIJBLlright)”; "TC23spaces)”; 2542 3468 print ”C[3rightIBlright]”;a$luB);tabl 2497 
tab(23)”B” 239=B> 

3388 print "[3right]Blright]";"T23spaces)”; 2542 3478 print "[3right] 4439 
tab(29)”B” JELCCCCCCECCECCCECCECCCCCCCcK” 

3338 print "[C3rightlBLright]”;"T23spaces)”; 2542 3488 return 142 
tab(29)”B” 3498 print "C[right,down,rvslzeile zu lang”: 4132 

3408 print ”[3right] 4430 poke 138,8:wait 198,1:poke 198,9:goto 


458 


Sequenz 64“: Die handliche Datenbank 


Die „Wende“ in Grusinien 


System: C64/Floppy/Drucker 
Typ: Spiel 
Sprache: Basic 


Das Grusinische Reich ist ein klei- 
ner Staat irgendwo auf der Welt. 
Es regiert der Reichskanzler, der 
von der stärksten Regierungspar- 
tei gestellt wird. Da eine Partei 
selten über die absolute Mehrheit 
verfügt, gibt es regelmäßig Koali- 
tionen. Diese richten sich nach 
der Fraktionierung — es gibt 
Rechte und Linke. Doch kann es 
schon einmal vorkommen, daß 
eine Partei aus ihrer Fraktion aus- 
schert und die andere Fraktion 
unterstützt. Einen Fraktionszwang 
gibt es nicht. Da im Grusinischen 
Reich direkte Demokratie großge- 
schrieben wird, wird das Parla- 
ment jedes Jahr neu gewählt. Da- 
für ist eine ausgedehnte Wahl- 
kampfzeit sehr nützlich. Ist man im 
Parlament und hat sogar einen Po- 
sten als Minister, so hat man mehr 
Möglichkeiten, dem Volk zu zei- 


TDatesrnı der Partsıi 


Spitzenkandidat: 


Parteien gründen, Re- 
den halten, Flugblätter 
verteilen und Spenden 
verheimlichen — im 
Basic-Spielprogramm 


„Partei“ geht es zu wie 
im richtigen Leben. 
Diplomatisches Han- 
deln ist wichtig, um in 
der Gunst des Volkes 
zu steigen. 


gen, was in einem steckt. Hier 
wird man aber natürlich auch viel 
strenger bewertet, als wenn man 
nicht im Parlament vertreten ist. 
Im Vorwahlkampf hat man mehr 
Möglichkeiten zu Aktionen als 
während der Legislatur. Diese Pe- 
riode ist zeitlich begrenzt. 

Dann tritt man in die heißeste Pha- 
se des Wahlkampfes. Hier teilt 


FRrRF 


Stbaatb-samt des Kandidaeten: 


Zahl der Mitglieder : 


Vermoegen der Partei - 


Sitze im Parlament 
Stimmen beiı der letzten Wahl: 


Frozente bei der letzten wahl: 


So sehen die Informationen der PRF aus. 


SEI TS 


I2STE 


MR CHEZENSSTHRN TS ZEN 


man dem Wahlkampfleiter seiner 
Partei mit, wie intensiv der Wahl- 
kampf geführt wird. Hiernach 
richten sich die Unkosten einer 
Partei. Die Finanzen der Partei 
sind ausschlaggebend für deren 
Beliebtheit — und die wiederum 
ist richtungsweisend für das Wahl- 
ergebnis. 


Koalieren ist alles! 

VEREEDERERSNERE EEE 
Generell läßt sich sagen, daß radi- 
kale Gruppierungen nicht so gern 
gesehen sind wie demokratische. 
Aber auch als Partei mit antidemo- 
kratischen Grundzügen bleibt 
man von den demokratischen Pro- 
zessen nicht ausgeschlossen. Man 
darf ungehindert kandidieren und 
wird von sogenannten Protestwäh- 
lern gewählt. Diesen kommt es 
darauf an, daß diese Partei ‚or- 
dentlich auf den Putz haut‘. Eine 
Warnung: Zuviel „auf den Putz 
hauen" ist nicht gut und schmälert 


DON BEISSTRALER 
REICHSKANZILER 


2934345 Taler 


355347165 


393.59 
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die Aussicht, in das Parlament ein- 
zuziehen, erheblich. 

Ist die Wahl beendet, wird die Zu- 
sammensetzung der neuen Regie- 
rung bekanntgegeben. Anschlie- 
ßend ist jedermann Möglichkeit 
gegeben, Dinge wie Zusammen- 
setzung des Reichstages, genaue 
Wahlergebnisse und anderes zu 
erfahren. Einiges kann man sich 
auf Wunsch auch schriftlich mit in 
die nächste Legislaturperiode ge- 
ben lassen. 

Die Beliebtheit der Parteien wird 
kurz vor der Wahl in einer Umfra- 
ge festgestellt. Die Anzahl der 
Wähler hängt aber nicht hiervon 
ab — selbst Parteien mit relativ ho- 
her Beliebtheit können an der 3,5- 
Prozent-Hürde scheitern. 


Bedienung des 
Programmes 


Gestartet wird dieses Basic-Pro- 
gramm für den C64 mit RUN. Es 
wird nichts nachgeladen, trotz- 
dem dauert esein paar Sekunden, 
bis der erste Reichstag in seiner 
Zusammensetzung feststeht. Aus 
Speicherplatzgründen können 
nicht mehr als 13 Parteien zu glei- 
cher Zeit am Geschehen teilha- 
ben. Da der Computer acht Partei- 
en steuert, ist die Anzahl der Mit- 
spieler somit auf fünf begrenzt. 
Aufgrund der guten Menüsteue- 
rung ist es für Interessierte ein 
leichtes, sich in diesem Programm 
zurechtzufinden. Hier ein wichti- 
‘ger Hinweis: Eine relativ brauch- 
bare INPUT-Routine befindet sich 
in den Zeilen 63000 bis 63009. 
Wenn man das GOSUB 62000 in 
Zeile 63009 wegläßt, so kann man 
diese Routine ohne Schwierigkei- 
ten in ein eigenes Programm ein- 
bauen. Die Länge der hier einzu- 
gebenden Variable A$(2) wird 


rem dieses ist ein programm von 
roland richter aus martfeld 


anschrift: 
roland richter 
la-bazoge 342 
d-2811 martfeld 


poke 53272,21:poke 53281,8:poke 53288, 

8:poke 657,212 
® print ”[clr,wht, 3down, Sspaces]bitte 

wartenl2spaces])- ich lese daten” 


print 
roland richter” 
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"F6dowun] partei - sin spiel von 


Spiele Listing 


durch Zeile 63008 geregelt. Wer 

noch eine Maschinenroutine zum 

Einlesen des Directorys ohne Pro- 

grammverlust benötigt, der sollte 

die DATAS in den Zeilen 60500 bis 

60590 einmal ab 828 laden und mit 

SYS 828 starten. 

Nach der Darstellung der neuen 

Regierung hat man folgendes 

Menü: 

Fl -— Darstellung der Machtver- 
hältnisse mit Balkengrafik. 

F2— Darstellung der Regierung 
(Nennung der Minister) 

F3— Politische Einstufung der 
Parteien 

F4 — Die finanzielle Situation der 
Parteien im Überblick 

F5 — Parteienstruktur verändern 
(Neue Partei gründen und 


ähnliches) 
F6 — Informationen über eine 
Partei auf dem Bildschirm 
F7 — In die Legislaturperiode ge- 
hen 


Weiterhin sind noch folgende 
Buchstaben mit Befehlen belegt: 
B-—- Die durch eine Umfrage 
herausgefundene Beliebt- 
heit der einzelnen Parteien 
in Balkengrafik und mit der 
Vergebung von Punkten 
Die Fraktionierung der Par- 
teien (Rechte, Linke und 
nicht im Reichstag vertrete- 
ne) 

Daten einer einzelnen Partei 
ausdrucken 
Zusammensetzung 
Reichstages ausdrucken 
Daten aller Parteien aus- 
drucken 

Storage-Modus. Hier kann 
man den Spielstand auf Dis- 
kette abspeichern, von Dis- 
kette laden, die DIREC- 
TORY anschauen oder auch 
Auslesen des Fehlerkanals 
Ist eine besondere Tastenbele- 
gung vorgesehen, wird sie auf 
dem Bildschirm angezeigt. Damit 


des 


man sich im Programm zurechtfin- 
det, hier die wichtigsten Varia- 
blen: 
PR(x) = Prozente einer Partei 
SIx) = Sitze im Reichstag 
PN$(x) = Name der Partei 
SK$(x) = Name des Spitzenkandi- 
daten der Partei (= Spie- 
ler) 
= Politische Einstufung 
(O=linksextrem, 
15=rechtsextrem) 
= Zahl der aktiven Partei- 
en 
= Stimmen bei der letzten 
Wahl zum Reichsparla- 
ment 
GE(x) = Vermögensstand der 
Partei in Talern (=grus. 
Währung) 
MI(x) = Parteimitglieder 
OP(x) = Fraktionierungsvariable 
(verändert sich nur sel- 
ten) 


ES(x) 


ZA 
ST(x) 


SA(x) = Stammwähler der Partei 

RE(x) = Unterscheidung Regie- 
rung/Opposition 

AP$(x) = Amt einer Partei im Staa- 
te 

AE(x) = Beliebtheit der Partei 

GE = Zahl der Wahlberechtig- 
ten im Reiche 

GM = Gesamtzahl der Mitglie- 


der aller Parteien 

Mit Hilfe dieser Variablenliste ist 
Modifizieren des Programmes 
nach eigenen Wünschen ohne 
weiteres möglich. Die Drucker- 
routinen sind auf einem Compu- 
master CCP 100 (= Quelle Privi- 
leg) geschrieben und funktionie- 
ren daher auch auf MPS 802 und 
kompatiblen Druckern. Da die 
Druck-Routinen sehr allgemein 
gehalten sind, macht die Anpas- 
sung auf andere Drucker keine 
allzugroßen Schwierigkeiten. 

Da in der jeweils letzten Druckzei- 
le nur mit neudefinierten Zeichen 
gearbeitet wird, ist hier aufzupas- 


sen. Roland Richter WEEEEEEE 


read za:read ge:read gm 
dim pr(13),si(13),pn&(13),sk$(13), 


es(13),be$(15),st(13),ge(13),mi(13), 


op(13) 


dim wa(13),wa$(5),saC13),am$(13), 
aps(13), aet13), nzs(22), lasc31), elc31), 


re(13) 


dim po(13),ma(13) 


read pn$(x) 
read pr(x)? 
read sk$(x) 


a en 


for x=1 to za 


er 
52 


53 
608 


70 
7ı 
72 
73 


74 
75 


99 
188 
118 


111 
1208 
121 
130 


bh 
140 
141 
te 
143 
144 
145 


146 
[1414] 
201 
202 
203 
204 
205 
206 
207 
208 
203 
e1® 
eıl 
el2 
213 
293 
199208 
10010 


10011 
12028 
10021 


10832 
10031 


12128 
10110 
10111 
10112 


10113 
10114 
10115 
12199 
1902008 
10291 
10202 
12218 
209098 
28010 


290208 


read es(x) 

read st(x):salx)=int (C rnd C1)*(lst(x)/ 
E))+lstlx)/13):5t[(x)=-st(lx)+tsalx) 

read ge(x) 

read op(x):read wa(x):read ae(x):read 
mi(cx):next 

for x"® to 15:read be$(x):next 

For x"1 to 5:read wa$(x):next 

for x=1 to 13:read am$(x):next 

for x=1 to 22:for u=1 to B:read nz: 
nz$(x)=nz$Cx)+chrS (nz):next :next 
for x=B2B to 999:read y:poke x,y:next 
for x=1 to 3l:read la$(x):read el(x): 
next 

print "Ccbm 7J":gosub 5090998 

print "Cclr,cbm 7lreichsparlament” 
print "[C2down]f1) darstellung der 
machtverhaeltnisse” 


print "f2) darstellung der regierung” 
print ”f3) einstufung der parteien” 
print "f4) Finanzielle situation” 
print ”f5) parteienstruktur 


veraendern” 

print ”f6) informationen ueber eine 
partei” 

print "f7) in die legislaturperiode 
gehen” 

print "[Cdown]b ) beliebtheitsskala 
darstellen” 

print ”f ) Fraktionierung im 
reichstag” ° 

print ”e ) daten einer partei 
ausdrucken” 

print "d ) reichstagszusammensetzung 
ausdrucken” 

print ”[up)p ) daten aller partsien 
ausdrucken” 

print ”"@ ) speichern/laden” 

get a$:if a$=”" then 298 


if a$=-"[f1]J” then goto 51998 
if a$=-"[£f3]J” then goto 52988 
if a$=-"[£f5]” then gosub 53882%:goto 100 


if a$="[£f7]J” then goto 239888 

if a$="d” then goto 55888 

if a$="[£f4)J” then gosub 578288:goto 1898 
if a$="[f6]” then gosub 53882:goto 198 
if a$="f” then gosub 39889:goto 199 

if a$-"[f2]” then gosub 378828:goto 108 


if a$="p” then gosub 47888 

if a$="e” then gosub 47888:goto 198 
if a$="@” then gosub 45898:goto 198 
if a$="b" then gosub 45889:goto 190 
goto 208 


print "[clr,cbm’7Jwahlkampf” 

print "[2down]f1) hetzkampagne 
veranstalten” 

print ”F2) eine rede halten” 

print "f3) flugblattaktion starten” 
print ”f4) untersuchungsausschuss 
einsetzen” 

print "f5) Finanzielle situation” 

print ”q 3 wahlkampf der parteien 
abbrechen[ 3down]” 


get a$:if a$=""” then 10208 

if a$=-"[C£f1]J” then goto 400008 

if a$=-"[£3]” then goto 43008 

if a$=-"[£f5]J” then gosub 57909: goto 
19200 

if a$S="[C£4]” then gosub 200099: goto 
19200 

if a$=-"[£2]” then gosub 49008: goto 
18008 

if a$="q” then ti$=z$ 

goto 12198 


for x=1 to za:if es(x)<® then es(x)-9 
if escx)>15 then ex(x)=15 

if ti$>=z$ then goto 48990 

next :print ”L[Lupldauer des 
wahlkampfes: ”;ti$:goto 10198 

print ”[clrJeinen 
untersüchungsausschuss einsetzen” 
for x=1 to za:print x;”"L[LleftJ)[red] "”; 
pn$&(x);"Ccbm 7]”:next 

print "gib die nummer deiner partei 


585 
6698 


533 
3701 


"1549 


2oeH4 
1714 
4677 


2369 
2258 


KIEL 
2015 
33921 


2987 
2934 
2664 
3219 


3594 
3238 
2823 
2332 
3801 
4738 
3218 


1336 
1388 
1696 
1732 
2447 
1533 
1672 
2304 
e344 
2427 
226B 
1556 
E453 
Bees 
2285 

558 
1289 
3075 


2427 
2341 
4075 


28672 
3433 


1472 
16998 
1734 
2595 


E4B2 
2410 
1805 

573 
2564 
1655 
1266 
3326 
4506 
2B26 


5148 
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2008328 
20040 


20058 
20051 


20869 
20070 


20088 


20090 


201008 


208110 
201208 
201308 
201408 
20159 


201560 
20170 
20182 
20198 
202008 


20210 
20220 
eoe221 
ev222 
20223 
29224 
20225 
20226 
20399 


20301 


20392 
20303 


20304 
20305 


22306 
20307 
20308 
20309 
20318 
20311 
20312 
20313 


20314 
20315 


20316 
20317 
20318 
20320 
20321 
20322 
20323 
20324 


20325 


Spiele Listing 


ein: ”;:gosub 63908: a$-a$(?2) 

if val (a$)>® and val (aS)<za+l then 
goto 20058 

print "[rvsJfalsche eingabeloffJ":goto 
20028 

if op( val (a$))-=-® then goto 20308 
print "Ccbm 6Jbist du ”;sk$C val 
(a$));”? Cy3/n)[Cchbm 79” 

get b$:if b$="”"” then 29069 

if b$="n” then print "[downJwarum 
gibst du dich als ”";sk$C val (a$)) 

if b$="n" then print "aus? taste 
druecken!":poke 158,8:wait 198,1:poke 
198,8:goto 100208 

print "Cclr,cbm 7Jweshalb soll ein 
untersuchungsausschuss eingesetzt 
werden ?” 

print ”[Cdown,wht]J1) wegen einer 
anderen partei” 


print "2) wegen des reichskanzlers” 
print ”3) wegen der gewerkschaften” 
print ”4) wegen der industrie” 
print "5) wegen der spionage” 

print "”6) wegen der 


umweltverschutzung” 

print "7) wegen der armee” 

print ”8) wegen des verkehrsproblenms” 
print "Cdown,redlgib die nummer ein "; 
get aS(l2):if asl2)="" then 28159 

if val (aS(l2))<1 or val (a$(l2))>za 
then goto 20158 

if a$(2)-"1"” then 29392 

if a$(2)="B” then 21598 

if a$(l2)="2" then 21899 

if a$S(2)=-"3” then 21698 

if a$(2)="”6” then 21598 

if a$(l2)=-"7” then 22809 

if a$t2)="4” then 22108 

if a$l2)="5” then 22208 

print ”[clr,2down,cbm 7] 
untersuchungsausschuss wegen einer 
[6spaces]Janderen partei einsetzen” 
print ”"[clr,bluJwegen welcher partei 
soll der ausschuss untersuchen?Lcyn]” 
for x=-1 to za 

if x=val (a$) then print x”[left]J) 
keine option”:goto 29395 

print x”[left]) ”;pnS(Cx) 

next x:print ”[red]Jnummer der partei: 


’ 
gosub 63008:a$(1)=aS$c2) 
if a$C1)=a$ then print "[down,cbm 7] 
geht nicht”":poke 138,8:wait 198,1:poke 
198,8:return 
if val (Ca$l1))<® or val (a$li))>za 
then print "falsche taste”:goto 20306 
print ”[Ccbm 7Jwegen was soll gegen 
diese partei er-[3spaceslmittelt 
werden?[douwn,red]” 


print ”Cdown]Ji) steuerhinterziehung” 
print ”2) politischem radikalismus” 
print ”3) geheimnisverrat” 
print "Cdown,cbm 7Igib die 


entsprechende zahl ein.” 
get a$:if a$="" then 20314 
if val (Ca$)<® or val (a$)>3 then print 
"geht nicht”:goto 20314 
if a$="1"” then goto 29320 
if a$="2” then goto 21108 
if a$=-"3" then a$-a$(1):goto 219008 
print "[clr,whtlein parlamentarischer 
untersuchungsaus-" 
print "schuss tagt wegen 
steuerhinterziehung[l3spacesIder 
partei ”;pn$C val (a$(1))) 
i=-int C rnd (1)*8)+1 
print "[Cdown,cbm 7Jdas ergebnis: ":sal 
val (a$l1)))=sal val (aSl1)))-(Csac val 
(aS(1)))/10) 
if i=1 then print ”der 
untersuchungsausschuss ist nicht in” 
if i=-1 then print ”der lage, ein 
ordentliches ergebnis ab- zuliefern."” 
:goto 20352 
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20326 


20327 


20328 


20329 
20338 
20331 
20332 
20333 
20334 
208335 
20336 
20337 
20338 
20333 
20340 
20341 


28342 
20343 
20345 


20346 


20347 


20348 


20349 


20358 


20351 


20352 


20353 


20354 
29998 


28318 


20328 


203308 


21008 


21001 
21902 


21003 


21004 


21005 


62 QUD Sonderheft 
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if i-2 then print ”es liegt keine 
steuerhinterziehung vor .”:goto 63188 

if i=-3 then print ”was wie 
steuerhinterziehung aussah, war eine 
spende."”:goto 20352 

if i=-4 then print "der 
ausschussvorsitzende hatte keine 

[4spaces]lust mehr,” 

if i=-4 then print "deshalb liegt auch 
kein ergebnis vor”:goto 63198 

if i=-5 then print ”ss wird gemunkelt, 
dass die mitglieder” 

if i=-5 then print "des ausschusses 
bestochen worden sind.” 

if i=-S then print ”ob das der grund 
ist, dass gar kein” 

if i=-S then print "ergebnis vorliegt.” 
:goto 63208 

if i=-5 then print "die vermutung 
scheint richtig zu sein.” 

if i=6 then print "der fall wird dem 
gericht uebergeben.” 

if i=-7 then print ”der fall wird dem 
gericht uebergeben.” 

if i=-8 then print ”der ausschuss gab 
diel2spaceslarbeit auf.” 

if i=B then print "durch das 
kuddelmuddel der finanzen” 

if i=B then print "kann sich doch kein 
mensch hindurch-” 

if i=-8 then print "finden.die arbeit 
wird dem gericht” 

if i=-8B then print "ueber lassen 
Cha!lhalhalha!)” 

print "[down,grn]ldas gericht sagt: ” 

i=-int C rnd (1)*4)+1 

if i-1 then print "[Cdown,cbm 7lder 


angeklagte wird freigesprochen. ”":goto 
20352 

if i=-2 then print ”"[down,cbm 7lder 
angeklagte ist nicht schuldig.”:goto 
63198 

if i=-3 then print ”[down,cbm 7lder 
angeklagte wird fuer schuldig 


befunden”:goto 63298 

if i-4 then print ”Cdown,cbm 7Jdie 
kassenbuscher waren zu schlampig 

C4spaces]gefuehrt!” 

print "deshalb wurde das verfahren 
mangels an” 

print "beweisen eingestellt .eine 
strafe muss[3spaceslaber gezahlt 
werden: 50200 t.” 

get val (a$C1)))=-ge( val (ascl1)))- 

59009 

poke 138,0:wait 198,1:poke 198,0: 

return 

print ”[down,cbm 7lder angeklagte muss 
eine strafe zahlen:”:i=int C rnd (1)* 
10080809)+100008 

print i;”"taler”:goto 20352 

print ”[down,cbm 7Jleine nicht im 
parlament vertretene” 

print "partei kann keinen 
untersuchungsaus-[4spaces]schuss 
einsetzen.” 

print "[down, rvs,yelltaste druecken 
Ccbm 7,0ff]” 

poke 198,8:wait 198,1:poke 198,0: 

return 

print ”"[clrJein untersuchungsausschuss 
tagt” 

print "wegen geheimnisverrates durch” 
print "die partei ”;:print pn$( val 
(a$)) 

print "[2down,whtJer kommt zu 
folgendem ergebnis:[cbm 6)” 

if rel val (a$))<>2 then print "eine 
partei, die nicht an der regierung” 
if re( val (a$))<>2 then print 
"beteidigt ist, weiss keine 
geheimnisse, ” 


63916 


= Spiele Listing 


21006 
21007 
21808 
21003 


21019 


21011 


21012 


21013 


21108 
2111® 
211208 
21138 


21140 


21141 
21142 
21143 
21134 
21588 
21518 
21528 
21538 
21531 


21532 
21548 


21541 
21542 


21543 
21558 


21551 
21552 
21553 
21554 
21568 
21608 
21601 
21618 
21628 
21639 
21631 
21632 


21640 


if re( val (a$))<>2 then print "die 
sie verraten koennte.”:goto 28352 

i=-int C rnd (1)*10)+1 

if i=-4 then print "es gibt beweise 
Fuer die schuld dieser[2spaces) 

partei!” 

if i=-4 then print ”der Fall wird dem 
gericht uebergeben:” 

if i=-4 then a=int ( rnd (1)* 
100900098)+100909:geC val (as))=-gel 

val (a$))-a 

if i=4 then sal val (aS))=sal val 
(a$))-(Csal val (a$))/10) 

if i=4 then print "eine strafe von ”; 
a;” talern”:print ”ist zu zahlen.”: 
goto 28352 

print ”die partei wurde fuer 
unschuldig[8spaces]Jbefunden! "”:goto 

20352 

print ”[Cclr,cbm 7Jder 
untersuchungsausschuss tagt wegen” 
print ”des politischen radikalismus 
bei der” 

print "partei ”;pn$C val (a$(1)));”: 
[Cred)” 

if est val (aSc1)))<3 or est val 
Ca$C1)))>14 then print "die partei ist 
zu radikal” 

if est val (Ca$(c1)))<3 or es(l val 
(a$C1)))>14 then print "eine 
entradikalisierung wird”; 

if esl val (a$(c1)))<3 or esC val 
(a$(1)))>14 then print ” vorgenommen” 
if esC val (aS(1)))<3 then es(C val 
(ast1)))=-3 

if es( val (aS(1)))>13 then es( val 
(ast1)))=-13:goto 28352 

print "der verdacht hat sich nicht 
bestaetigt.”":goto 28352 

print "Cclr,cbm 7leinen 
untersuchungsausschuss tagt wegen des 
verkehrsproblens: [2down, red)” 

i=-int C rnd (1)*3)+1 

print ”er kommt zu folgendem ergebnis: 


if i=-1 then print "es liegt ueberhaupt 
keine verkehrs-” 

if i=1 then print "problem vor.deshalb 
gibt es auch kein” 

if i=-1 then print ”ergebnis.” 

if i=-2 then print ”der ausschuss 
untersucht, doch er” 

if i=2 then print "findet nichts,.nach 
einiger zeit losst” 

if i=2 then print "er sich auf .ein 
ergebnis liegt nicht” 

if i=2 then print ”vor.” 

if i-3 then print "der ausschuss 
tagte, und nach einiger” 

if i=-3 then print "zeit Fand man 
heraus, das es viel zu” 

if i=3 then print "wenig strassen 
gibt.der ausschuss gibt” 

if i=3 then print "eine empfehlung an 
den verkehrsminister” 

if i=-3 then print "ab, neue strassen 
zu bauen.” 

print ”[chm B,downltaste druecken.”: 

goto 28352 

print ”[clr,cbm 7Jleinen 
untersuchungsausschuss wegen der” 

print ”gewerkschaften einsetzen[ldouwn, 

yel]” 

print "Folgendes ergebnis liegt vor: ” 
i-int C rnd (1)*19)+1 

if i=-1 then print "die gewerkschaften 
werden von ueblen” 

if i=-1 then print ”maschten 
missbraucht ‚deshalb brauchen” 

if i=1 then print ”sie mehr macht.”: 

es( val (aS))-es( val (aS))-1 

if i-2 then print ”dis gewerkschaften 


1612 
4574 
4246 


5158 


3734 


69397 
4BE&E 


4OBB 
3258 
3252 
4831 


5355 


4874 
eB21 
3659 
4208 
7727 
1411 
3462 
4275 
49098 


1896 
3875 


4748 
4353 


1428 
4486 


3663 
4746 
4949 
3396 
2311 
sı12 
2687 
3547 
1612 
4050 
4451 
4484 


4021 


21641 


elb42 


21643 


21644 
21659 


21651 
21652 


21658 


el661 


21662 


21663 


21664 


21678 


21671 


21672 
21673 


21688 


21681 


21682 
21683 
21684 


21638 


21681 


21692 


21693 


21694 


21635 


21708 
21701 


21718 


21711 


21712 
21720 


e1721 


21722 


21723 


21738 


21800 


21801 


21818 


21811 
218208 


haben viel zu viel” 
if i-2 then print "macht .eine 
bsschneidung dieser mahcht” 

if i=2 then print "ist im interesse 
der aufrachterhaltung” 

if i=-2 then print ”der demokratie in 
unserem staate un-” 

if i=-2 then print "bedingt notwendig.” 
:es(l val (aS))=es(C val (a$))+1 

if i-3 then print ”die gewerkschaften 
haben zuwenig geld.” 

if i=-3 then print ”eine finanzspritze 
ist im interesse der” 

if i=-3 then print "”arbeitnehmer 
notwendig.” 

if i=-4 then print ”die gewerkschaften 
haben viel zuviel” 

if i=-4 then print ”geld.damit sie 
unsere wirtschaft duurch” 

if i=-4 then print "ihre vielen 
Fehlinvestitionen nicht” 

if i=-4 then print "ruinieren, muessen 
sie mit einer " 

if i=-4 then print "sondersteuer belegt 
werden.” 

if i=-5 then print ”die aktivitaeten 
der gewerkschaften auf” 

if i-5 then print "dem bausektor 
musssen unterstuezt” 

if i-5 then print ”werden, damit 
moeglichst viele neue” 

if i-S then print "schoene wohnungen 
entstehen.” 

if i=-6 then print 
machen auf dem” 
if, i=-6 then print ”bausektor nur noch 
murks.dafuer muss” 

if i=-6 then print ”man ihnen einen 
denkzettel verpassen,” 

if i=6 then print "deshalb raten wir 
von jeder steuerlichen” 

if i-6 then print "Luplunterstuetzung 
ab.” 

if i=-7 then print "ein 
gewerkschaftseigenes wohnungsbau-” 
if i=-7 then print "unternehmen droht 
pleite zu gehen.” 

if i=7 then print "wir raten der 
regierung, dieses durch” 

if i=7 then print "gezielte 
subventionen zu verhindern, da” 

if i=7 then print ”sonst die gefahr 
besteht, dass alle” 

if i=7 then print "mister obdachlos 
werden.” 

if i=8 then print ”wir haben nichts an 
den praktiken der” 

if i=-8 then print "”gewerkschaften 
auszusetzen.” 

if i=-9 then print ”wir halten den plan 
der gewerkschaften, ” 

if i=-9 then print "die 
gesamtarbeitszeit zu kuerzen, Fuer” 
if i=-9 then print ”sehr bedenklich.” 
if i-18 then print "wir halten die 
Forderung der gewerk-” 

if i=-18 then print "schaften nach 
kuerzerer arbeitszeit bei” 

if i=-10 then print ”vollem 
lohnausgleich Fuer sehr sinn-” 

if i=-18 then print ”voll, um neue 
arbeitsplaetze zu schaffen,” 

print ”Cdown,chm 7ltaste -druecken”: 

goto 20352 

print "[clr,yeljJeinsetzung eines 
untersuchungsaus-” 

print "”schusses wegen des 
reichskanzlers[2down,cbm 71” 

For x=1 to za:if ap$(x)- 
"reichskanzler"” then goto 218298 

next 

print ”untersuchung gegen den 

reichskanzler[4spaces]”;sk$(x) 


”die gewerkschaften 


4367 
4501 
4375 
4838 
4570 
4546 
3512 
33356 
42B4 
4231 
3338 
3624 
4BS6 
4496 
4461 
4176 
3663 
4738 
4549 
4658 
3385 
5114 
4308 
45208 
4911 
3875 
3473 
4429 
4244 
43907 
4497 


24Do4 
4333 


4515 


4224 
4419 
2836 
4322 
4125 
33998 


138 
4772 
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21838 
21831 


21848 
21841 


21858 


21868 
21861 


21862 
21865 


21399 


21918 
e1311 


219228 
21921 
21922 


21923 


21924 
21925 
21926 
21927 


21928 


21929 


219308 


21948 


220888 


22010 


BEBEO 
22038 


22048 


22041 


eeoH2 
22043 
22198 
22118 


22120 
22130 


22131 


if es(x)>12 then es(x)=13: 
if es(x)>12 then print "[down,redlIder 
reichskanzler ist zu 
rechtsgerichter,”:goto 28352 

if es(x)<3 then es(x)=-3 

if es(x)<3 then print "[down, redIder 
reichskanzler ist zu linksgerichtet,.” 
:goto 20352 

if es(x)>7 then print "[down, redjes 
liegt nichts gegen den kanzler vor.”: 
goto 208352 

i=int C rnd (1)*198)+1 

if i=-5 then print ”"[down,redldisser 
reichskanzler ist nicht 
besondersvertrauenswuerdig.” 

if i=-5 then goto 20352 

print "[down,redlgegen diesen 
reichskanzler ist nichts[3spaces] 

einzuwenden.”:goto 28352 

print ”"[cbm 6,clr]Jein 
untersuchungsausschuss tagt wegen 
[3spaces]der umweltverschmutzung[Ldown, 

cbm 71” 

i=-int C rnd (1)*19)+1 

print "hier ist das ergebnis der 
untersuchung: ” 

if i=1 then print "es gibt gar keine 
umweltverschmutzung” 

if i=-1 then print ”in unserem schoenen 
lande...” 

if i-2 then print "tempo 188 muss auf 
den autobahnen ein-[L2spacesIgsfuehrt 
werden.” 

if i=-3 then print "alle autos muessen 
mit einem katalysatorausgeruestet 
werden.” 

if i-4 then print ”die lage des waldes 
ist bedrohlich” 
if i=-5 then print 
ist abgestorben” 
if i=-6 then print "wir duerfen keine 
autobahnen mehr bauen.” 

if i=7 then print ”die atomkraftwerke 
muessen bald abge-[3spaces)schaltet 
werden.” 

if i=-B then print "alle 
kohlekraftwerke muessen sofort 
[Sspaces]Jfilter bekommen.” 

if i=-9 then print "alternative 
energien muessen gefordert[l2spaces] 

werden.” 

if i=18 then print "durch gezielte 
massnahmen kann der um-[2spacesJwelt 
geholfen werden,” 

print "[down,cbm Bltaste druscken 

Ccbm 71”:goto 20352 


print "Cclr,bluJeinen 
untersuchungsausschuss wegen der 

C2spaceslarmee einsetzen[ldown]” 

print "[down,cbm 7JFfolgendes ergebnis 
liegt vor:[yel,down]” 

i=int C rnd (1)*190)+1 

if i=-1 then print "alles ist in 
ordnung mit der armee”:goto 28352 

if i-2 then print ”der 
verteidigungsminister hat dis armees 
verkommen lassen”:1k=® 

if i=-2 then For x=1 to za:if op(x)=2 

and ap$(x)="verteidigungsminister” 
then lk=x:next 

if i=2 then st(lk)=stCl1k)-(Cst(1k)/10): 
goto 28352 

i=1:goto 22838 

print "[clrJeinen 
untersuchungsausschhuss wegen der 
industrie einsetzen.” 

print ”[down,whtler kommt zu folgendem 
ergebnis: [down,red]” 

i=-int C rnd (1)*3)+1 

if i=-1 then print ”unsere industrie 
ist gesund.” 

if i=1l then es( val (a$))-es( val 

Cas))-1 


"fast der ganze wald 


1612 
39373 


4470 
3888 


5648 


6856 


3992 
4642 
5198 
6370 


6592 


6388 


7235 


2875 


6629 


3173 


1612 
4477 


6895 


6234 


3722 
1112 
6999 
3728 


1411 
3777 


2872 
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e2140 


e2l41 
22158 
22151 
22169 
221708 
22208 
22218 


22220 
Racce 


22223 
Sa: 


ge225 


B2226 
22227 


23000 
23018 


2392208 
23921 
23022 
23838 
23040 
23058 
230698 
- 23070 
23071 
239072 
23088 
23038 
23031 


23198 
23118 


e3111 
23113 
23114 
23128 
232098 
23210 
232208 


23308 
23301 


23392 
23383 


23304 
23305 
23386 
23387 
23388 


23309 


Spiele Listing 


if i=2 then print "unsere industrie 
kraenkelt.wir muessen[l2spaceslalle 
steuern erlassen.” 

if i=2 then es( val (a$))-es( val 
(as))+1 

if i=3 then print "unsere industrie 
steht kurz vor dem[5spaces]Jbankrott.” 
if i=3 then es( val (Ca$))"es( val 
Cas))+1 

if i=3 then print ”wir muessen mit 
subventionen helfen.” 

goto 20352 

print ”"C[clrJeinen 
untersuchungsausschuss wegen der 
C2spaces]spionage einsetzen.[down]” 
print ”[Lwhtlund hier ist das ergebnis: 
Cdown,red]” 

i=int C rnd CII*5)+1 

if i=1 then print "bei uns haben 
spione es schwer...” 

if i=2 then print ”spione haben es 
leicht bei uns,,.” 

if i=3 then print "bei uns laeuft 
nichts auf dem spionage- sektor” 

if i=-4 then print ”wir muessen unsere 
geheimdinstaktivi-[3spaces]taeten 
steigern.” 

if i=-5 then print "wir brauchen mehr 
qualifizierte spione.” 

print "[down,grnltaste druecken”:goto 

208352 

if za=B then goto 19008 

for az=3 to za:se=d:qg(1)-1 

gosub 620088: if ae=5 then goto 239008 
if q(1)=® then goto 48908 

print "[clr,cbm 7Jdie 
legislaturperiodeldown]” 

print ”[cbm “4]Jpartei: ”;pn$(az) 
print ”staatsant: ”;ap$(laz) 

print "sitze im.parlament:”;si(az) 
print ”"Cdown,cbm 61” 

if si(az)>® then print "fi [Lwht] 

untersuchungsausschuss einsetzen” 

iF ap$laz)<>”keines” and ap$(laz)t> 
"reichskanzler” then gosub 23218 

if ap$(laz)-"reichskanzler” then gosub 

23228 

if si(az)>® then print ”[chm 6]£3 
[Cwhtlmisstrauensantrag einbringen” 

print ”[cbm 6JF5S [Lwhtleine rede 
halten” 

print ”"[cbm 6Jf7 [Luwhtllegislatur 
beschlisssen” 

get a$:if a$=-""” then goto 23108 

if aS=-"[£f5]” then pz=raz: ae=-aetl:gosub 

49878:goto 23028 

if silaz)>@ and a$="[f1]” then ae=ae+ 
1:goto 23928 

if a$="[£f3]J” and si(laz)>® then gosub 

24BB9:gato 230829 

if aß=-"LC£2]” and apS$laz)<>"keines” 

then as-as+tl:gosub 23308:goto 23828 
if a$="[F7]” then goto 23300 

goto 23108 

print ”[cbm 6Jf2 [LwhtlJhandlung im ”; 

ap$(az); "ium”:return 

print ”Ccbm 6Jf2 CwhtJhandlung im 
kanzleramt”:return 

print ”"[clir,cbm 7Jhandlung im ”; 

if ap$Caz)<>”"reichskanzler” then a$- 
ap$laz)+”"ium”:print a$:goto 23383 
print ”kanzleramt” 

print ”[down,cbm BJwas moechten sie 
machen?” 

print "[down,cbm 7]a) eine dienstreise 
unternehmen” 

print ”b) ihren lohn erhohen” 

print ”"c) mehr arbeiten” 

print ”d) gar nichts tun” 

print ”"Cdown,yellgeben sie den 
entsprechenden buchstaben ein: 

get a$:if a$=""” then 23303 
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23310 
23311 


23312 


23313 
23314 
23315 
233208 
23321 


23322 


23300 
23910 
23928 
23924 
240088 


24019 
240208 
24838 


24049 
24952 
24068 
24070 


24080 


24030 
24100 
2e411® 
24120 


24138 
24140 
24158 


24160 
24170 
24180 
24130 


24290 


24219 


24220 
24230 


242408 
2493939 


26008 
26001 


26002 


26004 
26005 


26006 
26907 
26008 
26018 
26020 
26038 
26040 
26958 
398928 
39210 
39228 
38921 
30238 


print a$ 

if a$="d” then salaz)=-int (sa(laz)* 

0.9):eslaz)=-es(az)-1:return 

iF a$="b" then gelaz)=ge(az)+190090: 

salaz)-=-int (salaz)*0.9):es(az)-es(laz)+t 
1:return 

if. a$="a” then goto 23320 

if a$=-"o” then aelaz)-aelaz)+l:return 

goto 23388 

x=int CC rnd (1)*31)+1) 

print ”[down,chm 6Jdu bereist ”; 
la$(x):print "[downltaste druecken”: 

aelaz)-aelaz)+el(x) 

poke 158,8:wait 198,1:poke 198,0: 

return 

next 

goto 63018 

rem 

a$-str5 (az):gosub 208838:goto 230828 

print "Cclr,chm 7leinen 
misstrauensantrag einbringen” 

aeslaz)=-aelaz)-i 

if relaz)<>2 then aslaz)-aelaz)+2 

if ap$laz)=-"reichskanzler” then 

aes(laz)"int (aslaz)/2) 

qu=®:for x=-1 to za 

if ap$(x)="reichskanzler” then qw=x 

next x 

print "Cdown,cbm 63";sk$S(az);" bringt 
einen miss-” 

print "trauensantrag gegen 
reichskanzler” 

print sk$tqw);” ein 

for x=1 to za 

if re(x)=-1 then auw{l1)=-quli)+tsi(cx) 

if x=-az then gul13=-qul1)*+silx):goto 

e4140 

if re(x)=2 then qul2)=quw(2)+si(x) 

next x 

print "[downlJund hier ist das ergebnis 
der abstimmungi= parlament:” 

print qu(i1);” stimmen gegen ";sk$Cqw) 
print qu(2);” stimssen fuer ”;skS5Cqw) 
if qu(1)>qw(2) then goto 24230 

print "Cdownlder reichskanzler bleibt 
im amt.” 

if ap$(laz)<>"reichskanzler” and 
apS$(laz)<>"keines” and re(az)-2 then 
relaz)=-1 

if ap$laz)<>"reichskanzlier” and 

apS(az)<>"keines” then ap$(az)- 
"keines” 

aelaz)"-int (aelaz)-(aelaz)*.2)):goto 

24999 

print "Cdownlder reichskanzler ist 
gestuerzt worden”:qgC1)=8 

aelqw)-aelgw)-int (aelqw)*.3) 

poke 138,8:wait 198,1:poke 198,0: 

return 

for x=i to za 

if gelx)>milx)*388 then gelx)=micx)* 

381 

if ge(x)<-4598990008 then getlx)=-- 

3009888808-milx):salx)-int (salx)- 
(salx)*.3)) 

if mi(x)>748583 then mi(x)=int CC rnd 
(1)*7485698)+7785808)-mi(x) 

if ap$(x)="reichskanzler” 

ae(x)-3 

if silx)>(Cmi(x)*18) then goto 4B2920 
if ae(x)<1 then ae(x)=1 

if pr(x)<8.20800201 then pr(x)-8.000001 

next 

for x"i1 to za 

st(x)=int (ge/1088*pr(x)) 

micx)=-int ((st(x)/11)+1+si(lx)+234) 

next :return 

y-as(x) 

for yy=1 to 25 

y-u-2 

if y=-1 then print ”[cbm k)”; 

if y<@ then goto 32050 


":qw(1)-d:qwl2)=B 


then ae(lx)- 


427 
5362 


6865 


1618 
2796 

603 
1885 
5331 


2886 


1398 
603 


1953 
33398 


1610 
2361 
4498 


1145 
2382 

306 
3633 


3424 


39008 

873 
2750 
3235 


2643 
326 
59259 


3005 
3026 
1912 
2383 


6032 


5571 


3274 
4481 


2637 
2BBE 


873 
3168 


6232 


s228 
3886 


2169 
1798 
2BB2 
130 
873 
2BE4 
3273 
394 
452 
1818 
419 
1459 
1397 


39042 
30950 
30869 
30198 
38118 
381208 
30130 
38140 
30178 
39180 
30198 
32181 
32182 
301393 
30194 
30195 
37888 


37018 
37028 
37021 
37038 
37190 
37110 
37120 


37121 
37139 


380008 


38019 
38920 
38038 
38031 
38040 
38941 


38258 


38051 
38052 
38268 


38861 
382862 
38078 


38088 
38030 


38108 
38118 
381208 
38121 
38122 


38123 
381390 
38140 
38159 


38169 
38208 
399008 
33018 
39920 
39838 
3939031 
39948 
33950 


39951 
39952 


39053 


Spiele Listing 


print ”"Crvs] [Lof£J”; 

next 

return 

For x=-1 to B 

i=-int C rnd (1)*5)+98 

y=-int C rnd (1)*2)+1 

if y=-1 then ae(x)=ae(lx)-i 

if y=2 then aelx)=-aelx)+i 

i=-int ( rend (1)*28)+1 

if i-5 then es(x)"es(x)-1 

if i=19 then es(x)=es(x)+1 

next 

For x"1l to za 

if es(x)<1 then es(x)=1 

if es(x)>49 then es(x)=58 

next :return 

print ”Cclr,cbm 3ldarstellung der 
regierung[ldown,cbm 7]” 

i=d Tor x=7 0228 

if ap$(x)="reichskanzler” then i=x 
next 

print apS(i);”: 
Eor x=1 to za 
if x=-i then goto 37121 

if re(x)=2 then print ap&(x);”: ”; 
sk$(x) 

next 

print ”[Cdown,cbm 5SlIdieses ist das 
regierungsabinsett”:print "[chbm 6] 
taste druecken”:goto 208352 

print ”[clr,cbm 7Jhier ist das 
regierungskabbinett:":i=®:si(9)-® 
For x"1 to za:i=-i+tsi(x):re(x)=L:next 
a=-ß:for x=i to za 

if op(x)=2 then a=a+si(x) 

next 

if a>Ci/2) then goto 38968 

if a=(i/2) then si(l1)-si(l1)+1:goto 

38019 

print ”"[down,cbm 6Jdie linksparteien 
kommen an die macht.”:xx=1 

For x=1 to za:if op(x)=1 then re(x)=2 
next :goto 38878 

print ”"[down,cbm 6ldie rechtsparteien 
kommen an die macht.”":xx=2 

for x=1 to za:if op(x)=2 then re(x)=2 
next 

print ”[down, redJregierungsbildung 
Cdown]” 

xu=-d:yx=8:For x=1 to za 

if si(x)>xy and re(x)=2 then xy*sicx): 
Ux=x 

next 

ap$(yx)="reichskanzler” 

uy=8:for x=1 to za 

if x=-yx then goto 38138 

if re(x)=2 and op(x)=xx then uyruy+l: 

ap$(x)=-am&(luy) 

if re(x)=1 then apS(x)="keines” 
next 

for x=1 to za 

if re(x)=2 then print ap$&(x);”: ”; 
sk$(x) 

next 

goto 208352 

print ”"[clrJfraktionierung der 
parteien:[down]” 

print ”"Cyellmitte-rechts Fraktion: 
Ecyn]” 

a=®:for x=1 to za 

if opfx)=2 then print pn$(x):poke 211, 
15:poke 214,peek (214)-1:sys 58649: 
print si(x) 

if op(x)=2 then a=a+si(x) 

next :print "[15spaces,5chm t]”:print 
"insgesamt: [Sspaces]”;a 

print ”Cdown,redJlinksfraktion:[cyn]” 

a=d:for x=1 to za 

if op(x)=1 then print pn$(x):poke 211, 
15:poke 214,peek (214)-1:sys 58648: 

print si(x) 

if op(x)=1 then a=a+si(x) 


"‚sk$(i) 
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33054 
33062 
39861 
33862 
33888 
39292 
49008 


429010 
490020 


49030 
40040 
49059 
40060 


49078 
40088 


49030 


40108 


40118 
40111 
42128 


42138 


40140 
40159 


40168 
40178 


42188 
40199 
490208 


492201 
42218 


40220 


43000 
43818 


439028 
43938 
439240 
43050 
43060 
43078 
43088 
43038 
43108 
43118 
43120 


43138 
43149 


next :print ”[15spaces,4cbm tJ":print 
"insgesamt :[5spaces]”;a 

print "[Cdown,redJnicht im parlament: 

Ecyn]” 

for x=1 to za 

if op(x)=® then print pn$&(x) 

next x 

poke 198,8:wait 198,1:poke 198,0: 

return 

print ”[CclrJhetzkampagne veranstalten 

Edown]” 

print "wer?" 

for x=1 to za:print x; ”"[leftI)[Lred) "”; 

pn$(x);”[cbm 7]”:next 

print "gib die nummer deiner partei 
ein: ";:gosub 639808: a$-a$(2) 

if val (a$)>® and val (aS)<za+l then 

goto 49062 

print "[rvs]Jfalsche eingabeloff)”:goto 

42038 

print ”"[cbm 6]Jbist du ";sk$(C val 
(a$));”? Cy/n)[cbm 7)” 

get b$:if b$="”” then 49978 

if b$="n"” then print ”[downJwarum 
gibst du dich als ”;sk$(C val (a$)) 
if b$=-"n” then print "aus? taste 
druscken!”":poke 198,8:wait 198,1:poke 
198,8:goto 10808 


print "[down,yellgegen welche partei 
willst du die hetz- kampagne starten? 
Echm 71 ”; 

gosub 63088: if val (Ca$(2))>za then 

goto 428198 

c5=-a$(2) 

if val (c$)<® and val (c$)>za then 

print ”[rvs]fehlerhafte eingabeloff]"”: 

goto 40108 

if c$=a$ then print ”"[Cdown, rvsJIdu 
kannst nicht gegen dich selber hetzen 
Loff)” 

if c$-a$ then poke 138,8:wait 198,1: 
poke 198,8:goto 10098 

print ”"[down]lbitte gib die staerke der 
hetze ein:” 

gosub 63908:sv=val (a$(2)) 

saCl val (c$))=-(sal val (c$))-Csac val 
Cc8))/5)) 

sa(l val (a$))=int (C(sal val (a$))- 
(sat val (a$))/190))) 

if es( val (a$))>=7 then esC val 
C(aß))=est val (aS))+1 

if est val (a$))<7 then est( val (a$))- 

es( val (a$))-1 

ge( val (a$))=-ge( val (a$))-(198909*sV) 

print "Cdownlich bin fertig - taste 
druecken” 

poke 198,8:wait 198,1:poke 138,0:goto 
18008 

rem flugblattaktion starten 

print "[clr,whtleine flugblattaktion 
startenfchm 6)” 

print "[CdownlJwir haben Folgende 
parteien:[chbm 7]” 

for x"1 to za 

print x;”"[left))”;pnS(Cx) 

next 

print ”Cdown,yellwelche partei wird 
die aktion starten?[cbm 72” 

gosub 63098:ap=val (a$l2)):eslap)- 

es(lap)-1 

if val (a$(l2))<1 or val (a$l2))>za 
then print ”[cbm 3,rvs]Jfalsche eingabe 
Loff,cbm 7]3”:goto 43070 

a=val (a$(2)) 

print ”[down,cbm 3Jbist du ”;sk$(Ca);”"? 
”;:gosub 5630088 

if left$ (a&(?),1)="j"” then goto 43139 
if left$ (ua8°2),1)<>”3j” then print ” 
Echm 7Jdanı: eben nicht - taste 
druecken”:goto 49228 

rem hier geht’s weiter 

Fp=-int CC rnd (1)*12)+1):print ” 
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2588 
873 
1431 
385 
2886 
28356 


768 
EB26 


5148 
2438 
2857 
3474 


1659 
4323 


6567 


5922 


26B4 

718 
4478 
5286 


49&B2 
3581 


1487 
3418 


3715 
3338 
3376 


2556 
3177 


3162 


3043 
2975 

873 
1744 

138 
4163 
2848 
5171 

564 
3083 


2361 
5566 


> 


hmm: 


ru nsre aa paufru n andre Nik orte pt 


a ze Zr en 


43158 


43168 
43170 
43188 
43198 


45900 
45218 


45929 


45239 


45040 


45050 


450608 


45079 


450890 


45998 


45198 


45110 


451208 
45121 


45130 
45148 


45158 
45168 


46000 


46218 


46011 


46028 


46021 


46022 


46108 
46118 
46120 
46138 


46149 


46150 


46183 
46198 
46191 
46192 
46193 
45184 


46195 
456196 
46193 
46200 


46218 


[cbm 7]Jpreis pro Flugblatt: ”;Fp;”taler 
pro 108.” 

print ”"[LwhtlJwieviele hunderter-packen 
sollen ver-[3spaces]teilt 
werden?(max.100) ”; 

gosub 63008:iF val (a$(2))>1208 then 
goto 431508 

geCap)"-gelap)-(C val (aS(l2))*Ep) 
print ”[down,cbm 7]lo,k. die 
flugblaetter sind verteilt.[4spaces] 
taste druescken” 

st(a)=-st(a)+int (st(a)/19000):mila)- 
miCa)+int (mi(a)/1000):goto 49220 
print ”"[CclrIJbeliebtheitsskala” 

print "Cdown,cynldie anzahl der 
stimmen richtet sich” 

print "natuerlich nach der baeliebtheit 
der” 

print "einzelnen parteien. 
umfrage” 

print "hat ein 
meinungsforschungsinstitut” 

print "diese festgestellt. die umfrage 
wurde” 

print ”kurz vor der wahl gemacht. sie 
kann als” 

print ”"richtlinie fuer die politik in 
dieser” 

print "legislaturperiode gesehen 
werden.” 

print "die bewertung geht von einem 
punkt, was” 

print "mit sehr unbeliebt 
gleichzusetzen ist,” 

print "bis hin zu 58 punkten, 
absolute” 

print "spitze sind.[yel,down]” 
print "[downltaste druecken”:gosub 

45168:print "Cclr,cbm 3ldie 
beliebtheitsskala:[cbm B,down]” 

for x=1 to za 

print left$ (pnS(x),2);":";:poke E46, 
(x):gosub 38080 

print ”"[cbm BJ”;ae(x):next 

poke 198,8:wait 198,1:poke 158,2: 

return 


print ”[clr, cynlstoragemodus”; chr$ 
(13);”"Ccbm 71spielstand abspeichern 
und laden.[Cdown]” 

print ”LwhtJfi Ccbm 3J-Ccbm 6] 
abspeichern des spieles” 

print ”CwhtlJf2 Ccbm 3]-Ccbm 6] 
directory von disk nr.B” 

print "CwhtJf3 Ccbm 3)-Cchm 6] 
einladen des spieles” 

print *"LwhtJ£f7 Ccbm 3J-Ccbm 6] 
auslesen des Ffehlerkanals” 

print "[CwhtlJgl2spaces,cbm 3]-[cbm 6) 
zuruck zum vormenue” 

get a$:if a$="” then 456128 

if a$="q” then return 

if a$=-"[£f2]” then goto 46298 

if aS-"[£f1]” then gosub 45309: goto 
46088 

if a$="[£3]J” then gosub 456590: goto 
46098 

if a$="[£f7]” then gosub 46199: goto 
46008 

goto 451988 

open 1,8,15 

input#1,a,b$,c,d 

close 1 

print "[clr,cbm 7Jfehlernummer: ”;a 
print ”bezeichnung im klartext:”:print 
bS 

print "track/sector:"”:print c,d 
poke 188,8:wait 198,1:poke 198,8 
return 

print ”"Cclr,cbm 7lIdirectory einlesen 
Ccyn,down]”:sys 828 

poke 198,8:wait 198,1:poke 1398,9:goto 

46088 


x 


in einer 


die 
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45300 
46310 
46320 
46338 
46340 
46358 


46351 


46368 
46361 
46378 
46428 
46418 
46428 
46438 
45448 
46458 
46468 
46478 
46489 
46438 
46588 
45518 
46528 


46538 
46548 
46558 
465568 
45578 
46582 
46538 


46591 
46592 
46533 
46594 
46535 


46535 
46597 
46598 
466008 
46610 
46620 
46630 
46540 
46658 
4E66D8 
46678 
46680 
46690 
467008 
46710 
467208 
467308 
46740 
46750 
46768 
46770 
467808 
47008 


47010 
47030 
47040 
47058 
47068 


47070 


47088 


print "[clr,cbm 7labspeichhern des 
spielstandes[cyn, down)” 

print "legen sie bitte dies diskette, 
auf der” 

print "ich den spielstand abspeichern 
soll, in” 

print "das laufwerk mit der 
geraetenummer 8” 

print "und druecken sie zum beginnen 
des ab-” 

print ”speichervorganges die taste 
Irvs]+[off].Cdown]” 

print "wenn sie nicht speichern 
moechten, so[l3spacesIdruecken sie 
CrvsJ£lLoff].” 

get a$:if a$-"” then 46360 

if a$=-"£” then return 

if a$t>”«” then 46368 

open 1,8,1,”"@:partei daten,s,w” 

print#1l,za 

for x=1 to za 

print#1,pr(x) 

print#1,si(x) 

print#1,pn$(x) 

print#1,sk$&(x) 

print#1,es(x) 

print#1,st(x) 

print#1,ge(x) 

print#1,mi(x) 

print#1,op(x) 

print#1,wa(x) 

print#1,sa(lx) 

print#1,re(x) 

print#1,apS(x) 

print#1,ae(x) 

next 

elose 1l:return 

print ”[clr,cbm 7leinladen des 
spielstandes[cyn, down)” 

print ”achtung: der momentane 
spielstand geht” 
print "verloren, 
abgespeichert” 
print "ist. wenn sie nicht laden, 
sondern” 

print "speichern moechten, so druecken 
sie [rvs)+[Loff].” 

print "andernfalls druecken sie [rvs]J£ 
Eoff3.? 

get a$:if a$="" then 45556 

if a$r"e” then return 

if a$<>”£” then goto 45596 

open 1,8,2,"partei daten,s,w” 
input#1,za 

for x=1 to za 

input#1,pr(x) 

input#1,si(x) 

input#1,pn$(x) 

input#1,sk8&(x) 

input#1,es(x) 

input#1,st(x) 

input#1,ge(x) 

input#1,mi(x) 

input#1,op(x) 

input#1,wa(x) 

input#1,sa(lx) 

input#1,re(x) 

input#1,ap$(x) 

input#1,ae(x) 

next 

close l:return 

rem ausdrucken der parteien- 

struckturen 

open 4,4:us=® 

print#4,chr$ (14); "daten der parteien” 
for x"1 to za 

print#4 

print#4, "CdownJName der Parteiflup): ”; 
pn&(x) 

print#4, "Cdown]Spitzenkandidat[Lup]: ", 
sk&(x) 

print#4, "[down]Staatsamt des 


wenn er nicht 


3362 


2385 
3884 
3253 
3571 
3293 
6358 


1753 
1224 
1642 
B7Ls 
6556 
873 
768 
303 
1011 
987 
6956 
824 
743 
855 
728 
807 


775 
831 
668 
695 
138 
606 
3218 


3542 
3605 
3031 
4768 
2331 


1757 
1328 
1539 
2358 
636 
873 
748 
883 
331 
967 
676 
894 
723 
835 
708 
787 
755 
811 
648 
675 
ı 138 
696 


1282 
2276 
873 
256 
2364 


7587 


3625 


47098 


47031 


47100 


47101 


47102 


47103 


47104 
47118 
47120 
47130 
47350 
47508 
47518 
475208 
47530 
47540 
47550 
47568 


47570 
47588 


47598 
47602 


47618 
476208 


47638 
47648 


47644 
47645 


47654 
47655 


47664 
47665 


47674 
47675 


47676 
47677 


47678 
47673 


476808 
47681 


47682 
47683 


47684 
47685 


47686 
47687 


47688 
47683 


47630 
47681 


47632 
47693 


47694 
47695 


47636 
47697 


Kandidatenlup]: ”;ap$(x) 


print#4, "Cdown]JZahl der Mitglieder[lup] 


:”;mi(lx) 


print#4, "CdownJVermoegen der Partei 
Cupl:”";ga(x); "CdownJTalerLup]” 


print#4, "Cdown]Sitze im ParlamentL[Lup): 


”;sicx) 


print#4,”"Cdown]Stimmen bei der letzten 


WahlLup]:”";st(x) 


print#4,"Cdown]Prozente bei der 


letzten Wahl[Lup]:”;pr(x) 


ee 


print#4, "CdownlEinschaetzungLup]: ”; 


be$(es(x)) 
if us=1 then goto 47128 


poke 158,2:wait 198,1:poke 188,8:next 


print#4:close 4 
gosub 47508: return 
close 1:close “4:end 
open 1,4,5 

open 4,4 

a-i 

print#1,nz$(a) 


print#4,chr$ (254);chr$ (141); 


print#1,nz$(a+1) 

print#4, "C[2spaces)”;chr$ 
(191); 

print#1,nz$(a+2) 

print#4, "C[3spaces]”;chr$ 
c141); 

print#1,nz$(a+3) 

print#4, "C4spaces)]";chr$ 
(141); 

print#1,nz$(a+4) 

print#4, "[5spaces]”;chr$ 
(141); 

print#1,nz$(a+5) 

print#4, "C7spaces)”;chr$ 
(141); 

print#1,nz$(a+6) 

print#4, "C8spaces)”;chr$ 
(141); 

print#1,nz$(a+7) 

print#4, "C[9spaces)”;chr$ 
(141); 

print#1,nz$(a+8) 

print#4, "[1dspaces)”;chr$ 
(141); 

print#1,nz$(a+S) 

print#4, "C1lspaces)”;chr$ 
(1413; 

print#1,nz$(a+10) 
print#4, "C[13spaces)”;chr$ 
(254Y);chr$ (141); 
print#1,nz$Ca+11) 
print#4, "[C15Sspaces]";chr$ 
(254);chr$ (141); 
print#1,nz$(a+12) 
print#4, "C17spaces]”;chr$ 
(254);chr$ (141); 
print#1,nz$Ca+13) 
print#4, "C19spaces)]”;chr$ 
(254);chr$ (141); 
print#1,nz$5(Ca+14) 
print#4, "TC25spaces)”;chr$ 
141); 

print#1,nz$(a+15) 
print#4, "C22spaces)”;chr$ 
(141); 

print#1,nz$(a+16) 
print#4, "[24spaces)”;chr$ 
(141); 

print#1,nz$(Ca+17) 
print#4, "C25spaces)”;chr$ 
(141); 

print#1,nz$(Ca+18B) 
print#4, "C26spaces]”;chr$ 
(141); 

print#1,nz$(a+139) 
print#4, "C[27spaces)”;chr$ 
(141); 

print#1,nz$(a+20) 
print#4, "[2Bspaces]”;chr$ 
(141); 


(254); chr$ 


(254); chr$ 


(254); chr$ 


(254); chr$ 


(254); chr$ 


(254);chr$ 


(254); chr$ 


(254); chr$ 


(254);chr$ 


(14); chr$ 


(14);chr$ 


(14);chr$ 


(14); chr$ 


(254); chr$ 


(254); chr8 


(254); chr$ 


(254); chr$ 


(254) ;chr$ 


(254); chr$ 


(254); chr$ 


BB4S 
4128 
3269 
3672 
4722 
2993 


1404 
8757 
5608 
856 
665 
954 
608 
362 
1048 
1488 
1439 
B665 


1441 
2333 


1443 
1924 


1445 
1871 


1447 
2318 


1449 
2653 


1451 
2831 


1453 
2320 


1455 
2588 


1548 
3314 


1544 
2999 


1548 
3479 


1552 
36508 


1556 
3341 


1560 
8785 


1564 
3169 


1568 
3341 


1572 
3430 


1576 
3838 


1542 
2683 


ee 


47638 
47699 


47700 
47808 


47801 
47802 
47803 
47804 


47805 
47806 


48000 
48010 
48020 
48021 
48038 
48050 


48060 
48070 
48080 
48090 
48190 
48118 
48128 
48125 
48130 


48140 
48160 


48178 
48171 
49088 
49010 
49020 
43230 
43048 
43050 


439060 


43078 


49080 
49090 
4910908 
49118 
49120 
49130 
49140 


491598 
49168 


49170 
49188 
49158 
49208 
49201 


49202 
493203 


print#1,nz$(Ca+21) 

print#4, "C293spaces)”;chr$ (254); chrSs 
(141); 

close 1:close “:return 

us=1:open 4,4:print "[clrIJdaten einer 
partei ausdrucken[down,cbm 33” 

For x=1 to za 

print x;"[left)) ”;pn$(Cx) 

next 

print "Cdown,cbm SJlwelcher partei 
daten soll ich[ilspaces)] 

nisderschreiben? [cyn]”; 

gosub 63000:x-val (a$s(2)) 

print#4,chr$ (14); "Cdown]Daten der 
Partei Cup)”; pn$(x):print#4:goto 

47870 

rem wahl 

print "Ccbm 7,clrJwahlkampf” 

gosub 62908 

if za=B then goto 481408 

For x"3 to za:print "[clr)” 

print "wie soll der wahlkampf der 
partei:[6spaces]”;pn$(x);” gefuehrt 
werden?” 

print "[down]1) kein wahlkampf” 

print ”2) wenig wahlkampf” 

print ”3) normaler wahlkampf” 

print ”4) starker wahlkampf” 

print "5) intensiver wahlkampf” 

print ”Cdownlgib die staerke ein: ”; 

gosub 63028 

if val (aS(t2))<1 or val (a$(2))>5S then 
goto 48118 

walcx)=val (aSl2)):gelx)=-gelx)+lwalx)* 
18888) :next 

For x=1 to za 

geCcx)=-int (getx)-1stcx)*2,5))+Cmilx)* 
20) 

next :For x=1 to za:ae(x)=-aes(x)-walx): 
next 

gosub 62998: gosub 52888:gosub 260808: 
goto 182 

rem eine rede halten 

print ”"CclrJeine rede halten” 

print "Credlwir haben folgende 
parteien:[cbm 7” 

For x=i1 to za:print x;"[left)) ”; 
pnS(x):next 

print "C[Cdown,cbm EJfuer welche partei 
spricht der redner”?” 

gosub 63008: if val (aS(l2))=-® or val 
Ca$(2))>za then goto 490848 

pz"-val (a$(2)):print "[down]lbitte eine 
taste druecken!”:poke 158,8:wait 138, 
1:poke 199,0 

print ”"[clr,down,cbm 7Jueber welches 
thema soll gesprochen([5spaces] 
werden?”:ae(Cpz)-aelpz)-i 

print ”Cdown,red3i)Cwht] die eigenen 
leistungen” 

print "C[redJ2)Lwht] 
partei” 

print "[red33)Lwht] 
print "[CredJ4)Lwht] 
print "[redI35)CLwht)] 
print "CredI6)Lwht) 
print "CredJ7)Lwht) 
sicherheitspolitik” 
print "[red3B)Lwht) die:naechste wahl” 
print ”"[red3S)Lwht) das drogenproblem 
Cyel]”:poke 198,0 

gosub 63008:if val (CaS(C2))-2 or val 
(a$c2))>3 then goto 43979 

st(pz)"val (aS(l2)3)+milpz)*po(lpz)+ 
st(pz) 

miCpz)=int C rnd (1)*mi(pz)+1900)+ 
mi(pz) 

print "Cdown,cbm 7]ldu haelst nun die 
rede!” 

b=int C rnd (1)"5)+1 

for x"=1 to 18088:next 

if b=1 then print "du warst ein sehr 
schlechter redner”:ae(pz)-as(pz)-2 


eine andere 


umwsltschutz” 
atomenergie” 
sozialpolitik” 
friedenspolitik” 


43204 


49285 
49206 
49207 


49218 
598098 
59210 
59811 
so222 
sep21 


sa822 
592398 
59240 
50959 
So0608 
50979 
50088 
509320 
59190 
50118 
Ss2128 
52138 
59149 
so141 
sol42 


so143 
sol44 
So145 
SOl46 


50147 
52148 
50149 
512008 
51019 


51038 
51049 


51059 
51068 
51978 
51988 
51281 


510328 


51031 
51100 
51101 


51119 
s11208 
51125 
511390 


51148 
51158 
51168 
51170 
51188 


51185 
51198 
51208 
51218 
Ss12298 
512398 
sı1248 
51258 
51338 


51498 
51418 


if b=2 then print "du warst kein sehr 
guter redner":ae(pz)=ae(pz)-1 

if b=-3 then print "du warst ein 
mittelmasssiger redner” 

if b*-4 then print "du warst ein guter 
redner”:ae(pz)=aelpz)*+1 

if b=5 then print "du warst ein 
'exellenter redner":as(pz)=ae(pz)+2 
print "[2down,cbm 61":goto 53528 

goto 500252 

For x=1 to za 

gelx)=int (st(x)*2.3)+gelx)+Cmilx)*5) 
si(x)"-int (5*pr(x)) 

mi(x)=int C rnd (1)*Cmicx)+1090))+ 
(micx)-500):iF milx)<1 then mi(x)=1 
if mitx)<si(cx) then mi(x)=sicx)+23 
if pr(x)<3.5 then si(x)=® 

next x:goto 50108 

s-d 

For x=1 to za:s=-s+tst(x):next 

for x"l to za 

pr(x)=(100/s)*st(x):next 

goto 500108 

for x=1 to za 

if si(tx)=-® then op(x)=9®:goto 50149 
if es(cx)>7 then op(x)=2 

if es(x)<=-7 then op(x)"i1 

next 

for x=1 to za 

if pr(x)>62.34 then aelx)"=int (aelx)- 
18):goto 48140 

if ae(x)<1 then ae(x)-1 

if ae(x)>49 then aelx)=50 

if ae(x)>39 then aalx)-ae(x)-5 

if ae(x)>3® and aelx)<4® then ae(x)- 

aelx)-3 

if as((x))<7 then ae(lx)=aelx)+1 

next 

gosub 38009:gosub 30128: return 

rem gr, darstellung reichstag 

print "Cclr,cynldarstellung der 
sitzverteilung im[7spaces)reichstag 
Cdown,cbm 71” 

print "name der parteil2spaces, yel]B 
Ccbm 7] %Cyel,4spaces]B[chm 7]Jsitze” 
print ”"[LyellCCCCCCClcCclCclclelCecteshift +] 
CCCECCCshift +ICCCCCCCchm 71” 

For’ x=1 to za 

poke 214, C4H+x):poke 211,8:sys 58649 
print pn$(x) 

poke 214, (4+x):poke 211,16:sys 58649 
if pr(x)=-1 then print "[Lyel) B[chbm 7) 
n,tg”:goto 51108 

print ” CyellBlcbm 7J"”;left$ ( str$ 
Cpr(x)),5) 

if pr(x)>=18 then gosub 51498 

poke 214, (4+x):poke 211,24:sys 58549 
if si(x)=® then print ”"[ysllB[lcbm 7] 
keine”:goto 51128 

print "[yellB[lchm 7]”;si(cx) 

next 

poke 198,8:wait 188,1:poke 138,8 
print ”"Cclr)Igraphische darstellung der 
sitzever-[4spaces]haeltnisse:” 

poke 214,22:poke 211,8:sys 58649 
y-B2:a=-d 

For x=1 to 18 

for z=1 to za:poke 646, z 

if si(Cz)>a then print "[rvs,2spaces, 
off] ”;:goto 51198 

print ”"[3spaces)”; 

next zZ 

y-y-l:a=a+15 

poke Zi4,y:poke 211,8:sys 58648 

next x 

poke 214,23:poke 211,8:sys 58642 

for x=1 to za:poke 646,15 

print left$ (Cpn$(x),2);"” ";:next x 
poke 138,2:wait 198,1:poke 198,8:poke 
E46, 14:goto 128 

poke 214,4+x:poke 211,16:sys 58649 
print ” [CyellBlcbm 7]”;left$ ( str$ 
(pr(x)),5):return 
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ee u a ne 


5182 
3753 
41208 
4771 


1453 
653 
873 

3420 

16628 

5382 


3033 
2057 
851 
376 
1668 
873 
2658 
583 
873 
2177 
1674 
1532 
130 
873 
3711 


17908 
1295 
21708 
2334 


2320 
138 
1654 


5066 


3466 
4852 


873 
2487 
618 
2604 
3264 


2124 


1421 
2601 
2818 


13988 

138 
e514 
4503 


e551 


: 934 


778 
1819 
ey22 


626 
318 
1158 
2527 
385 
2655 
1855 
2055 
3345 


2616 
2366 


Spiele Listing 


528098 
52818 


52039 
52040 


52059 
52068 
52078 
520898 
520328 
52278 
52288 


53280 
53001 


53010 
538208 


53038 
53040 


53058 
53060 


53861 
53078 
53071 
53080 


53039 
53198 
53119 
53120 
53138 
53140 
53150 
53160 


53170 
53188 
53198 
53209 


53210 
532208 


53230 
53231 


53232 
53248 


53398 
53318 


53328 
53338 
533498 
53350 
53368 
53365 
534028 


53418 


s3428 
53432 


53442 
53459 


53468 


53478 
534898 


rem einstufung der parteien 

print "[clr] politische sinstufung der 
parteienl2down]” 

print "name der parteil2spaces]B 
einstufung” 

print "EELECCCCECCECCCCCCshift +) 

ECCCCCCECCCELCCECC* s 

For x"i1 to za 

poke 214, C4+x):poke 211,8:sys 5B640 
print pn$(x) 

poke 214, (4+x):poke 211,17:sys 58649 
print "B";beS(es(x)) 

next x:gosub 62818 

poke 138,2:wait 158,1:poke 198,0:goto 
1988 

goto 53388 

print "[clrIJgruendung einer neuen 
parteildown]” 

print "es gibt:"; za; "parteien” 

if za=13 then print "das sind genug 
parteien!” 

if za=13 then print "taste druecken” 
if za-13 then poke 158,8:wait 188,1: 
poke 198, 8:goto 188 


za=za+l 

print "CdownJname der partei? ";:gosub 
63099 

pn$(za)-a$s(2) 

print "spitzenkandidat? ";:gosub 63908 


sk$(za)-a$(2):aelza)-13 

print "Cdounlweiche politische 
richtung soll die” 

print "neue partei vertreten?" 
print "Cdown]i) linksradikal” 
print "2) links” 

print "3) liberai” 

print ”4) rechts” 


‚print "5) rechtsradikali” 


get a$:if aS-"" then 53152 

if a$=-"1" then es(za)-2:ae(za)-ae(za)- 
2:goto 53228 

if a$S=-"2" then es(za)=-4:as(za)-ae(za)- 
1:goto 53220 

if a$=-"3" then es(za)-7:ae(za)-ae(za)+ 
1:goto 53228 

if a3-"4” then es(za)-S:ae(lza)-aa(za)+ 
2:goto 53228 

if a$=-"5” then as(za)-13:ae(za)- 
ae(za)-2:goto 

goto 53158 

print "Cdown)ok. die partei ist ab 
sofort aktiv” 
pr(za)=-1:silza)=-2:ge(za)-20000: 
st(za)=-int ( rnd (1)*110890)+9008 
miClza)-int ( rnd (1)*8880)+1:0op(za)-=P: 
salza)=int ( rnd (1)*50200820)+118000 
ap$S(za)=-"keinss” 

poke 188,8:wait 158,1:poke 198,2: 
return 

print "[clrIpartsienstruktur 
veraendern” 

print "[3down]Jf1) grusndung einer 
neuen partei” 

print "f3) auflossung einer partei” 

print “f5) zurueck ins menue” 

get a$:if aS="" then 533409 

if as-"[f5J3” then return 

if aS="[f1)” then goto 53901 

if a$S="[£f3]” then goto 53498 

print "Cclr,redlaufloesung einer der 
alten parteien” 

print "[down, whtles gibt Folgende 
parteien:” 

for x=1 to za = 

print "Ccbm 73”;pn$(x);” Ccbm 6)”; 

skS(x) 

next x:print "[cbm 73” 

print "wie heisst du? ”;:gosub 63992: 

aS=as(2) 

print "welche partei aufloesen? ”;: 

gosub 53098: b$=a$(2) 

for x=1 to za 

if skS$S(x)=-a$ then goto 53598 


3684 


2354 
4854 


873 
2487 

61B 
[41-1412] 
1163 
19027 
2874 


603 
3009 


2459 
3206 


e4B2 
3794 


813 
2629 


1401 
2858 
2168 
4073 


2378 
1966 
1131 
1122 
1154 
2043 
1585 
3938 


4930 
4187 
4093 
42B6 


673 
3233 


6278 
5871 


1706 
2BB5 


3084 
3896 


8752 
2227 
1585 
1325 
1736 
1768 
4184 


BE4S 


873 
1978 


935 
3643 


4772 


873 
1392 


53430 
53508 
53510 


53528 


53530 
53531 
53540 


53550 
53560 
53578 
53588 
535908 
536908 
53618 
53628 
53638 
54908 
54010 


54011 
549208 
54938 
54940 


54950 
54060 
54970 
54080 
54990 
54100 
54110 


55998 


55901 
55218 
55011 
55922 
55032 


55940 


55058 
550628 


55088 


570998 
57910 


57020 
57038 


57040 
57059 


58900 
58010 


58020 


SBo21 


58038 


58040 


59200 


590108 


59920 


59039 


53940 


next x:goto 53518 
if b$=-pn$(x) then goto 53538 

print ”"Cdown)du kannst keine partei 
aufloesen, deren spitzenkanidat du 
nicht bist!” 

print "taste druecken”:poke 198,8:wait 
198,1:poke 198,8:return 

if x<=8 then goto 53512 

print ”"o.k.” 

print "die partei ist jezt 
aufgeloest.” 

for y=x to za-i1 

pr(y)=pr(y+1) 

sily)=-siCy+1) 

pn$Cy)=pn&(Cy+1) 

sk$(y)"sk$(Cy+1) 

es(Cy)-es(y+1) 

st(y)=st(y+1) 

next y 

za=-za-l:gosub 50088:goto 53528 

For x"1 to za 

st(x)=abs ( int (CC rnd (1)*(st(cx)+ 
18898) )+st(x)-19009)) 

if st(cx)>7500082 then goto 54212 

next x 

print ”"[Colr]Jes ist gewaehlt worden: ” 
print "Cdounlhier sind die ergebnisse: 
” 


For x=1 to za:print pn$(x);":”:next x 

for x"1 to za 

poke 214,2+x:poke 211,7:sys 58548 

print st(x); 

poke 214,2+x:poke 211,28:sys 58648 

print ”stimmen”:next x 

poke 1988,8:wait 198,1:poke 198, d:gosub 

S5ß882:goto 198 

rem druckerausgabe der machtver - 

haeltnisse” 

open 4,4 

print#4, ”sitzverteilung im” 

print#4, "reichstag” 

print#4 

print#4, "name der parteil2spaces]) 

Bsitze” 

print#4, "CECECECCCECCCCECCC[shift +] 
EEEEE? 

for x=1 to za 

print#4,pn$&(x);C left$ C”[L17spaces)”, 
17-l1en (pn$(x))));"B”;silx) 

next x:print#4:close “4:gosub 47502: 
goto 182 

rem Finanzielle situation 

print "C[clr,redldie Finanzielle 
situation der parteien:[cbm 6,down]” 
For x"=1 to za 


print pnS(x);”:”;tab(12-val (pn$(x))); 
ge(x);”taler” 
next 


print "Cdown,cbm 7ltaste druecken”: 

poke 198,2:wait 198,1:poke 198,2: 

return 

rem verbot einer partei 

print "C[Cclrleine partei wird verboten 

Cred, down]” 

if es(x)<® then print "wegen 
linksfaschistischer aktivitaeten” 

if 8s(x)<® then print "wird die 
politische partei” 

if es(x)>15 then print "wegen 
rechtsfaschistischer aktivitasten 
wied die partei” 

print pn$(x);” verboten.Cdown,cbm 72”: 

a$-skS$(x):bS=-pn$lx):goto 53470 

print ”Cclr,whtlinformationen ueber 
die parteienldown]” 

print "[redlwir haben folgende 
parteien:[cbm 7)” 

For x=1 to za:print x;”[Lleft)) "; 
pnS(x):next 

print ”Cdown,cbm 6Jueber welche partei 
soll ich berichten?” 

gosub 630008: if val (Ca$s(c2))-® or val 

(a$(2))>za then goto 53938 


1076 
1666 
68850 


3758 


1779 
928 
3067 


1194 
1578 
1878 
1637 
17608 
1750 
1778 

3908 
2394 

873 
4B06 
2261 

306 
8527 
2818 
2223 

873 
2652 

841 
2613 


1553 
3726 


608 
2084 
1418 

256 
2458 
3493 


873 
4OBE 


2182 


y2B4 


873 
3847 


138 
39397 


2386 
5150 
3550 
5833 


4592 
3636 
3813 
2446 
4303 
3966 


a ae 0... 


53258 


538608 
593079 
53089 


59932 
593188 


53119 
53111 


53112 
55113 
53114 
53115 
53116 
53117 


53128 
53128 


53123 
53138 
53137 
53138 
53133 
593148 
59158 
55188 
59185 
5931998 
59922 
69012 
69220 
6092308 
50040 
590250 
60060 
60070 
60088 
600398 
60100 
60110 
69115 
60120 
69125 
602098 
69218 
60220 
50232 


60231 
60232 


pz=-val (aS(2)):print "[down)bitte eines 
taste druecken!”:poke 198,8:wait 158, 

l:poke 198,8 

print "[clr,whtlinformationen ueber "; 

pn$(pz) 

print "[down,cbm 7Jspitzenkandidat: ”; 

sk$(pz) 

print ”Cdownldis Finanzielle situation 
der partei:” 

print "die partei hat";ge(pz); "taler” 

print "Cdown,cbm 3]situation in der 
oeffentlichkeit:” 

print "die partei ist ”; 

if ae(pz)<11 then print "sehr 
unbeliebt”; 

if ae(pz)>18 and ae(pz)“21 then print 
"nicht sehr beliebt”; 

if ae(pz)>2® and ae(pz)<3i1 then print 
"akzeptiert"; 

if ae(pz)>3® and as(pz)<41 then print 
beliebt”; 

if ae(pz)>4d and ae(pz)“51 then print 
"sehr beliebt”; 

print ”.” 

print "einstufung: ”";be$Ces(pz2)) 
print "sitze im parlament:”;si(pz) 

if pr(pz)=--1 then print "stimmen bei 
der letzten wahl zum reichs- 
parlament: keine” 

if pr(pz)=-i then goto 55137 

print "stimmen bei der letzten wahl 
zum reichs-parlament:”;st(pz) 

if pr(pz)--1 then print ”"prozente: 
keine” 

if pr(pz)=--1 then print "diese partei 
hat auf der letzten wahl” 

if pr(pz)=-1 then print "nicht 
kanidirt!”:goto 53158 

print "prozente:”";pr(pz) 

print "mitglieder: ”;mi(Cpz) 

print ”intensietaet des letzten 
wahlkampfes:” 

print wa$(lwa(pz)) 

goto 579859 

data B, 200000020, 2502298 

data prf,27.5,von beisstaler,1®, 
5500900, 500922,2,5,35,55888 

data cdp,12.5,loewenthalinski,9, 
25000022, 250000,2,4,27,258080 

data sdp,8.1,blas,7,1700090,130000,1, 
3,21,179808 

data pdiib,5.2,schilli,2,17000022, 
125008,1,2,11,17008 

data slpb,7.3,meierhof,6,14009002, 
321002,1,3,20, 14008 

data usp,24.1,mussnichs, 5, 4400000, 
1000008,1,5,31,44000 

data cbp,12.1,miesemann, B, 2200000, 
130980208,2,2,25,22008 

data kep,4.3,handlos,1,9008080,72000,1, 
1,9,9988® 

data linksfaschistisch, linksextrem, 
linksradikal,dogmatisch links, links 
data gemasssigt links, linksliberal, 
liberal ,rechtsliberal, rechts 

data konservativ, rechtsstehend, 
rechtsgerichtet,,rechtsradikal, 
rechtsextrem 

data rechtsfaschistisch 

data kein wahlkampf ‚wenig wahlkampf, 
normaler wahlkampf 

data starker wahlkampf ,intensiever 
wahlkampf 

data finanzminister,innenminister, 
aussenminister ‚verteidigungsminister 
data Forschungsminister, 
wirtschaftsminister , Justizminister 
data umweltminister, verkehrsminister, 
entwicklungshilfeminister 

data Finanzminister, 
gesundheitsminister, familienminister 
data 60,66,153,165,165,1293,66,68 
data 16,48,97,255,255,1,90,0 


sy22 


- 3238 


3837 
IZ ie 


e466 
3736 


1558 
2702 


3616 
3205 
BB24 
3358 

422 
2645 


2385 
6688 


1583 
s511 
2733 
4751 
3764 
2123 
2381 
3801 
1326 
E81 
1423 
5333 
5369 
3337 
4767 
4880 
4565 
4413 
yoıl 
7193 
6678 
7148 
1858 
4662 
3476 
7eıs 
5843 
SBos 
5328 


2956 
2387 


Sonderheft QM 69 


ar 


alu 


ne Spiele Listing 


60233 
50234 
60235 
: 60236 
N 60237 
“ 60238 
602389 
50240 
SO241 
soz42 
60243 
sa244 
69245 
GO246 
60310 
60320 
60330 
50340 
60350 
503560 
60500 


60595 
60518 


60522 
60538 
60540 
60559 
608569 
69579 
69582 
60559 


619098 
61018 
61020 
61030 
61040 
61950 
61068 
61979 
610808 
61030 
61198 
61110 
611208 
611398 
61140 
61158 
61160 
61170 
61188 
61190 
612008 
61210 
61220 
612308 
61240 
61250 
612608 
61270 
612808 
61299 
61300 
62008 
62001 


62002 
62003 


62018 
62011 


Das richtige Programm für Kohl, Strauß, Vogel & Co. 


data 0,50,123,201,201,127,62,2 
data 0,44,126,211,211,126,44,0 
data 126,255,137,137,207,70,0,8 
data 6,9,9,137,255,137,0,8 
data 8,14,9,1,9,14,8,28 

data 0,1,15,5, 10) 

data 6,9,9,9,0 
data 255,136,8 ‚8,0 

data 66,129,255, ‚129,129,126,0 
data 10,17,62,80,144,144,80,62 

data 17,34,0,60,66,129,129,129 

data 0,60,66,129,137,137,78,8 

data 7,0,0,0,0,0,0,17,95,17 

data 0,31,8,16,16,15 

data 3,1,254,64,32,64,255,1 

data 2,0,255,144,144,255,0,255 

data 144,156,147,96,128,128,255,128 
data 128,0,255,144,144,128,0,255 
data 145,145,129,0,255,1,1,1 

data 0,255,129,129,66,60,0,08 

data 169,1,32,195,255,169,36,141,240, 
3,169,48, 141, 241, 3, 163, 1, is2, 8, 160, o 
data 38, 186, ass, 163, 9 162, 240, 160, 3 
data 32,189,255,32, is2, 255, 168, 64,32, 
144,255,162.1,32,138 

data 255,32,144,255,32,207,255,32,207, 
855, 32,207,255,32,297 

data 255,201,2,240,58,32,204,255,32, 
228,255,201,32,208,3,32,1396,3 

data 162,1,32,198,255,32,207,255,168, 
32,207,255,72,152,178 

data 104,32,205,189,169,32,32,210,355, 
32,207,255,201,0,208,8,169,13 

data 32,2190,255,76,115,3,32,210,255, 
76,162,3,169,1,32,195, 255,32 

data 204,255,169,204,133,178,396,32, 
228,255,201,32,208,249,356 

data 173,17,208,141,30,283,173,24,208, 
141,31,203,169,59,141 

data 17,208,165,0,16,24,208,1569,56, 
169, 254,141,0 

data russland, -3 

data amerika,3 

data australien,® 

data neuseeland,1i 

data bulgarien, -1 

data tuerkei,-3 

data saudi-arabien, -i1 

data israel,i 

data suedafrika,-2 

data zaire,2 

data aegypten, 1 

data china,3 

data japan,2 

data indien,3 

data indonesien,1i 

data kuba,-2 

data togo,2 

data brasilien,2 

data chile,-2 

data bolivien,i 

data kanada,2 

data argentinien,3 

data venezuela,-1 

data mexico,2 

data norwegen,i 

data daenemark, -1 

data fFrankreich,2 

data polen, -4 

data spanien,2 

data italien,3 

data holland,2 

rem erzeugen sines einzeltons 

poke S54236,5:poke 54277,25:poke 54278, 
6B:poke 54272,69:poke 54273,23 

poke S4276,17:for xx=1 to S®:next : 
poke 54296,8:poke 54276,8:poke 54273,8 
poke 54272,®:return 

rem erzeugen von melodie 1 

poke 54286,5:poke 54277,25:poke 54278, 
68 


® 
’ 
3 
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3731 


62012 
62013 
62014 
62015 
62016 
62017 
62018 
62019 
62028 
62021 
62022 


620398 
62031 


620832 
62033 
62034 
623989 
62391 
62982 
62383 
62504 
62395 


623086 
62307 
523908 


629083 
62318 
62911 


62312 
623913 
6293208 
63028 
63901 
63002 


63983 
63004 
63005 
639006 
63097 
639808 
63005 


63019 
63011 


63920 
63198 


63208 


poke 54273,17:poke 54272,183:poke 
5y276,17:for x=1 to 258:next 

poke 54273,21:poke 54272,237:poke 
54276,17:for x=1 to 258:next 

poke 54273,26:poke 54272,28:poke 
54276,17:for x=1 to 258:next 

poke 54273, 23: poke 54272,59:poke 
54276,17:for x=1 to 258:next 

poke 54273,29:poke 54272,69:poke 
54276,17:for x=1 to 258:next 

poke 54273, 26: poke 54272,208:poke 
54276,17:for x=1 to 258:next 

poke 54273, 23: poke 54272,59:poke 
54276,17:Ffor x=1 to 258:next 

poke 54273, 21:poke 54272,237:poke 
54276,17:for x=1 to 258:next 

poke 54273, 19: poke 54272,137:poke 
54276,17:for x=1 to 258:next 

poke 54273,17:poke 54272,183:poke 
54276,17:for x=1 to 588:next 

poke 54295, 8:poke 54272,8:poke 54273, 
®:poke 54286, 8:return 

rem erzeugen von melodie 2 

poke 54235,5:poke 54277,25:poke 54278, 
68 

For .y=-1 to S:for x=® to 78:poke 54272, 
183:poke 54272,x:poke 54276,17:next : 
next 

poke S42S6,@:pcoke 54277,8:poke 54278, 
®:poke 54272,8:-poke 54273,8:poke 
54276,8 

poke 54236, @: return 

print "CelrIjetzt wird gesaehlt”:for 
x-1 to za 

if ael(x)<i then aefx)-1 

next :for x=1 to za 
y-sa(x)/3®*as(x)*+(salx)/5):if salx)=- 
78898 then y=int £ rnd (1)*71880)+ 
653608 

yy=int (C rnd (13*%salx))*+salx)+lsalx)/ 
190):xy=int (salx)/12) 

st(x)=-int C rend [23° y)+Hly-yy-xy): 
st(x)=-int Cllstixdeualx)/3.5)/30)* 
ae(x)) 

if st(x)<=-mitx) then stfx)=-int (C rnd 
(1)*Cmilx)+3888)) mix) 

if op(x)=-® then opfx)=1:st(x)=int 
(st(x)®11.3) 

st(x)=int ((st(x)*+salx))/25*#ae(x)): 
next 

For x=1 to za 

if ae(x)<>1 then ae(x)=-ae(x)+3 

if ae(x)>38 and aeix)t4B then ae(x)= 
ae(lx)-3 

if ae(x)>39 then a2(x)=-ae(x)-5 

if aelx)(8 then ae(x)=ae(x)+i1 

next :return 

asl2)=-" 

get aS(l1):if aSlı)=-"" then goto 563001 
if asc (a$S(1))=-13 then print :poke 
54296, B: return 

if asc (aS(lı))=-28 and len (aS(l2))<1 
then goto 53881 

if asc (aSs(1))=-28 then print "[asc20)J” 


if asc (aS(1))-28 then aS(2)-lefts 
(as(2),C len (aSs(2))-1)):goto 63901 

if asc (aS(C1ı))<32 then goto 63091 

if asc (a$S(1))>S5 then goto 63001 

if len (aS(c2))>1®8 then goto 63901 
print aS(1); :a3S(2)-a$(2)+a$S(C1):gosub 
620828: goto 653881 

25-"088"+( strS (za-B))+”90” 
zS(1)-leftS (25,3):285C2)=rightS (z$, 
3):2$5-z5(1)*+z5(2) 

ti5="2000888":goto 190008 

sa( val (aS(C1)))=-sal val (aSC1)))/100* 
98:goto 28352 

sa( val (aS(1)))=sal val (a$(1)))/190* 
118:goto 28352 


4636 


4549 
4198 
4237 
Y24S 
4198 
4237 
4549 
4682 
4524 
4665 


3731 
5964 
6139 
1077 
3303 
1738 

678 
s7ze1 
4984 
6553 


541 
3807 
3554 


873 
2448 
23934 


2178 
2201 
304 
818 
2354 
2727 


3315 
1687 
3908 
2043 
2087 
2073 
3254 


1675 
4243 


1698 
3414 


3331 


Praxis Listing 


Sehillernd texten 
mit EIG und „AT-Text“ 


System: C16, Floppy, Drucker/ 
Plotter 
Anwendung 


Typ: 
Sprache: Basic 


Nachdem das Programm komplett 
eingetippt ist, muß man die Daten 
vor!! RUN abspeichern. 


Während des ersten Programm- 
startes fragt es nach der Periphe- 
rie, mit der man arbeitet. Ist die 
Eingabe erfolgt, schreibt sich das 
Programm entsprechend um. 
Diese Arbeitsversion speichert 
man ab, 

Die Belegung der Funktionstasten 
ist: 

Fl Sprung zum Text-Anfang 

F2 Eine Zeile vor 

F3 Zum Druck-Menü 

F4 Sprung zum Text-Ende 

F5 Eine Zeile zurück 

F6 Zum Save-/Load-Menü 

F7 Zeile einfügen 

F8 Zeile löschen (HELP) 


Erklärung zum Listing: 
Zeilen Zweck 
0—8 
Vorbereitungen (Beim 1, 
Start Aufruf von Direktpro- 
grammierung) 
10-120 
KEY-Belegung ändern 
130-990 
Dimensionierung und 
Zeilen-Info 
1000-1200 
‚Hauptschleife und Eingabe 
2000-2070 
F4 — Zum Textende 
2200-2250 
- F2—Line up 
2300-2350 
F5 — Line down 
3000—3160 
F3 — Druck-Menü 
3170—3430 
Druck zeilenweise 
3500—3630 


Elektronisch Briefe 
schreiben: Mit dem 
C16 kein Problem — 
vorausgesetzt man hat 
„AT-Text“. Das Text- 


verarbeitungspro- 
gramm funktioniert mit 
Floppy, Datasette und 
verschiedenen Druk- 
ker-/Plottertypen. 


Die Funktion F4 funktioniert ab 9 
Zeilen. 

Vom Text sind jeweils 19 Zeilen 
sichtbar. Die Eingabezeile befin- 
det sich in der Mittelzeile (Cursor). 
Schreiben erfolgt im INPUT-Mo- 
dus. Dadurch bedingt müssen 
Kommata, Semikolons und Dop- 
pelpunkte simuliert werden, da 
sie sonst beim Drucken als Trenn- 


F7 — Insert line 
3700—3930 

Druck seitenweise 
4000-4130 

F6 — Save/Load-Menü 
.... Resave-Routine 
4200-4229 

Save-Routine 
4300—4370 

Load-Routine 
4400—4480 

Zuladen 
4500-4650 

F8 — Delete line 
5000—5090 

Test ob 1. Zeichen im Einga- 

be-String ein Steuerzeichen 

ist. 
6000-6090 

Speicher voll? 
7000-7050 

Zeilenanzeige/Kopf 
9000-9070 

SUB Textanfang 


ee ee eier 


zeichen interpretiert und dahinter 
stehende Zeilenteile nicht zum 
Druck gelangen: 


Komma :CONTROL + @ 
Semikolon :CONTROL + 0 
Doppelpunkt :CONTROL +p 


Die über die ESC erreichbaren 
Textbearbeitungsfunktionen blei- 
ben erhalten. Mit 'Shift/-Space' 
rückt man Zeichen ein. Vorsicht ist 
bei Grafik-Zeichen in der 1. Spalte 
angebracht, da mit einigen von ih- 
nen die Funktionstasten belegt 
sind oder die Satzzeichen simulie- 
ren. 

Vor Laden eines Textes ist zu 
empfehlen, mit 'Neuanfang’ den 
Schreibspeicher von alten Texten 
zu befreien. 'Zuladen’ setzt weite- 
re Texte nahtlos an den im Text- 
speicher befindlichen an sofern 
der Speicherplatz genügt. 'Re- 
save’ erlaubt Überschreiben be- 
stehender Text-Files. 


Axel Töpfer EEE 


10000—10080 
SUB Maske 
11000—11110 
SUB Satzzeichen-Transfor- 
mation 
13000— 13530 
6 SUBs für Fenster 
15000—15040 
SUB Sicherheitsabfrage Pro- 
gr. Ende? 
16000— 16040 
SUB 
Neustart? 
18000—18040 
SUB Dokument-Name? 
19000—19070 
SUB Diskerrorcheck 
20000—21230 
Programmteil zum Anpassen 
des Progr. im programmier- 
ten Direktmodus 
Erklärung der Variablen: 
SV$ = Save-String f. Floppy 
LD$ = Load-String f. Floppy 


Sicherheitsabfrage 
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= Resave-Stringf.Foppyp |S$ = H.V. beiDruck S2 = Letzte Zeile Ausdruck 
= Verneinung b. Resave- | BI$ LO = Leerzeilen oben/Druck 
Versuch mit Datasette — B6$= Transformation Satzzei-| LU = Leerzeilen unten/Druck 
= Hilfsvariable (A.V.) chen ZL = Zeilen pro Seite/Druck 
= Textspeicher l$ =HV. DZ = H.V. zum Errechnen der 
= HV. P$ = H.V. bei Direktprogr. Anzahl der zu drucken- 
= Zwischenspeicher Text| A = H.V. bei Direktprogr. ’ den Seiten 
(Bei Direktprogr. Data- | Z = Zeilenzähler SD = H.V. wie DZ 
zwischenspeicher) ZG = Zeilen Maximum I = V 
= Steuerzeichen Funktion ZM = Höchste benutzte Zeile X ==HV. 
1$ = Dokument-Name ZD = Schleifenzähler Delete Q =HV. 
= Hy. ZI = Schleifenzähler Insert J =HV. 
= HV. ZU = Zuzuladende Zeilen ZZ -=HV 
= HV. SI = Erste Zeile Ausdruck 
O rem Hramnaaaaa a + - ta x + sususause 1891 if z+10=<zg then 1208 1486 
1 sv$=-",s,w”:1d$=",s,r”:re$=-"@98:”:vn$S=" 6591 1892 z=z+1 4228 
[flashon]Nur mit Floppy moeglich 19835 gosub 6908:rem ende ? 644 
[flashoff]” 3 1897 if zm<z then zm=z 1612 
2 goto 20908 567 1188 goto 1908 558 
3 poke 65286,27 1036 1208 gosub 13288:print t$(z+10):goto 1092 E456 
7 trap 18 585 2008 rem text ende 
18 rem ** keybelegung ** 2002 if zm<9 then 1000 1164 
20 print "C2home,cir]”; 788 2005 gosub 13188:print ”[clr]”:rem pos 2 1353 
4® key 1,"Ccbm q2"+chr$ (13) 1686 2018 gosub 13500:rem pos 6 763 
42 key 4,”"Ccbm wJ"”+chr$ (13) 1485 2028 print ”"Chome]"; 433 
44 key 2,"Ccbm e}"+chr$ (13) 1449 2038 For i-zm-3 to zm 1420 
46 key 5,"Ccbm r]"”+chr$ (13) 1471 2048 print t$Ci) 15 
48 key 3,"Ccbm t)”+chr$ (13) 1482 2059 next i 876 
So key 6, ”[cbm yJ"+chr$ (13) 1553 2068 z=zm-1 626 
S2 key 7,"Ccbm d3”+chr$ (13) 1634 2078 goto 1009 559 
S4 key 8, "Ccbm FJ”+chr$ (13) 1621 2208 rem line up / Fo” 
78 print chr$ (142) 804 2205 print " ChomeJ"t$(z):gosub 13100:rem p 1599 
88 print "[clr,2down,3spaces,rvs,flashon] 3271 os2 
achtung neue key-belegung !!! L2down) 2218 gosub 6008 573 
” 2220 if z<zg then print chr$ (27)"v":z=z+1 8658 
81 trap 80 519 2230 gosub 13200:rem pos 3 739 
82 print " fl = text anfang” 1489 2240 if z+9=<zg then print t$(z+3) 2068 
84 print ”[Cdown] F4 = text ende” 1649 2250 goto 1008 559g 
B6 print "[down] f2 = line up” 1298 2308 rem line doun / £5 
88 print "C[Cdoun]) F5S = line down” 1728 2305 print ” Chomel"t$(z):gosub 13108:rem p 1599 
88 print "Cdown) £f3 = print” 1499 os? 
S2 print ”Cdoun] f&6 = save/load” 1971 
34 print "Cdoun) £7 = insert line” 1725 ER Ara run En 
S5 print "Cdown] fB = delete lineldown]" 1575 2338 u as Denn 3 WARTE 747 
% - R ” “ Wr; 7 s 
BEE O ASHRCINE SEENBASESFEIN: Eee 2340 if z-8->0 then print tS(z-8) 1980 
120 print "[down,3spaces,rvs,Fflashon] 4973 2350 goto 1900 553 
programmstart mit leertaste !!! ”; se Fa Bee 
poke 239,0:get key t$ 3001 ;EERp. ER Be 2 en 
138 print "Colr]"; 4s5 En Be Er ER le pos 2 AeBr 
460 : prin own,2rig rinter-Menue” 
i n n ’ 3838 print ”"[2right,13chbm yJ” 3175 
478 print ”Cctrl nJ”:print chr$ (8) 907 z = r 
480 zg=-int (C fre (x)-500)/40) 1930 or a Se ranıny a8 €553 
Sic Eu Eu le uneaEn stehen Fe 3050 print "Ldown,2rightlZeileueise 2131 
2 : [Espaces]: 2” 
582 print ”"[down,2Zright]4® Zeichen zur 3696 3050 print "Ldown,2rightlSchreib-modus 2643 
Verfuegung .” C3spaces]: 3” 
an) x ss2 3065 print "Ldown,ZrightlEndell@spaces): 4” 1753 
Be aerarin tICWeiter mit 3521 3078 get key x$:x=val (x$) 1539 
A n 3888 if x<1 or x>4 then 3978 1463 
SEO FLED Re ee a 3030 on x goto 3782, 3100,390, 15900 1364 
870 print chrs (B7)"m" 1083 200 Tan 
260 gosub 10000:gosub 7020 1301 | 120 Immak STEchEeen Serloräineren), — dmse 
332 gosub 131980:print "LclrI3”;:gosub 3088 1947 ” i SE 
1900 h tschleif N [2left]";s$:si=-int ( val (s$))-1 
Fo Eee 2 Seele = 3138 if si<@ or si>zg then print "Lup]”;: 2233 
1005 gosub 7830:rem kopf-anz.zeile 570 3149 Tre Reben ZrightlBis Zeilel2spaces) 3765 
1028 gosub 13082:iF z<=zg then print t$(z) 2323 B ».08.02=j - 
1030 :[2left]”;s$:s2=int ( val (s$))-1 
er aa.8t 807 3150 if s2X® or s2£s1 or s2>zg then print ” 3970 
E 2 input a$ 497 Cupl”;:goto 3148 
® 1058 poke 19,8 577 3178 rem zeilenweise 
1052 goto 5000:rem control asc? 638 3205 print#4,"Zeile”;si+1;"” bis Zeile";s2+ 3951 
950 t$C(zJ=a$ 855 1:print#4, "” 
1279 gosuhb 13102:rem pos 2 731 3218 for i=si to s2 1035 
1230 if z<zg then print chr$ (27)"y” 2229 3228 gosub 11288 573 
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3240 
3245 
3250 
3398 
3318 
3490 


3419 


3420 
3430 
35008 
3505 
35298 
3525 
35308 
. 3540 
36008 
3612 
36228 
3630 
3708 
3710 
3720 


3738 
3740 


3758 
3768 


3770 
37808 


3790 
3808 
3810 
38208 


3835 
3840 
3858 
3855 
38608 
3862 
3865 
3879 
3880 
3898 
3893 
3300 
3919 
3320 
39330 
4900 
4901 
4910 
4920 


4030 
Ha4o 


49508 
49060 
4070 
4990 
4108 


41190 
4120 
4125 
4138 


4140 
42098 
4220 
4238 
4235 
4240 
HE4S 


ei ann 


print#4,t$(i) 

gosub 11128 

next i 

close 4:close 6 

trap 989:goto 39920 

close 4:close 6:print ”[Cclr,2doun, 

Bright, £flashonJDIVICE NOT PRESENT ! 

[£lashoff]” 

print ”C4down, 7rightlWeiter mit 
’space’”:trap 388 

get key yS:if y$<>” ” then 3429 

print ”"[clr]”:goto 3088 

rem insert line 

print ” CclrJ”t$(cz) 

for zi=-zg to z step -1 

if zi=-®d then 3540 

t$(zi)=-tsczi-1) 

next zi 

tsczy"" » 

gosub 13400:rem pos 5 

print chr$ (27)”w” 

if zm<zg then zm-zm+ti:goto 1008 

rem seitenweise 

gosub 13128: print "[Cclr)”;:rem pos 2 


input ”"C2down,2ZrightlLeerzeilen oben : 


"18 
lo-val (18) 


input "Cdown,2rightlLeerzeilen unten: ” 


;18 
lu=val (18) 


input ”Cdown,2right]Zeilen pro seite:” 


;18 
zl-val (1$) 


input ”Cdown, 2right]Von Zeilel 7spaces) 


ı";58 
si-val (s$):if si-1<® or si-1>zg then 
print ”Lup)”;:goto 3788 


input "Cdown,2Zright]Bis Zeile[l7spaces] 


"7:88 

se=val (s$):if s2-1<2 or s2<si or s2> 
zg then print ”Lup)”;:goto 3800 
dz=(s2-s1)+1:sd=(Cdz/zl):if sd<>int 
(sd) then sd-int (sd) 

zz"®d 

For )j=® to lo:print#4,”":next j 

For i=s1-1 to s2-1 

gosub 11222 

print#4,t$Ci) 

gosub 11128 

zz=zz+1 

if zz=-zl then gosub 3398 

next i 

close 4:close 6 

goto 390098 

For J"® to lu:print#4,”":next j 
print#4, "-C38spaces)-" 

for jJ=d to lo:print#4,”":next 5 
zz"d:return 

rem save/load 

trap 4000 

gosub 13108:rem pos 2 

print ”"Cclr,down, 1dright]Save/Load- 
Menue" 

print "[C1dright,15shift *)” 

print ”"Cdown, 3right]Save[l2i1spaces)]: 
C2spaces]1”" 

print "Cdown,3right]JResave[l19spacses): 
[2spaces]2"” 

print "[down, 3right]JLaden[20spaces]: 
C2spaces]3” 


print "[down, 3right]Zuladen[1Bspaces]: 


[2spaces]4” 

print ”"[Cdown, 3right]Textmodus 
[16spaces]: [2spaces]5” 

print ”Cdown, 3right]Neuanfang 
[16spaces]: [2spaces]6” 


get key x$:x=val (x$):x=int ( abs (x)) 


if x<l or x>6 then 4112 

if x<5 then gosub 15990 

on x goto 4209,4150,4300,4400,339, 
160822 

rem resave 

rem save 

print#1,zm 

for x=® to zm-1 - 

if t$Cx)="" then tSCx)="*” 
print#1,t5(x) 

iE tECx)="#” then tSCX)=-"” 


next x 

print#1:close 1 

x5="":trap 989:goto 49088 
:closs 1:goto 4009 

rem load 

input#1,zm 

for x=d to zm-1 
input#1,t3(x) 

if t$cx)="*” then tSCx)="" 
next x 

close 1 

x$5=-"":goto 40908 

rem zuladen 

input#1, zu 

if zm+tzu>zg then 4479 

For x=zm to zm+zu-1 
input#1,t$5(x) 

if t$(x)="#" then t$Cx)="" 
next x 

zm=-zm+zu 

close 1 

x5=-"":goto 49008 

rem delete line 

print ” [clr)”t$(z) 

For zd=z to zg-1 
t$S(lzd)=tSCczd+1) 

next zd 

tSczg)=" ” 

gosub 13488:rem pos 5 
print chr$ (27)”v” 

gosub 13288:rem pos 3 

if z+9-<zg then print t$(z+3) 
if zm>®d then zm=zm-1:goto 1998 
rem control 

b$S=left$ (a$,1) 


if b$="[cbm q)” then 990:rem fl tx anf 


if b$=-"Ccbm wJ” then 2000:rem F4 text 
ende 

if b$S="[cbm e)” then 2208:rem f2 line 
up 

if bS="[cbm r]” then 2308:rem fS line 
dun 


if bS="[cbm t)" then 3890:rem F3 print 
if bS="Ccbm y]J” then 4000:rem fF6 save/ 


load 

if bS=-"Ccbm d]” then 3509:rem £7 inst 
line 

if bS=-"[Ccbm £f]” then 4500:rem fB dele 
line 

goto 1868 

rem ende ? 

if z=<zg-1 then return 

char 1,8,24,”"”:print "[flashon,rvs]) 
Der Speicher ist voll | [flashoff, 

off,home)” 

For d=1 to 1808:next d:char 1,B,24,” 
[rvs,shift *,cbm e,4shift *,chbm e, 

“shift *,cbm e,4shift *,cbm e, 

4shift *“,cbm e,3shift *J"” 

if z’zg then z=z-1 

gosub 13198 

return 

rem kopf 


char 1,15,4,"[rvs)J”:print using "#HHH#” 


‚z+1 


char 1,25,4,"[rvs)"”:print using "##H#" 


;2g 

return 

rem start neues seite / up 

gosub 13408:rem pos 5 

print ”"[clr)”; 

For z=®d to 9 

print t$(z) 

next z 

2=d 

return 

rem kopf-maske 

print "C2home,clr,rvs,2spaces]Fi-Text 
Anffshift -] F4=Text Ende [shift -] 
F3=-Print[2spaces]”; 

print ”"[2spaces)F2=Line up [shift -] 
F5=Line down [shift -] F6=Save 
C3spaces]”; 

print ”"C2spaces]F7=Insert[2spaces, 
shift -] F8-Delete[4spaces, shift -, 
Sspaces)/Load ”; 

print ”"[13shift *,cbm e,14shift *, 
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3384 


100408 
18258 


120078 
19088 
110008 


11005 
11918 


11028 
11838 


11840 
119858 
11198 


11118 
13989 
13818 


13930 
131228 
13110 
131208 


13138 
13298 
13218 
132208 


13238 
13308 
1331® 
13329 


13330 
134028 
13418 
134208 


134328 
13500 
13518 
13528 


13538 
15000 
150198 


15220 


15838 
15035 
15048 
16022 
16018 


16022 


16030 
16240 
18000 
18010 


180228 


180830 
180498 
190028 
.1981® 
15920 
19039 
1998490 


19059 


Flexibel auf Peripheriegeräte einzustellen: „AT-Text" 


Praxis Listing 


cbm e,i1shift *)"; 
print "[1®spaces]Line[l8spaces]Jof 
[C16spaces)"; 


print "[C4shift *®,chm r,4shift *,cbm r, 


Yshift *,cbm r,4shift *,cbm r, 
4shift *,cbm r,4shift *,cbm r, 
Yshift *,cbm r,4shift *,cbm r,off)” 
char 1,0,24,"Crvs,4shift *,cbm e, 
“shift *,cbm e,4shift *,cbm e, 
“shift *,cbm e,4shift *,cbm e, 
4shift *,cbm e,4shift *,cbm e, 
Yshift *,off]J” 

poke 4071,241 

return 


b1S="@”:b2$=", ":b35=-"Cshift £)”:b4S=": 


»:553="Cchm £I”:DEset;” 

for q=1 to len (t$(i)) 

if mid$ (t$Ci),q,1)=b1$5 then mid$ 
(t$Ci),q,1)=b2$ 

if mid$ (t$Ci),q,1)=b3$ then mid$ 
(t$cCi),q,12-b4$ 

if mid$ (t$Ci),q,1)=b5$ then mid$ 
(t$Ci),q,1)=b6$ 

next q 

return 


b1S=", ":b25="@";635=":";b4S="Cshift £] 


”",b5$=";”:b6$="[cbm £]"” 

goto 11995 

rem pos 1 

cher 1,9,14,*":print chrs (27I”t 
£39right]”;chr$ (C27)”"b[Chome)”; 
return 

rem pos 2 

print "C2home, Sdown]” chr$ (27)”t”; 
print "Chome,3Sright, 17down]” chr$ 
(27)”bChome]”; 

return 

rem pos 3 

char 1,92,23,”":print chr$ (27)”t”; 

print "Chome,39right]” chr$ (27)”b 
Chome]”; 

return 

rem pos 4 

print "[Zhome,Sdown)” chr$ (27)”t”; 
print "C[home,39right]” chr$ (27)"”b 
Chome]”; 

return 

rem pos 5 

char 1,0,14,”":print chr$ (27)”t”; 

print ”"Chome, 39right, Sdown]” chr$ 
(27)”bChome)”; 

return 

rem pos 6 

char 1,8,6,””":print chr$ (27)”t”; 

print "Chome, 39right , 18down]”" chr$ 
(27)”b”; 

return 

rem **## sicherheitsabfrage 1 *««“ 
input ”Cclr,Bdown, 7right]Sind Sie 
sicher (J/n)”;f$ 

if F$<>”n" and £f$<>”"j” then print ” 
C3up]”; :goto 15018 

if F$="n" then 988 

close 15 

sys 65526 

rem **** sicherheitsabfrage 2 “«"* 
input "Cclr,7down, 1dright]Sind Sie 
sicher”; f$ 

if FS<C>”j” and F$<>"n" then print ” 

E3up]”;:goto 16918 

if f$="j" then run 

goto 3988 

rem *## save/load-name *"" 


print ”"Cclr,Sdown, 3rightJ”; : input 
»Dokument-Name” ; na$ 

if na$-=-""” then 18928 

return 

rem *** disk-fehler-meldung "rm 


if ds=® then return 

print ”Cclr,5right,5down)”;ds$ 

print "[6down]”;spc(18); "Weiter mit 
’SPACE’” 

get y$ 
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19960 
15070 
208082 
209818 
29220 


20230 
292HO 
2092508 


20050 
20078 
20088 


20858 


20055 
22198 
2911® 
29122 
20138 
20135 
29140 
20158 
29168 
20165 
20172 
20175 
20188 


20158 


20135 
290208 


20508 
2051® 


211398 
212008 
21210 
21230 


if y$<>” ” then 19050 
return 
rem #**®* Jirekt-programmierung *** 


print "[2home,clr,3down]”;spce(17);"at- 
text” 

print "[C3down,6rightlbitte peripherie 
auswaehlen.” 


print "[C3down, Bright, rvsIdloffliskette 


oder [rvs]Iklofflassette”; :input p$ 
if pS<>"d” and p$<>”"k” then print "” 
C4up]”;:goto 290498 

if pS="d” then poke 210,708 

if p$="k” then poke 218,20 

print "[3down, Bright, rvsIdlofflIrucker 
CZspaces]oder [rvs)ploffllotter ";: 
input p$S 

if p$<>”"d” and p$<>"p” then print ” 
C4up]”; :goto 29088 

poke 65286,0 

if pS="d”" then poke 2089,88 

if pS=-"p”" then poke 209,0 

restore 21188+psek (210) 

read a 

print "[cir)"”; 

gosub 28588 

restore 21088+peek (209) 

read a 

print "Celr)”; 

gosub 28588 

print "[CclrI2” 

if peek (218)=-78 then print 
"delete28889-” 

if peek (218)=228 then print 
"delste199899-” 

print "C2down)run” 

poke 1313,19:poke 1328,13:poke 1321, 
13:poke 1322,13:poke 239,4:end 

rem *@“@ dir,progr.eing.loop **+#»## 


for i=-1 to a 

read aS 

print aS 

next i 

poke 1319,19 

for i=1 to ati:poke 1319+1,13:next i 
poke 239,a+1:end 

rem **“* Jirekt-progr .datas pl. *#*%* 
data 7 

data "3158 open6,6,6:trap3499” 
data "3185 print#6,1” 

data "3288 open4,6” 

data "3825 open6,6,6:trap3499” 
data "3838 print#6,1” 

data "3832 open4,6"” 

data "goto 28175” 

rem *=® dir.-progr.datas dr. *r### 
data 3 

data "3138 open4,4,7:trap3499” 
data "3825 open4,4,7:trap3499” 
data "goto 29175” 

rem **= dir,-progr .datas kass. *** 
data 5 


data "4150 chari1,8,22,vn$:fori=1t059®: 


nexti:goto4990” 

data "4218 openi,1,2,na$:trap4299” 
data "4318 open1,1,2,na$:trap4239” 
data "4418 openi1,1,8,na$:trap42399” 
data "goto 20159” 

rem *** dir.-progr .datas disk *#+"* 
data 7 

data "8 open15,8,15” 

data "4158 openi1,8,8, re$+na$+sv$: 
gosub19822: ifds<>dthenH293” 

data "4169 goato4229” 

data "4218 openi1,8,8,na$+svS: 
gosub19992: ifds<>Bdthen4233” 

data "43108 openi1,B,8B,na$+ld$: 
gosub19082: ifds<>Bdthen4233” 

data "4418 openi1,8,8,na$+ld$: 
gosub19022: ifds<>dthen42339” 

data "goto 298159” 


Praxis Listing 


Guten Appetit! 
Commodore „verdaut“ 
Karteikarten 


System: C16/116/Plus4, 
Datasette oder Floppy, 
Drucker 

Typ: Anwendung 

Sprache: Basic 


Bis zu fünf Datenfelder bearbeitet 
dieses elektronische Karteika- 
sten-Programm. Um die eingege- 
benen Daten zu speichern, benö- 
tigt man entweder eine Datasette 
oder eine Diskettenstation. 

Das abgedruckte Listing ist die 
Floppy-/Drucker-Version dieses 
Programmes. Ändere Peripherie- 
Kombinationen benötigen Pro- 
grammänderungen, die in der Än- 
leitung beschrieben sind. Schon 
beim Abtippen muß der Benutzer 
wissen, welchem Zweck die Kar- 
tei dient, Die Bezeichnungen der 
fünf Felder der Kartei sind in den 
Zeilen: 
Feldl: 
Feld 2: 
Feld 3: 


100,1340,12170 
110,1345,12175 
120,1350,12180 
Feld 4: 130,1355,12200 
Feld 5 : 140,1360,12205 
In einzutragenden Zeilen 100 bis 
140 darf jeder Feldname maximal 
neun Zeichen enthalten. 
l. DATASETTE: Änderungen im 
Programm: 
5, 3532, 3545, 3615, 3629, 4042, 
4055, 4067, 4125, 4139, 8000 bis 
8160 und 20 000 bis 20.050 entfal- 
len ersatzlos. 
3525 ("DIRECTORY = D' entfällt.) 
3540 OPEN 2,1,0,L$ 
4035 (DIRECTORY = D' entfällt.) 
4050 OPEN 2,1218 
2. PLOTTER 1520: Änderungen 
im Programm 

1320 OPEN 4,6 
12120 OPEN 4,6 
12130 (CHR$(14) entfällt eventuell) 
12140 (CHR$(15) entfällt eventuell) 
12160 (CHR$(18) entfällt eventuell) 
3. FLOPPY 1541 
In den Zeilen 20 000 bis 20 050 ist 
der Error-Check anzupassen. 


„Computer sind her- 


vorragend zum Verwal- 


ten großer Datenmen- 
gen geeignet.“ Daß 


diese Behauptung so- 
gar für die kleinen 
C16/116 gilt, 
beweist „Uni-Kartei“. 


Die verwendeten Steuercodes 
des SP 180: 

CHR$(14) = Doppelte Breite an 
CHR$(15) = Doppelte Breite aus 
CHR$(18) = Negativdruck 

Nach dem Start erfragt das Pro- 
gramm den Kartei-Hauptnamen. 
Die Dimensionierung der Feld-Va- 
riablen ist auf maximal 29 Zeichen 
fassende fünf Felder ausgelegt. 
Im Bedarfsfall sind Änderungen in 
Zeile 111 möglich. Die Formel: 


Die verwendeten Variablen: 

Variable Zweck 

T$X) =Feldl 

N$(X) = Feld2 

Y$(X) = Feld 3 

DK) = Feld4 

Z$(X) = Feld5 

uU$ = Haupt-Karteiname 

KN$ = Unter-Karteiname 

2$ = Trennstrich für Maske 

A$ = Mehrfach verwendete Hilfsvariable 

L$ = Zwischenspeicher für KN$ 

F$ = Hilfsvariable für FINDEN und ORDNEN 

s$ = Suchstring 

G$ = Hilfsvariable bei ORDNEN 

H$ = Hilfsvariable bei ORDNEN 

SAX) = Hilfsvariable bei ORDNEN 

D1% = Maximal mögliche Datensätze 

Z = Aktuelle Datensatzanzahl 

I = Nummer des zur Zeit dargestellten Datensatzes 

Y = Vertikale Position des Pseudocursors bei 
FINDEN und ORDNEN 

P = Hilfsvariable für ORDNEN und Speicher für 
ORDNEN-Nummer bei SAVE/LOAD 

R = Hilfsvariable bei EINGABE und ORDNEN 

xl = Pokewert für ORDNEN-Nummer Änzeige 


x = Schleifenvariable bei ORDNEN/FINDEN-Vorauswahl 
M = Hilfsvariable bei FINDEN 
S = FINDEN-Flag 
ZZ = Zwischenspeicher für 'Z' bei KORREKTUR 
L = Hilfsvariable bei ORDNEN 
3 = Hilfsvariable bei ORNDEN 
J = Hilfsvariable bei ORDNEN 
D = Hilfsvariable bei ORDNEN 
DL = Schleifenvariable bei AUSTRAG 
Ssı = Auszugdruck 'von Seite’ 
S2 = Auszugdruck ’bis Seite’ 
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Erklärungen zum Listing 
Zeile Zweck 
5—- 51 Dimensionierung 
55— 159 Maskenaufbau 


200 300 Funktionsabfrage-und Info-Eintrag 
.1000— 1230 EINGABE von Daten 

1300 — 1375 Pseudo-HARDCOPY 

1500 — 1650 ORDNEN/FINDEN Vorauswahl 


1700— 1810 FINDEN vonDaten 


2000 — 2020 KORREKTUR von Daten. = an 


2500— 2520 VORblättem 
3000— 3020 ZURÜCKBIättern 
3500 — m LOAD-Routine 


: 8160 Directory Ausdrucken. 


Er 000 — 9060 SUB Daten in Maske eintragen 
10000 — 10200 SUB ‚Daten-Input/b. Eingabe und Korrektur 
10300 — 10330 SUB Maskeneinträge löschen 
10400 — 10410 SUB Fenster für Maske 


11000 — 11840 ORDNEN-Routine 


12000 — 12240 DRUCK von Daten 
13140 AUSTRAGEN (aktuellen, sichtbaren Datensatz ‚iösahen 


13000 — 
20000 — 20050 Disk Error Check 


Im Inneren von „Uni-Kartei" 


(Freier Restspeicher — 400 Bytes) 
durch (durchschnittliche Feldnut- 
zung pro Feld in Zeichen mal Feld- 
anzahl), Wenn die Dimensionie- 
rung abgeschlossen ist, erscheint 
die Bildschirmmaske. Im oberen 
Teil stehen erreichbare Funktio- 
nen und der Kartei-Hauptname. 
Der erste Buchstabe einer jeden 
Funktion ist negativ dargestellt. 
Ein Druck auf die entsprechende 
Taste löst die Funktion aus. 

1. LOAD 


open 15,8,15 

z=1:i-z-1; print chrSs-C272"m" 
d1%=C Fre (8)-480)/C18*5) 
dim t$(d1%),n$Cd1%), s%Cd1%) 
dim y$C(d1%),d$Cd1%), z$(d1%) 
For y=i1 to B:key 4y,"":next y 
knS="[shift *J?[Lshift *2” 
C2home,clir]” 


char 1,B,22,"nur ’return' = kein name” 
"Chome ,3down, Zrightlkartei 


input 
hauptname ”;u$ 


if uS="" then u$="ohne. namen” 


z3=-"[Coff, 48shift *7” 
gosub 55:goto 168 
poke 65286,9 

print "C[C2home,clr)” 
print 


Coffload/[rvs]Islofflave” 


print "[4spaces,rvsJfloffJinden 
C7spaces, rvs]zl[loffJurueck[5spacess, rvs] 


alofflustragen” 


print "[4spaces, rvsIklofflorrektur 
C4spaces, rvsir[lofFfleset[7spaces,rvs]o 


CoffIrdnen/®” 
print 
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print. = 


"[4spaces,rvs]leloffl]ingabe 
C6Espaces, rvs]vlofflor[8spaces, rvs]l 


"C4spaces, rvsJhlofflardcopy 
[Sspaces, rvsImloffJenuel7spaces,rvsid 


Lädt bestehende Karteien mit al- 
len Parametern. 

2.SAVE 

Speichert aktuellen Datensatz mit 
Unter- und Hauptkartei-Namen. 

3. EINGABE 

Daten in die Maske eintragen. 
Systemeigene Textverarbeitungs- 
funktionen (ESC-Sequenzen) blei- 
ben erhalten. Leerstrings, Kom- 
mata, Semikolons, Doppelpunkte 
und CLR sind zu vermeiden ! 

4. KORREKTUR 


EoffJruck" 
print 23; 

print 
print z 


Zum Korrigieren mit 'RETURN’ 
das zu ändernde Feld anwählen 
und dieses editieren. 

5. FINDEN 

Zum Suchen eines Datensatzes mit 
SPACE-Taste den Cursor auf das 
Feld stellen, in dessen Bereich ge- 
sucht wird, 'RETURN’ drücken, 
Suchbegriff eingeben, weiteres 
'RETURN'’ aktiviert den Suchvor- 
gang. 

6. ORDNEN 
Wählvorgang wie bei 
eingeben. 

7. RESET 

Setzt die Kartei auf Seite | zurück, 
8. VOR 

Blättert eine Seite vor. 

9. ZURÜCK 

Blättert eine Seite zurück. 

10. AUSTRAGEN 

Den aktuellen sichtbaren Daten- 
satz löschen 

11. HARDCOPY 

Sichtbaren Datensatz drucken 

12. DRUCK 

Druckt wahlweise die komplette 
Kartei oder einen Auszug davon. 


l. Nummer der aktuellen Seite 

2. Maximale Seitenzahl 

3. Anzahl der belegten Seiten 

4, Freie Bytes 

5. Unterkartei-Name 

6. Programmabbruch-Möglichkeit 
7. Neustart-Möglichkeit 

Ist die Speicherkapazität er- 
schöpft oder die Anzahl der di- 
mensionierten Datensätze er- 
reicht, erfolgt eine Warnung. 
Neustart nach 'Absturz’ ohne Da- 
tenverlust mit 'GOTO 51'. 


'Finden’ 


"Trvsifeid 2 BE Yan 


print GE El 


print z$; 
print z$; 


print zS; 


print "[rvsifeld 3er" 


print "[rvsIfeld 4 :” 


print "[rvs)feld 5 :” 


print zS; 


Pose 65286, 27:return 


Ppoke e225,peek (2225)+128 
char 1, 19-C int ( len (u$)/2)),0,” 


print "Crus]" 
char 1,8,16, 


„Hus;" ZEOFf]” 


print chrs (273: t*:print "Celr)” 


get a$:trap 202 
print ”Chome,doun, rightlaktuelle seite 


N "45" der datei [Ervs)”;kn$ 


print 


print 


Dee ya 


"Cdoun,l1right]”;fre (x)-498; ” 

byte frei” 

"Edown, 7right]”;z-1; "seiten 
belegt von”;di% 

218 print ”"[down,rightJCctrl+c®= 


:neustart 


220 
225 
227 


238 
235 
[1] 


B50 i 


2608 
278 
[1:17] 
292 


Se 


897 
308 
1008 


19005 
1018 
1020 
1220 
1238 
1308 
1302 
1305 
13198 
1315 
1320 
1340 
1345 
1350 
1355 
13698 
1362 
1365 
13798 
1375 
1388 
1508 
1518 


1512 


1515 
1520 
1525 
1549 


1550 


1569 
1579 
1580 
1598 
16928 
1605 


1610 
1620 


1630 
1648 


1645 


1658 
1708 
1701 


1702 


1704 
1706 


1797 
1708 
1718 
1728 
1738 
1735 
1749 
1745 
1758 
1760 
1770 
1788 


/ ctrl+shift :stop)” 

if a$=-"e"” then 102088 

if peek (1347)=6 then run 

if peek (1347)=5 then print chr$ 
c27)”lC2home,clr]”:close 15:end 
a$=-"f” or a$="o"” then 1508 
a$=-"a” then 13008 

a$=-"k" then 2008 

ag=-"v” then 2598 

a$="z” then 3008 

a$="]”" then 3588 

a$="s” then 49008 

8$="r"” then 4508 

a$=-"d” then 120888 

a$="h" then 1398 


if Fre (x)-400<-2 or z=di1%+1 then 
print ”"Cdown,Srightlkartei ist voll |!” 
:goto 218 

poke 2225,peek (2225)-128 

poke 2092, peek (2092)+128 

gosub 10908 

poke 2892, psek (20392)-128 
z"z+t1l:i=z-1:goto 208 

rem 

poka 2212,peek (2212)+128 

poke 2225, peek (2225)-128 

trap 1365 


open 4,4 

print#4, "feld 1 
print#4, "Feld 2 : 
print#4, "Feld 3 : 
print#4, "feld 4 : 
print#4,"FeldS : 
print#4 

close 4 

poke 2212, peek (2212)-128 
goto 2028 


”;t8(i) 
"n$(i) 
”y8Ci) 
"‚d8Ci) 
",2$(i) 


poke 2225, peek (2225)-128 

if a$=-"f” then poke 2132,peek (2132)+ 
128 

if a$="o" then poke 2197,peek (2137)+ 
128 

gosub 103908 

chaer-i,;T,1B,2% 

print chr$ (27)”t” 

print "Ccolr,2down,Sright]Jmit 'space’ 
Feld waehlen.” 

print ”[down,“4right]mit 'return’ Feld 
bestimmen.” 

y=5 

get key f$ 

for x"1 to5 

char 1,9,4, "[rvs)>Loff)” 

get key f$ 

if £E$<>chr$ (13) and FS<>chr$ (32) 
then 1608 

if f$=-chr$ (13) then char 1,9,4,"” ”: 
x1=-x:x="5:next x:goto 1708 

if £S=-chr$ (32) then char 1,9,4,” ":y= 

yre 

next x 

if a$="f” then poke 2132,peek (2132)- 
128:gosub 3008 

if a$="o” then poke 2197,peek (2197)- 
128 

goto 288 

char 1,1,16,”” 

print chr$ (27)”t”:if a$=-"o” then 
11908 

print "[Cclr,3down, SrightIgesuchter 
begriff ”; 

input s$ 

print ”"Cdown, 3rightlJweiter .=-"space’/ 
menue ='m’” 

m-d:a$="” 

For i=® to z-1 

on x1 goto 1750,1760,17790,1780,1738 

next i 

poke 2132,psek (2132)-128 

poke 2225,peek (2225)+128 

if m<>@ then i=m:goto 2082 

goto 4588 

s=instr (t$(i),s$):goto 1888 

s=instr (n$(i),s$):goto 1898 

s=instr (yS(i),s$):goto 1898 

s=instr (d$(i),s$):goto 1898 


1798 
1808 


1805 
1818 
2082 
29198 
20228 
2838 
2O4B 
2058 
2068 
2508 
2518 
2520 
3098 
39818 
39208 
35988 
35985 
3588 
3518 
35298 


3525 
3538 


3532 
3535 


3537 
3538 
35408 
3545 
3547 
3559 
3555 
3560 
35708 
3588 
3532 
3688 
3618 
3615 
3628 
3625 
3627 
3623 
3638 
3640 
3645 
3658 
4908 
4919 
49208 
4025 
42398 


4035 
4940 


yo42 
4045 


4047 
4059 
4055 
4957 
4060 
4065 
48567 
4978 
40852 
4938 
4198 
4118 
41208 
4125 
4138 
4135 
4137 
4133 
4148 
4159 
4155 
4168 
4598 


s=instr (z$5(i),s$) 

if s<>® then gosub S808:m=i:poke 235, 
®:get key a$ 

if a$=-"m” then i=z-1:goto 1722 
goto 1728 

poke 2225, peek (2225)-128 

poke 2172,peek (2172)+12B 

Zz=2Z:z=i 

gosub 10005 

z=2z 

poke 2172,peek (2172)-128 

goto 209 

if i<z-1 then i-i+1 

gosub 9009 

goto 292 

if i>1 then i-i-1 

gosub 9008 

goto 292 

poke 2225,peek (2225)-128 

poke 2117,peek (2117)+128 

char 21,0,16,”" 

print chr$ (27)”t”:15="" 

print ”"Cclr,2doun,6rightIdatei-namen 
eingeben oder” 

print "[down,SrightlJmenue = 'm' / 
directory = ’d’” 

input. "Cdown,3rightleingabe (max. 6 
zeichen) ";1$ 

if 15=-"d” then gosub 8000:goto 3505 
if 15=-"m” then poke 2117,peek (2117)- 
ı128:goto 2008 

if len (1$)>6 then 3520 

trap 3545 

open 2,8,2,"9:"+15+",s,r” 

gosub 200008: if ds<>® then 3639 
knS=1$ 

input#2,z 

input#2,kn$ 

For i=-1 to 2-1 

input#2,t$(i) 

input#2,n$(i) 

input#2,y$Ci) 

input#2,dSCi) 

input#2,z$(i) 

gosub 29909 

next i 

input#2,u$ 

input#2,p 

gosub 290008 

close 2 

poke 2117,peek (2117)-12B 

char 1,3,0, "C[32spaces]” 
i=1:x1=-p:gosub S008:goto 11835 

poke 2225,peek (2225)-128B 

poke 2122,peek (2122)+128 

char 1,8,16,”” 

print chr$ (27)”t”:15="”” 

print "Cclr,2down, 6rightJdatei-namen 
eingeben oder” 

print "Cdown,Srightlmenue = 'm’ / 
directory = ’d'” 

input ”"[down,3rightleingabe (max. 6 
zeichen) "”;15 

if l1$=-"d” then gosub 8008:goto 4918 
if 1$5=-"m” then poke 2122,peek (2122)- 
12B8:goto 208 

if len (1$)>6 then 1$5="":goto 4239 
open 2,8,2,”@9:"+1$5+”,s,w” 

gosub 20008:if ds<>® then goto 4142 
kn$=18 

print#2,z 

print#2,kn$ 

gosub 29999 

For -I=17t0°2=1 

print#2,t$(i) 

print#2,n$(i) 

print#2,y$(i) 

print#2,d$s(i) 

print#2,z$(i) 

gosub 298908 

next i 

print#2,u$ 

print#2,p 

gosub 29008 

close 2 

poke 2122, peek (2122)-128 

char -1,3,8, "C32spaces)” 
i=1:x1=-p:gosub 9988:goto 11835 

z= 


- 
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4510 gosub 3208 ö 579g 11178 if zSCt)>=g$S then 11290 1468 
4528 goto 202 574 11198 t=t+1:goto 11508 1167 
8008 rem directory 11218 if tS(j)<=gS then 11320 1765 
8018 print "[2home,clir]” 574 11228 goto 11310 603 
8928 directory 238 11238 if n$Cj)<=gS then 11320 1753 
8025 gosub 22098 571 11248 goto 11318 693 
8838 char 1,38,7,”"Crvs] weiter [off]” 1943 11258 if ySCj)<=g$S then 11320 1775 
8032 char 1,38,9, "[rvs,2spacesJmit[3spaces, 15563 11268 goto 11310 6039 
off)” 11278 if dSCyj)<=gS then 11320 1733 
8034 char 1,38,11,”[rvs]J spacel[l2spacss,off] 1947 11288 goto 11318 683 
r 11298 if zSCj)<=gS then 11320 L7R7 
8036 char 1,30,13,"Crvs]J print[2spaces,off] 1853 11318 j=j-1:goto 11508 1125 
x 11328 iF t>j then 115098 1121 
8037 char 1,30,15, ”"[rvs, 2spacesJmit 13083 11400 h$=-tS(lt):tSCt)=tSCJ):tSCJI=hS 2553 
C3spaces, off)” 11410 h$=n$tt):nStt)=nS(Cj):n$Cj)=hs 8553 
8038 char 1,30,17,”"[rvs,2spaces)’p’ 2005 11420 hS=yStt):yStt)=ySCj):ySCj)=hs 2638 
C3spaces, off)” 1143® hS=dslt):dSCt)=dScjJ):dSCJ)=hs 2383 
8040 get key a$:if as<>” ” and a$<>”p” then 2ZE1S 11449 hS=zS(t):zSCt)=Z$5(j):z$CJ)=hE 2553 
-  BO4O 11458 t=t+1:j=j-1 1033 
B8o42 if aS="p" then 8100 1428 11598 if t<=} then on x1 goto 119050,11080, 4039 
8045 gosub 55:gosub 999208 19087 11110,11148,11170 
8050 return 142 11518 if t>=r then 116190 1507 
8108 print "C2home,c1ir]” 574 11608 p=p+2:s%lp)=t:s%Cp+1)=r 2693 
8125 trap 80390 675 11618 r=j:if l<r then 11020 1662 
8118 open 4,4 698 11628 if p<>-1.then 11019 1725 
8120 cmd 4 261 11828 i=-1:gosub 9080 918 
8138 directory 238 11838 poke 2197,peek (2197)-128 2073 
8135 gosub 20000 571 11835 p=xi1:pcoke 3228,x1+4B 1726 
8142 print#4 856 118498 goto 288 558 
8158 close 4 264 12000 rem 
81628 goto 8030 597 12018 poke 2225, peek (2225)-128 1947 
9092 gosub 183008 533 12015 poke 2237, peek (2237)+12B 1975 
9818 char 1,9,6,t8(i) 1378 12028 print "Celr,2down,2rightlkomplett ? 3676 
9029 char 1,9,8,n$(i) 1176 (}J/n) - menue = ’m’” 
9038 char 1,9,10,y$(i) 1506 12030 get a$:if as<>”3” and aS$<>”n” and as<> 3534 
9048 char 1,9,12,d$(i) 1613 "m" then 12838 
9050 char 1,9,14,z2$(i) 1508 12035 if aS=-"m" then 12235 1697 
9068 return 142 12048 if a$="j" then si=-1:s2=z-1:goto 120908 3123 
10002 gosub 10390 593 12058 input "Cclr,2down,2rightlvon seite”;si 1990 
10005 char 1,9,6,"”:gosub 10490 1633 12068 if si<1 or si?z-1 then 12058 2204 
10810 poke 19,64 807 12078 input "C2down,Zright]lbis seite”;s2 2168 
10028 input t$(z) 7ı2 12088 if s2<1 or s2>z-1 or s2<s1 then print 37239 
100380 poke 19,0 577 "Cclr)”;:goto 12070 
10048 char 1,9,B,”":gosub 10490 1442 12088 print "Cclr,2down,2right]Jwenn der 3559 
10050 poke 19,64 807 drucker bereit ist” 
10068 input n$(z) 790 12108 print "Cdown,2Zrightleine beliebige 3502 
18078 poke 19,0 577 taste druscken.” 
190088 char 1,9,10,"””:gosub 19490 1517 12118 get key a$:trap 12230 1308 
10089 poke 19,64 897 12128 open 4,4 698 
10108 input yS(lz) 722 12138 print#4,chrS (14) ;uS 1196 
18118 poke 19,0 577 12148 print#4,chr$ (15) 887 
10128 char 1,9,12,”":gosub 10490 1645 12158 for x=s1 to s2 1065 
10138 poke 19,64 807 12168 print#4,chr$ (18);strS (x)"” "” 1613 
10148 input d$(z) 688 12178 print#4, "Feld 1 : ”;t3C0x) "1841 
12158 poke 19,0 577 12175 print#4, "feld 2 : ";n$(x) 1840 
10168 char 1,9,14,”":gosub 10490 1518 121808 print#4,"Feld 3 : ”;y5Cx) 1975 
12178 poke 19,64 807 12208 print#4, "feld 4 : ";d$Cx) 1839 
10188 input z2$(z) 724 12285 print#4, "feld 5 : ";z8(x) 1852 
10198 poke 19,08 577 12228 next x 306 
10208 return - 142 12238 close 4 264 
120308 For r*-6 to 14 step 2 19859 12235 poke 2237,peek (2237)-128 2007 
18318 char 1,9,r, ”"[30spaces]” 2127 12248 goto 298 558 
18328 next r 234 13022 rem 
12338 return 142 13818 poke 2157,psek (2157)+128 \ 1993 
18488 print chr$ (27)”"t[L28right)”; 45989 13828 poke 2225,psek (2225)-128 1947 
10405 print chr$ (27)"bL291left]”; 5888 13822 input "[clr,2down,2rightlsind sie 2308 
18418 return 142 sicher ()J/n)";a$ 
11808 p=1:5%C1)=1:5%C2)=z-1 2123 13024 if a$<>"j" and a$<>"n” then 13022 23396 
11885 print "[Cclr,3down,Bright, flashonles 3263 138026 if a$="n" then 13120 1633 
wird sortiert ![flashoffJ” 13838 For dl"=i to 2-1 1171 
11818 1=-s%Cp):r=s%Cp+1):p=p-2 1934 13848 if dl1>1988 then dl-z-1:goto 131908 2386 
11828 t=1: j«r:d=C1+r)/2 1873 13858 t$Cdl)=t$S(Cdl+1) 1318 
11838 on x1 goto 11040,110780,11120,111382, 2988 13068 n$(Cdl)=n$Cdl+1) 1391 
11160 138798 ySCdl)=-ySCdl+1) 1445 
11049 g$-t$(d) 743 13888 d$SCdl)=-dSCdl1+1) 1286 
11058 if t$Ct)>=gS then 11218 1446 13098 z5(d1)=z$(Cdl+1) 1319 
11869 goto 11198 721 13188 next di 315 
11978 gS$=n$(Cd) 635 13110 z=z-1 408 
11088 if n$Ct)>=gS then 11230 1552 13128 poke 2157,psek (2157)-128 2025 
11838 goto 11190 72ı 13138 poke 2225, peek (2225)+12B 1315 
111®® gS=-yS(Cd) 783 13149 goto 4599 SB5 
1111® if yStt)>=gS then 11258 1457 20088 rem disk error check 
11128 goto 11198 7z2ı 200085 if ds=® then return 911 
11130 g$S=dsCd) = 615 28018 print "Cclr,down,right]”;ds$:as="" 1654 
11148 if dSCtt)>=g$ then 11278 1543 20822 print ”"[down,rightlweiter = return” 2046 
11158 goto 11198 7z2ı 20038 get key a$:if a$<>chr$ (13) then 20030 20398 
1116@ g$=z$(d) 731 280858 return iN2 


Ordnung halten mit „Uni-Kartei“. 
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Spiele Listing 


Krater 


sprengen ist nieht schwer... 


System: C64/Joystick 
Typ: Spiel 
Sprache: Basic 


Mit Joystick steuert man den Rau- 
mer durch die engen, mit Minen 
versehenen Tunnel. Die Berüh- 
rung mit etwas anderem als der 
Landefläche führt zum sicheren 
Tod. Ein Level besteht aus drei 
Tunneln, wobei die Schwerkraft 
des Planetoiden mit jedem Durch- 
gang zunimmt. Der Clou am Spiel: 
Jeder kann weitere Tunnel kon- 
struieren und dem Programm an- 
fügen! 

l.) In Zeile 20200 steht die An- 
weisung „ON L GOSUB 
50000,51000,52000". Von jedem 
weiteren Tunnel muß hier die 
erste Basic-Ädresse angefügt wer- 
den. Beispiel: Tunnel 4 beginnt ab 
Zeile 52500. In 20200 muß: ON L 
GOSUB 50000,51000,52000,52500" 
stehen. 

2.) Für jeden weiteren Tunnel muß 
in Zeile 20219 die Anweisung: „IF 
L=4 THEN L=1" um Eins erhöht 
werden. Das Ergebnis unseres 


Gut getarnt durch ei- 
nen Höhlengang liegt 
die Raumbasis des Pla- 
netoiden Klee IV. Poli- 


zeieinheiten des Impe- 

riums zwingen zu einer 

schnellen Landung auf 
dem zerklüfteten 
Himmelskörper. 


Beispiels wäre: 

„IF L=5 THENL=1!". 

3.) Die Tasten „#$%&'0+—*" ent- 
sprechen den verschiedenen 
„Bauteilen“ des Tunnels. Bricht 
man das Programm mit RUN/ 
STOP ab und gibt diese Tasten 
ein, erscheinen am Bildschirm die 
entsprechenden Grafiken. In 
PRINT-Befehlen bauen diese das 
Spielfeld auf. Die Landebahn muß 
sich in der untersten der 25 
PRINT-Zeilen befinden. Die Varia- 
ble P gibt den X-Achsen-Standort 
des Raumschiffes an. Anhand der 


q:next 


drei bereits vorhandenen Tunnel 
ist ersichtlich, wie weitere Land- 
schaften aufgebaut werden. 

Zum Abschluß die Variablenliste: 


A,B :Hilfsvarible 
G : Graviation 
HX _:MSB-Variable 
L : Level 
M : Horizontale 
Beschleunigung 
N : Vertikale 
“ Beschleunigung 
P Positionierung des 
Raumers 
Q : Spritedaten 
R : Runde 
SI : Soundchip 
U  Videochip 
X,Y,Z : Musikdaten 
Z : aktuelles Sprite 
Die unterschiedlichen Level 
befinden sich in den Zeilen: 
Level 1: 50000 bis 50020 
Level 2 : 51000 bis 51250 
Level 3: 52000 bis 52250 


Viel Spaß beim Spielen und Kon- 
struieren wünscht 
Arno Schar UEEEEEEEEEEEEEE 


28 For a-14528 to 14528+62:read q:poke a, 2925 


= 
wn » 


en oymusrwWnr 


LE ZZ ZZ U 22 0220202 
“.. ufo wu. 
a0 a a aa a 


“““ by arno scharl / laerchengasse 
/ a-2601 sollenau *** 

““* ta] .02628/73273 / Cc) 1986 **" 
v-53248:poke v+21,63:poke 20848, 224: 
poke 2041,225:poke 2042,226:poke 2043, 


227 

poke 2044, 22B:poke 2045,229:print ” 
[Cclr]”:poke 53280,8:poke 53281,8 

for a-14336 to 14336+62:read q:poke a, 


q:next 

for a-14400 to 144080+62:read q:poke a, 

q:next 

for a-14464 to 14464+62:read qg:poke a, 

gq:next 

poke v+42,1:poke v+43,1:poke v+44,7: 

poke v+23,7:poke v+29,7:for x=1 to B2 
poke v+2,160:poke v+3,x:poke v,x:poke 

v+1,168-x:poke v+4,x*3:poke v+5,x:next 
for a1 to 25:3$=-a$+chr$ (13):next : 
print a$:print tab(15); "Luhtlwritten 
by”;chrS5 (13) 

print tab(14); "[yellarnol2spaces] 
scharl”;chr$ (13);chr$& (13);chr$ (13); 

ehr$ (13) 

print tab(13); "[grn]lplease wait...” 


e1 
22 


For a-=14592 to 14592+62:read q:poke a, 


g:next 

for a=14656 to 14656+62:read q:poke a, 
g:next 

poke 52,48:poke 55,4B:poke 56334, psek 
(56334) and 254:poke 1,peek (1) and 
251 

for i=-® to Sil:poke i+12288,peek (it 
53248):next :poke l,peek (1) or 4 
poke 55334, peek (56334) or 1 

poke 53272,( psek (53272) and 24@)+12 
For a-12568 to 12655:read q:poke a,g: 


"Cupl”;tab(13);:Ffor a=-1 to 14: 
”::For b=1 to 15®8:next :next 
For a=33 to 17 step -1:print tab(a);”, 
1985”":for b=1 to 5®:next 
print "[up,39spaces, up)” 
next :print tab(17);”", 1985” 
print ”[grn, 7Zup]#[Sspaces, purJ+[Lgrn] 
g” 


print ”-([9spaces))-” 
print "-#[Bspaces] ’S-" 
print "-%C7spacesIS---" 
print m ‚Lyel]******Cgrn]$ 


for a-158 to 197:for b=-1 to 38:next : 
poke v+B,a/4:poke v+9,a:next 

poke v+8,8:poke v+9,8:poke v+6,1397/4: 
poke v+7,197 


3035 
3140 


5536 


3613 


1838 
2958 
2937 


3458 
3356 


1525 
1492 
1989 


852 
1019 
1196 
2022 
1993 
39398 


3988 
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10098 
190901 


‚190002 
19003 


190904 
198805 
190006 


190997 
10908 


10003 
1900810 
10011 


10012 
10013 


10014 
190015 
12016 


10017 
190018 


109020 
10021 


18022 
18023 


100825 
1900825 


10027 


10028 
10038 
10031 
18832 
10033 
10034 
10035 
10036 
10037 
10038 
10033 
100408 
10041 
29098 
200085 
20018 
20015 
20020 
200825 
20930 
20035 


20040 
BODHS 
20058 
28055 
20069 
28065 
20978 
20075 


20082 
20052 


20035 
20198 
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rem ##+#% 0 ku 

data 120,0,30,252,0,63,252,9,63,252,0, 
63,252,0,63,252,0,63,252,0,63 

data 252,2,63,252,0,63,252,0,63,252,0, 
63,252,0,63,126,2,126,126,9,126 

data 127,0,254,563,195,252,63,255,252, 
31,255, 248, 15,255,240,3,255,192 

data 0,1256,0 

rem ... £ “. 

data 255,255, 254, 255,255,255,255,255, 
25572557058, 255,255,255;255 

data 255,255,254,252,90,0,252,0,0,252, 
0,0,252,0,0,255,255,0,255,255,128 
data 255,255,128,255,255,0,252,0,0, 
252,0,0,252,0,0,252,0,0,252,9,8 

data 252,0,0,120,2,8 

rem *** o “.. 

data 8,126,8,3,255,192,15,255,249,31, 
255, 248,63, 255,250,63,195,252 

data 127,0,254,126,0,126,126,2,126, 
252,0,63,252,0,63,252,0,63,126,0,126 
data 126,0,126,127,0,254,63,195,252, 
63,255; 252731, 255; 248715,255, 249 

data 3,255,192,20,126,0 

rem *#* ufFo "““ 

data 0,60,0,0,66,0,8,1298,80,3,2,192,28, 
8,56,224,90,7,144,0,9,142,0,113 

data 65,255,130,64,0,2,32,0,4,32,24,4, 
16,36,8,8,36,16,14,66, 112 

data 25,129,152,48,255,12,32,80,4,32,0, 
4,112,80,14,248,0,31 

rem **® ufo + antrieb **« 

data 0,69,0,0,66,2,2,129,0,3,8,192,28, 
0,56,224,0,7,144,0,93,142,8,113 

data 65,255,130,64,0,2,32,8,4,32,24,4, 
16,36,8,8,36,16,14,656,112 

data 25,129,152,48,255,12,32,8,4,32, 
34,4,112,136,14,249,36,153 

rem **® explosion *** 

data 128,0,2,2,4,02,0,0,64,4,0,0,64,8, 
4,0,128,128,4,2,0,32,18,36,8,152,128 
data 0,126,0,2,255,565,8,126,144,65,26, 
8,8,72,136,2,2,0,0,0,65,16,128,8 

data 0,8,0,0,0,32,64,0,0,2,2,1 

rem #*# zeichensatz *** 

data 128,224,192,240,252,248, 259,255 
duta=1,9,1,7,19,7,63,855 

data 255,248,192,224,249,224,192,128 
data 255,15,63,7,15,3,7,1 

data 8,0,16,20,28,35,255,255 

data 224,248,240,252,192,2498,128,192 
Hata-3,31,7,15,7,63,15,7 

data 255,170,255,24,24,24,255,153 
data 129,66,60,252,63,60,66,129 

data 126,129,157,161,161,157,1293,126 
data 255,255, 255,255, 255, 255,255,255 
rem 

rem 

rem **#* ufo - main program *** 

rem ann. 

rem 


for a=1 to 15:pokse 53287,a:poke 53288, 
at+tl:poke 53283,a-1:for b=1 to 5®:next 
ınext 

for a=15 to 2 step -1:poke 53287,a: 

poke 53288,a+1:poke 53289,a-1:for b=1 

to 58:next :next 

l=-1:g"8.1:print "Chome, 7spaces,wht]... 
CcynIpress [grnlfilcyn) to start 
Ewht]...” 

For a=1 to 55:read y:read x:read z 

si-54272:poke si+24,15:poke si+5,25: 
poke si+6,6B 

poke si,x:poke si+tl1,y:poke si+4,17 
for t=1 to Z*1.3:next 

get a$:if a$=chr$ (133) 'then poke si+ 
24,8:1=1:goto 202098 

poke si+4,8:poke si+5,8:poke si+6,2: 
next 

wait 198,133 

data 52,39,133,49,58,133,52,39,133,52, 
39,200,43,219,608,0,0,208 

data 58,138,100,58,138,1989,58,138,133, 
65,181,133,69,157,133,69,157,133 

data 65,181,133,52,39,133,39,18,408,8, 
0,208,52,39,1080,52,39,108 
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201085 
28118 
20115 
28128 
28125 
20138 
20135 
22150 
29298 
20201 


20202 


290219 
29211 


2212 
20213 


29214 
20215 
298216 
20217 
20218 
20213 
20220 
2e221 
20222 
29223 
20225 
40802 
40801 
49802 
40803 


40B24 


40805 


40896 


40807 
40808 
40893 
40818 
4os1ı1 
509208 
52001 
52222 


50203 
59904 


58095 
Sp225 
50807 
52208 
59823 
s2212 


data 52,39,198,52,39,188,58,138,100, 

65,181,1908,65,181,133,58,138,133 

data 65,181,133,58,138,428,0,0,200,48, 

58,100,493,58,108,43,58,108 

data 49,58,190,52,39,100,58,138,100, 

58,138,133,52,39,133,58,138,133 

data 52,39,4900,0,8,2808,43,219,100,43, 

219,108,43,219,190,43,219,1008 

data 43,219,198,52,39,100,39,18,133, 

34,207,133,32,219,133, 32,219, 4®® 

data 0,0,2002,58,138,1900,58,138,100,58, 

138,133,58,138,133,52,39,133 

data 52,39,888 

wait 198,133 

poke 53280,8:poke 53281,8:on 1 gosub 

50009,51009,528808:print ”Chome,yel)”; 

tab(31); "level: ”;1 

For a=® to 11:poke v+a,d:next :poke v+ 

29,8:poke v+23,9:x=149:y=59 

poke v,p:poke v+1,225:poke v+2,p+3®: 

poke v+3,225:poke v+4,p+59:poke v+5, 

225:a=1:2=6 

hx=int (x/256):if hx=1 then poke v+15, 

S6 

poke v+2,x-256*hx:poke v+z+1,y:poke 

53279,8 

if x<256 then poke v+15,8 

z=6:if peek (56321)=254 then m=m-1:2= 

B:poke v+6,8:poke v+7,0 

if peek (56321)-253 then m=m+1 

if peek (56321)-251 then n"n-1 

if peek (56321)=247 then n=n+1 

a=-peek (53279):if a=15 or a=23 then 

gosub 40892 

if peek (56321)<>254 then poke v+B,2: 

poke v+9,08 

if y>212 and m<4 then l=1+1:if 1-4 

then l\=1:g=g*+d.1:r-r+1 

if y>219 and m<4 goto 22209 

if x<24 then n=-d:x-24 

if x>3208 then n=B:x=328 

if y<S58 then m=9d:y=50 

m-m+tg:x=x+n:y=y+m:goto 20218 

poke v+1®,x-256*hx:poke v+l1,y:poke v+ 

2,8:poke v+z+1,8 

poke si+5,9:poke si+6,8:poke si+4,® 

si=-54272:for x=15 to 8 step -8.3:poke 

si+24,x:poke si+5,15:poke si+t6,8:poks 

si+1,40 

poke si,200:poke si+4,129:next :poke 

si+4,8:poke si+5,8 

For a"=1 to 15:poke 53287,a:poke 53258, 

a+l:poke 53289,a-1:for b=1 to 58:next 
next 

For a=15 to 2 step -1:poke 53287 ,a: 

poke 53288,a+1:poke 53289,a-1:for bri 

to 50:next :next 

print "Chome,3down,ilright,uhtJlg ame 
C3spaces]o v e r[3spaces]!”:poke 198, 

®:wait 198,1:poke 158,2:1=1 

poke v+21,8:print "[clr,3down]Jyou have 
reached round ”;r+i1 

print "[Cdownland were destroyed at 
level ”;1 

input ”[3downJdo you want to try again 
"a5 

if a$<>"n” then m=8:n=Bd:poke v+21,63: 

goto 20208 

sys 64738 

print "[clr,grn,4down)” 

print "#":print "-([4spaces,red)J+[Lgrn, 

32spaces]$”; 

print "-#’ '[C18dspaces,red)+[grn, 

23spaces]$-”; 

print ”----#’[31spaces])--”; 

(CBspaces) ’[20spaces)$--- 


“[8spaces]$-#[14spaces, 
redl+[grn,3spaces))----”; 
i ---#’ 2 9 29 I165---([17spaces))-- 
#[18spaces]$--- 
%L.17spaces) ’$--- 
»[3spacss, red]+ 


spaces]$-----7- a 
(Ei6spaces)) 


6719 
5321 
6637 
5638 
6862 
6443 

887 
1254 
5853 
3992 
6897 


2666 
4119 


2127 
5003 


24308 
2465 
e551 
3075 


3661 
3983 


1661 
1792 
1988 
1614 
2008 
4624 


"2059 


59328 


3327 
S246 


gD1R 


56598 


3552 
3904 
2319 
28398 

717 

828 
EB21 
2394 


2B6B 
8771 


3128 
3634 
3767 
3884 
4294 


52011 
Ssp2l2 
50013 
59014 
50015 
Sp216 
50017 
502018 
500213 
Ssp2228 p=30: return 
51888 print "Cgrn,clr,3down]” 
51012 print "#’'’" 
"51028 print "gro" 
51838 
+[grn, 7spaces]$”; 
51040 
$-”; 
51050 
51060 
51072 
51082 
51090, 
51100 
51138 
CSspaces]3 ann ” 
51142 
51158 
51160 
51178 
51180 
51190 


512008 


Wenn das Imperium zurückschlägt ... . 


#’'’'’'*'C14spaces, pur] 


%&--%[Sspaces] 
“C2spaces]&% 


C12spaces)' S---- 
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:return 
"Celr,grn,26spaces)’’’$ 


SRL2USPECBS]5--- == un kr 


’ 


2=tte2spacas]13-2o See Z3e N 
un 


print Feeebananası3 
C4spacss]&--------- = 
print ”-([Bspaces)) 


) EEE, ”, 
print ">6tBspaces)) 
) 


#'''C17spaces) 


print "-([32spaces)&a----- 4 

print "-([33spaces)&----”; 

print "-#[34spaces)&---"; 

print "--(C13spaces, pur)*+Cgrn, Sspaces] 
I#Ll5spaces))---"; 


print 
print 


p"38: return 


print ee 
[Sspaces])-”; 


"--H[23spaces] )S-(Cöspaces)ä--"”; 
"---#'[228spaces) 


)--([8spaces])-- 


#C1Sspaces]S--([Sspaces]&- 


---#’[16spaces))---(C 


#'C14spaces]$S---( 
#'Cilspaces])----C 


#''CBspaces)$----( 


Wasser im Commodore 64 


System: C64/Joystick 
Typ: Spiel 
Sprache: Basic/ASM 


Ein starker Gegner stellt sich mit 
seiner kampfkräftigen Flotte: Es 
ist der C64, Eine Seeschlacht ent- 
brennt, Sieger ist, wer alle gegne- 
rischen Schiffe versenkt. Nach 
Start durch RUN fordert SVS auf, 
einen Joystick in Port 2 zu stecken. 
Drückt man den Feuerknopf des 
„Freudenknüppels", erscheint 
das Eingabemenü: Links das Spie- 
lerfeld (SF). Dort setzt man seine 


Schiffe versenken ist 
ein beliebtes Spiel. 
SVS ersetzt den Mit- 


spieler und beweist: 
Der C'64 ist nicht auf 
den Chip gefallen! 


Schiffe (1x4, 2x3, 2x2 Felder 
groß). In dem rechten Feld (CF) 
sind die Schiffe des Rechners ver- 
teilt. Im SF steht oben ein weißes 
X, der Cursor. Das untere Drittel 


EN SENSE TER OEN TER 


des Bildschirmes zeigt die zu set- 
zenden Schiffe mit zugehörigem 
Quadrat (links davon). Mit dem 
Cursor fährt man das entspre- 
chende Quadrat an und wählt mit 
Feuer das gewünschte Quadrat. 


Treffer - Versenkt 
Be Re er ER 


Zur Bestätigung wird der Cursor 
schwarz. Er gibt die Lage des 
Schiffsbugs an, falls sich der Cur- 
sor bei erneutem Knopfdruck auf 
einem freien Feld im SF befindet. 
Wenn alle Schiffe gesetzt sind, $ 
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wird das Programm nach Anwahl schüssen ist der Computer an der GOTO 80 erneut. 

von EXIT fortgesetzt. Wenn im CF Reihe. Unterhalb der Felder steht Hat der C64 einen Treffer erzielt, 
der Cursor erscheint, steuert man die Anzahl der Schüsse und ver- errechnet er weitere Schüsse 
ihn mit dem Joystick. MitdemFeu- senkten Schiffe. Unterbricht das nach einem Algorithmus. 

erknopf schießt man. Nach Fehl- Programm, startet man es mit A. Buschhüter EEEEEEEEEEEEEEEEREEEN 


rem ##H#HHHHh 

rem titelsprite 

rem #HHHHHHHHHH 

data 16,[2spaces]2, [2spaces]8B, +42, 

C2spaces]®, 28, 16,C2spaces]® 

data [2spaces]8, 16,[2spaces]®, 

C2spaces]8, 16, 556,[2spaces]B, 145 

data 40, 73,124, 40, 62, 17,355, 

C2spaces]8B 

data [2spaces]1,[2spaces]i,[2spaces]®, 

C2spaces]Ji1,[C2spaces]1,[2spaces)®, 15, 

855 

data 224 ,[C2spaces]4, 16, 64,[2spaces] 

®, 16,128, C2spaces]i1 

data 17,[2spaces]®, [2spaces]1,147, 

[2spaces]®, 15,147,224 

data 16, 84, 16,231, 57,207 ,C2spaces] 

8,130 

data 32, 16, 68, 16,224, 56, 15 

v-53248:poke v+21,6:poke 2042,13:poke 

2041,13:Ffor i=® to 62 

read a:poke 832+i,a:next :poke v+4B,1: 

poke v+41,1 

print "Cclr,4down,wht]” tabl 
12)”schiffeversenken” 

poke v+16,2:poke v+2,24:poke v+4,64 

poke v+3,73:poke v+5,73 

print "C2down]” tab(l12)"joystick port 
ii” 

for i=-® to 4808:next :poke 646,7-peek 
(646) 

print "[C2down)” tab(14)"”press button 

C3upJ” 

p"-peek (56320):if (p and 169<>®8 then 

S5 


elr :poke 65,pesk (122):poke 66, peek 
(123):poke 53265,239:poke 56333,31 
rem LELEETERDDENZIEEZE 

rem mp: chr-rom => ram 

rem HHHHHHHHHHHHHHH 

data 120,169, 51,133, C2spaces]1,169, 
C2spaces]2, 133 

data 35,133, 90,133, 88,169,208,133 
data S6,169,240,133, 89,169,224,133 
data 91, 32,191,163,169, 55,133, 
C2spaces]i 

data 88, S6 

rem HHHHHHHH 
rem mp: setcurs (sysB6E6,x,y4,text) 
rem HHHHHHHHHH 
data 32,253,174, 32,158,183,134,211 
data: 32,253,174,732,1587183, 138, 214 
data 32, 16,229, 32,253,174, 76,168 
data 178 

rem HHHHHHHHH 

rem mp: setmob® (sysBB5,x,y) 

rem HHHHHHH He 

data 32,253,174, 32,138,173, 32,178 
data 177,141, 16,208,148,[C2spaces]®, 
208, 32 

data 253,174, 32,158,183,142,C2spaces] 
1,208 

data 96 

rem #HHHHHHHH 

rem chr: heck 

rem #HHH#HHHH 

data Bl:rem <shift-g> 

data 252, [2spaces]6,227, 35, 35,227, 
C2spaces]6, 252 

data 107:rem <c= -o> 

data 165,165,1893,129,129,195,126, 68 
rem ### mitte ### 

data 64:rem <shift-®* 

data 255, [2spaces]®,255,126,126,255, 
[2spaces]B, 255 

data 35:rem <c= -* 

data 165,189,189,189,1893,189,189, 165 
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rem ### bug ### 
data E2:rem <£ '>'’ > 
data [2spaces]3, 12, 49,198,198, 48, 
12,C2spaces)3 
data 30:rem <£ '’t’> 
data 24, 24, 36, 36, 66, 30,153,165 
rem ### explosion ### 
data 65:rem <shift-a> 
data 126,255,255,213, 24, 24, 60,255 
rem ### welle ### 
data 67:rem <shift-c> 
data [C2spaces]2d,[2spaces]®, 24, 60, 
231,195, C2spaces]2, C2spaces)]® 
rem ### Feld ### 
data 35:rem < ’#’ > 
data 255,129,129,129,129,129,129,255 
data -1:rem ** chr ende ** 
rem #HHHHHHHHHHHHHH 
rem sprite: cursor 
rem HHHHHHHHHHH 
data 16:rem block 156 (50176-502339) 
data 1895, [C2spaces)2, C2spaces]9, 231, 
C2spaces)d, C2spaces]®, 1256, [2spaces]®d 
data (C2spaces]d, 69, C2spaces]2d, 
C2spaces]®, 60, [C2spaces]®, [2spaces)2d, 
126 
data [2spaces]®, [2spaces]2, 231, 
C2spaces)d, C2spaces]®, 195 
data -2:rem ** ’cursor’ ende ** 
rem ### kanone #H# 
data 17:rem block 17 (50248-590303) 
data 15,128, C2spaces]®d, 15,152, 
C2spaces]2, [2spaces]7, 48 
data [C2spaces)P®, 255, 224, C2spaces)®, 
855, 224, C2spaces)2, C2spaces)7 
data 48,[C2spaces]®d, 15,152,[C2spaces]®, 
15,128 
data -2:rem ** 'kanone’' ende ** 
rem ### schuss ### 
data 18:rem block 18 (50394-50367) 
data [(2spaces]®, C2spaces]2®, [2spaces])®, 
C2spaces]®, C2spaces]®, [2spaces)d, 
[C2spaces]d, [2spaces)]® 
data [C2spaces]d, 63,[C2spaces)d, 
[C2spaces]®d, 63 
data -2:rem ** ’schuss’ ende ** 
data -3:rem ** sprites ende ** 
rem ##H## 
rem init 
rem #### 
v-53248: s=-54272: jp=-56322: e=65: sm-891: 
rem vic,sid,controlport 2, ’set mob’ 
poke jp+5,48:rem cursorgeschuw. 
ba=49152: Fa-55236:sc-866:rem bs-addr ., 
Farb-addr., ’'set cursor’ 
def fn t(x)=peek (po+tx)<>e and peak 
(po+x)>169 and peek (po+x)<>67:rem fe 
ld frei ? 
def fn F(x)=peek (f+x) and 15:rem farb 


8 

def £fn jCx)=Co and x)"d:rem Joystick 
£l=-s: fh=-s+1:w=es+t4:ah=s+5: hk=s+6: la=s+ 
E4:rem sid-addressen 

poke v+32,6:poke v+33,6:print ”[chbm 7] 
":rem rahmen-/grund-/schrift-farbe 

def £fn xCh)=int CCh-24W)/B8):def Ffn 
yCh)=int CCh-58)/B):rem x/y-koordinate 
rem schiffe: waagerecht 
wSli)=">L2shift *JQ0”:wSl2)=">Cshift *] 
0”: WECH-WSC2):WECH)=-">Q*":WEl5I=-">Q 
rem senkrecht 

s$5(1)=-"TLleft,down,cbm *,left,down, 
cbm *, left,down,cbm qJ”:s$(C2)="TLleft, 
down,cbm *,left,down,cbm qJ”:s$(3)- 
s$(2):s$C4)="tTLleft,down,cbm qI”: 
s5(5)-s$(4) 


870 
880 
830 
900 
918 


920 
940 
959 
968 
370 
980 


930 


10008 
1018 


190208 
190308 


1940 


1945 
1058 
1068 
1978 
1075 
12888 


1238 


1128 
1118 


1120 


1138 
1148 


1158 


1168 
1170 
1180 
1198 
1208 
1218 
1220 
1238 
12508 
1268 
1278 
1288 
12908 


1308 
1318 
13208 
1330 


1340 
1358 
1360 


1370 
1388 


1398 


1490 
1410 
14208 
1430 
14408 


1458 
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rem x-koordinaten der menuefelder [xC) 
J und laenge der schiffe [1()] 
xC1)=-1:xC2)=-19:x(3)=-1B:x(4)=-26:x(5)- 
33:1019=4: 1023-3: 1039-3: 1CY)=2:105)=-2 
if peek (2)=1 then 1048:rem datas scho 
n gelesen ? 

For i"832 to 915:read a:poke i,a:next 
sys B32:poke 858,160:sys 832:poke 
56576, peek (56576) and 252:poke v+24, 
10 

poke 648,192:rem bs=> Sc00® 

read z:if z<d then 378 

for i=® to 7:read a:poke 59392+B*z+i,a 
next :goto 948 

read z:if z=-3 then 1218 

for i=® to 62:read a:if a>-2 then poke 
batz*"64+i,a:next 

if a<® then for i"-i to 62:poke ba+z* 
64+i1,d:next 

goto 970 

for i=-® to 2:poke 50168+i,16+i:next : 
rem sprite-block-addressen 

For i=-® to 5:poke v+i,8:next 

poke v+39,1:poke v+49,8:poke v+41,2: 
poke 2,1 

poke 64B,4:print ”"[Cclr)”:poke 648,192: 
rem sprite-zeiger setzen,bs (19824) loe 
schen 

poke v+24,18 

rem #HHHHhHHhH 

rem bs-aufbau 

rem #HHHHHhh 

poke 53265,27:poke 56333, 159 
a$="ECECCCCECCCECCCECCC*” ; a8=-a$+” 
[S5spaces]”+a$:print ”"[clr]”as 

for i=1 to 15:print "CHHHHHHHHHel 
[SspacesICH###H#H Hl”: next 
print a$ 

For i=-1 to 5:sys sc,x(i),18,”[cbm 7, 
rvs] [off,cbm 8,right]”w$Ci):print 
print tab(x(i))”[cbm 7,rvs) Coff, 

cbm B,right]”sSCi):next # 

sys sc,26,23,"[cbm 7,rvs] C[Coff]J EXIT 
xk=-32:yk=58:xg=164: yg=5B:xs=xg:ys=-yg: 
poke v+21,1:rem sprites x/y 

poke v+t2,xg:poke v+3,yg:poke v+4,xs: 
poke v+5,ys 

sys sm,xk,yk:rem sprite setzen 

rem ### joystick-abfrage ### 

o=-peek (jp) 

if £n JC(1) and yk>58B then yk=yk-B 

if £n JC2) and yk<242 then yk=yk+B 

if £n JC4) and xk>32 then xk=xk-B 

if £fn J(8B) and xk<328 then xk=xk+B 

if £fn JC16) then gosub 1388:goto 2968 
goto 1168 

rem #HH#HHHH HH 

rem toene: explosion 

rem HHHHHHHHHH 

for J"15 to ® step -1:poke la, )j:poke 
ah,15:poks hk,B:poke Fh,1:poke f1,20: 
poke w,129 

next :poke w,®:poke ah,®:return 

rem ### pfeifen ### 

k=-150-3 

poke la,15:poke ah,96:poke hk,55:poke 
fh,k:poke Fl1,1208:poke w,17:return 

rem ### 'wasser’ ### 

for j=-8 to 8 step -.B:poke la, j:poke 
ah,15:poke hk,45:poke fh,108:poke Fl, 
120 

poke w,129:next :poke la,®:poke w,®: 
poke ah,®:return 

rem ### signal #iH# 

poke la,15:poke ah,21:poke hk,®:poke 
£fh,114:poke fl,162:poke w,17 

For j*-1 to 15:next :poke w,®:poke ah, 
®:poke la,®:return 

rem HH 

rem schiffe setzen (comp) 

rem HHHHHHH He 
For2c=1t0°5 

r=sgn ( int C rnd (8)*3)-1):if r=d 
then 1448:rem richtung des schiffes 
x"-int C rnd (8)*15)+1:y=int C rnd (8)* 
15)+1:rem position des sch. 
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po=43174+x+40*y:pb=10456+x+4@*y:rem neu 
er bs/ alter bs 

for j=-® to l(c)-1:p=-peek (pb+J*t-Cr=-- 
1)*39+1)):q=peek (po+Jj*C-Cr=--1)*39+1)) 
if pt>32 or q<>35 then 1448:rem positi 
on besetzt ? 

next 

for j=® to 1(c)-1:poke pb+jJ*C-(r=-1)® 
39+1),4B+c:next :rem sch.-nr. auf bs(i 
024) 

CXlOI=-X:cylc)=-y:crlc)-r 

next :xk=208: yk=58 

sys sc,1,17,”CrvsJICOMPUTERLOFfFJ:” spet 
19)”:CrvsJISPIELER 

a=-int (C rnd (ti)*S): if a/2=-int (a/2) 
then 1988:rem comp 

goto 1580:rem spieler 

rem #HHHHHHHhh 

rem spiselerzug 

rem ##HHHHHHH 

poke v+21,1:gosub 2359 

sys sm,xk,yk 

o=-peek (jp):rem ### Joystick ### 

if £n JC1) and yk>58 then yk=yk-8 

if fn JC2) and yk<178 then yk=yk+B 

if fn jJC4) and xk>288 then xk=xk-B 

if fn J(8) and xk<328 then xk=xk+B 

if £fn jJC16) then 1638 

goto 1598 

poke v+21,8:rem ’cursor’ aus 

rem ### schuss auswerten ### 

b=415+fn x(Cxk)+40*fn yCyk) 
p=-b-415+ba:if peek (b)=32 and psek 
(p)<>168 goto 1858 

if peek (p)>53 then 1599:rem ’daneben’ 
gq=-peek (b)-4B:ctlgq)=ctlqg)+1 

sys sc,fn x(xk),E£fn yCyk), "LwhtJA 

[cbm B,left]”;:gosub 1298 

print "A 

if ct(q)<>1lcgqg) then 18498 

print "Cblk]”;:sys sc,cx(g)+22,cyCa),; 
if cr(g)=1 then print w$Cg):goto 1812 
print s$(gq) 

print ”CIcbm 71”:cv=cv+1 

sys sc,33-1(g9),17+q, "CblkJ”"wSCq)J” 
Ccbm 7]”:rem versenkt 

if cv=5 then 21358:rem spielende 
ps=ps+l:goto 1598 

gosub 1358: ps=ps+1 

poke p,168:pokes Fa+p-ba, 14 

rem #H#####4## 

rem comp-zug 

rem ######## 

gosub 2358 

poke v+2,164:poke v+3,58:poke v+21,2: 
poke v+4,164 

if Czt) or x then x=9:gosub 2390:iF x 
Ins 1338:rem war letzter schuss treff 
er 

x-int C rend (ti)*1S)+1:y=-int C rnd 
(ti)®15)+1:po=-ba+tx+4Q*y:p=-peek (po) 
£=-peek (fa+x+40*y) and 15 

if p=e or p-168 or F=-® then 1330 
q=peek (po-1):r=-peek (po+1) 

if int (C abs (x-y)/2)<>abs (x-y)/2 
then 1938 

For j=-® to y*B-B:poke v+3,yg+j:next : 
poke v+5,ys+y*8-8:poke v+21,6 

For j-® to 8*(15-x)+18 step B:gosub 
1328:poke v+4,xs-j:next :poke la,ß: 
poke w,® 

poke ah, 8: po=-ba+tx+48*y:p=-psek (po):cs= 
cs+1 

if pt>35 then 2050 

poke po,168:poke Fa+x+49*y,14:poke v+ 
21,2:gosub 1358 

poke v+21,8:goto 15998 

poke po,se:poks Fa+x+40*y,1:gosub 1298 
poke fa+rx+40*y,15:cx=-x:cy=y 

pt=-psek (4t15+x+40*y)-48B 
pt(pt)=pt(pt)+1 

if pt(pt)=l(pt) goto 2112 

goto 1998 

pv=pv+1:sys sc,px(pt),pyCpt), "Cb1k]”;: 
x-2d 

if r(pt)=1 then print wSCpt):goto 2140 


> 
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2138 
2140 


2158 
2160 
2170 
218@ 
2138 


2208 
2210 


2228 
2238 
B24O 
2250 


22608 
2270 
22808 
2238 
2300 
2310 
2320 
2330 
2348 


2358 


2369 
2370 
2388 
23908 
2395 
[2 10)0] 
2430 
2450 
2470 
25008 
2530 


8558 


2570 
2598 
2610 


2630 


26708 


26998 


2708 
2710 
2720 
2730 
2748 
2758 
2768 
2770 
2788 
2738 
28988 
2818 


2828 


SVS glänzt durch schöne Grafik und Joystick-Steuerung 


print s$(pt) 

sys sc,8,17*+pt,wS(Cpt)”[chm 7J”:gosub 

2818 

if pv<S goto 1588 

rem #### 

rem ende 

rem #### 

print "Chome,wht]”:poke v+21,0:if cv= 

5 then 2240 

for j=-1 to 5:if ct(jJ)=1(3j) then 2238 

sys sc,cx(J)+22,cy(j),;:if crlj)-1 

then print wS(j) 

if cr(j)=-1 then print s$(J) 

next :goto 2288 

for j=-1 to 5:if pt(j)=1(3) then 2270 

SyS SC,px(j),py(Cj),;:if r(Cj)=1 then 

print w$(Cj) 

if r(j)=-1 then print s$(j) 

next 

sys sc,5,18,; 

if pv=S then print ”Pech gehabt ! Sie 
verlieren |! 

if cv-5 then print "Hurra ! Sie haben 
gewonnen |! 

print tab(12)"Nochmal (J/N) ? 

get a$:if a$="j" then run 88 

if a$<>”n" then 2320 

print ”"Cclr,asc142,3down, 3rightIdann 
eben nicht !”:end 

sys sc,18,17,”"Ccbm 7J”cs tab(28-len ( 
str$ (ps)))ps:return 

rem HHHHHHHHHHH 

rem comp-taktik 

rem #HHHHHHHHH 

if zt>® then cx=x(zt):cy=-ylzt):zt=-zt-1 

x"Ccx:y"cy:po=-batrx+4@*y:F=Fatrx+t4Q®y 

if peek (po)<>e then x"®:return 

if psek (po-1)"e and Fn t(1) and fn 

£EC1) then x=x+1:return 

if peek (po+1)-e and £n t(2) and fn 

£(2) then x=x+2:return 

if peek (po+t1)-e and peek (po+2)-e and 

En t(3) and £n £(3) then x=x+3:return 
if psek (po+1)=e and fn t(-1) and fn 

£(-1) then x=x-1:return 

if peek (po-1)-e and fn t(-2) and fn 

£(-2) then x=x-2:return 

if peek (po-1)=e and peek (po-2)-=e and 

En t(-3) and Fn fC(-3) then x=x-3: 

return 

if peek (po-4@)=e and En t(4B) and fn 
FC4H8) then y=y+1:return 

if peek (po+4Bß)-e and Ffn t(-40) and fn 
£C-48) then y=-y-1:return 

if peek (po-4B)=e and Fn t(-B9) and fn 

fC-88) then y=y-2:return 

if peek (po+4ß)-=-e and fn t(88) and fn 
FC88) then y=y+2:return 

if peek (po+4Bß)-e and psek Cpo+BB)-e 
and fn t(128) and fn f(128) then y=y+ 
3:return 

if peek (po-4B)=-e and peek (po-BO)-e 

and fn t(-128) and £n FC-128) then y= 
y-3:return 

rr=-int C rnd (ti)*3)-1:if rr=® then 

2708 

rs=-int € rnd (ti)*3)-1:if rs=® then 

2718 

Pp=rs*C-Crr=-1)*39+1) 

pq"41-abs (pp) 

if £fn tCpp) and fn f(pp) then b=pp: 

goto 2788 

if £fn tC-pp) and fn FC-pp) then b=-pp: 

goto 2788 

if £fn tCpg) and fn F(pq?) then b=pg: 

goto 2788 

if £fn t(C-pgq) and fn f(-pg) then b=-pq 

if abs (b)=1 then x=x+b:return 

y-y+b/48: return 

rem z 

n=pt:r=r(n):l1=1l(n):x=px{n):y=py{n):p= 

batx+40*y 

if peek (p+l-(r=--1)*39+1)*])=e then 
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CX=x-(r=1)*l:cy=-y-Cr=--1)*l:gosub 2921 
if peek (p+t(r=--1)*39-1)=-e then cx=x+ 
Cr=1):cy=-y+Cr=-1):gosub 2921 
for i=-® to 1-1 
if r=1 then 2898 
if peek (p+1+40*i)=-e then cox=x+1:cy=y+ 
i:gosub 2921 
if peek (p-1+48*i)-e then cx=x-1:cy=y+ 
i:gosub 2921 
next :x=®:return 
if peek (p+i+40)=-e then cx=x+ti:cy=y+1: 
gosub 2921 
if peek (p+i-48)=e then cx"=x+ti:cy=y-1: 
gosub 23921 
next 
x=-®:return 
zt=-zt+1l:x(zt)=cx:y(zt)=cy:return 
rem #HHHHHHHHHHh 
rem schiffe set/del 
rem #HHHHHH 
£f=-®:if yk<188 then on mo goto 3978 
if £n £fCv+39)=-2® then 1160 
if yk<188 then 3055 
if En y(yk)<>1B then 39208 
for i=1 to S:if fn x(xk)=x(i) and 
r(i)=® then r(Ci)=1:mo=-1:goto 33208 
next 
if En yCyk)<>28 then 32798 
For i=-1 to S:if £n x(xk)=x(Ci) and 
r(i)=-® then r(i)=-1:mo=1:goto 3329 
next :goto 1168 
For i=-1 to S:if peek (4t1S+fn xCxk)+40% 
En y(yk))=4B+i goto 32209 
next :goto 1168 
rem ### set #HH 
if xk>144 then 11608 
For j=® to lCi)-1:po=-ba+tfn x(Cxk)+40*fn 
u(cyk) 
if r(i)=1 then if peek (po+jJ)<>35 then 
1168 
if rCi)=-1 then if psek (po+j*49)<>35 
then 1169 
next :poke 204,1 
pxCi)=En x(xk):pyli)=En ylyk):sys sc, 
px(i),pyli),; 
print ”C[cbm BJ”;:if rCi)=1 then print 
wSCi):goto 31508 
print s$(i) 
sys sc,x(i),18,”Crvs,blk] [Ccbm 7,0ff)” 
:print :print tab(xCi))”[rvs,blk] 

Ccbm 7,0ff] 

For j=-® to 1Ci)-1 

if r(i)=1 then poke 415+49*fn yCyk)+En 
xCxk)+j,4B+i 

if r(i)=-1 then poke 415+49*fn y(yk)+ 
£n x(xk)+j*49,48+i 

next 

poke v+39,1:mo=®:goto 1168 

rem ### del ### 

a=px(i):b=pyli):sys sc,a,b,; 

if rCi)=1 then For j=Bd to 1lCi)-1:print 
”#";:poke 415+a+j+49*b, 32:next 

if rCi)=-1 then For j=-® to 1(i)-1: 
print ”#[Lleft,down]”; :poke 4T5+ta+(b+ 
3)*40,32:next - 

print :r(i)=98:px(i)=-®:pyCi)=9:mo=® 
sys sc,x(i),18,”"Crvs] [off,down)”: 
print tab(x(i))”"[rvs] [off]”:goto 1168 
if En x(xk)<>26 or fn y(Cyk)<>23 then 
mo=-®:goto 1168 

rem ### exit menue ### 

for j=1 to S:if r(j)=® then 1168 

next :poke v+21,8 

for j-1B to 23:poke 781, jJ:sys 53903: 
next :goto 1438 

poke v+39,8:sys sc,fn x(xk),fn y(yk),; 
:poke 204,8 

if C peek Cjp) and 16)=® then 3330 
goto 1168 

rem 

rem ### das war ’s ### 

rem 
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„Othello‘“: 


Wer hat den richtigen Dreh? 


System: C16/116/Plus4 
- Typ: Spiel fl 
Sprache: Basic/ASM 


Je nach Schwierigkeitslevel benö- 
tigt der Commodore 2 bis 45 Se- 
kunden Denkzeit. Die Denkzeit 
des Spielers ist unbegrenzt. Spie- 
len zwei Spieler gegeneinander, 
prüft das Programm jede Eingabe 
auf Korrektheit ab. 

Die Spielregeln: Man setzt einen 
Stein so, daß damit mindestens ein 
gegnerischer Stein zwischen die- 
sem und einem eigenen auf dem 
Brett befindlichen Stein einge- 
schlossen wird. Das gilt sowohl in 
waagrechter und senkrechter, als 
auch in diagonaler Reihe. Alle ein- 
geschlossenen Gegner wechseln 
ihre Farbe und werden somit zu 
eigenen Steinen. Die Eckfelder 
sind strategisch besonders wich- 
tig, da sie ihre Farbe nicht mehr 
wechseln können. Kann ein Spie- 
ler nicht setzen, ist der andere 
Spieler am Zug. Freiwilliger Ver- 
zicht und Rücknahme eines Zuges 
ist nicht erlaubt! Sieger ist, wer 
zum Schluß die meisten Steine sei- 
ner Farbe besitzt. Eine Partie ist 
dann zu Ende, wenn alle 64 Felder 
besetzt sind oder beide Spieler 
keinen gültigen Zug mehr ausfüh- 
ren können. 

Die Eingabe eines Zuges erfolgt 
durch Angabe der Feldnummer, 
ähnlich einem Schachbrett, zum 
Beispiel „D3“ oder „C6". Uner- 
laubte Eingaben lehnt der Com- 
puter ab. Dafür zeigt er nach 
Druck auf die HELP-Taste alle 
derzeit möglichen Felder an. Ein 
vorzeitiger Spielabbruch ist nur 
durch Betätigung der 'F1'-Taste zu 
erreichen, da die RUN/STOP-Ta- 
ste gesperrt ist. 

Diese Version läuft auf allen Com- 
putern der 16er Serie. Die zeitkri- 
üäsche Zugsuche des Computers 
steht am Anfang des Programmes; 
der Aufbau des Spielfeldes und 
die Vorbesetzung der Variablen 
Ende des Programmes. 


Dieses Programm 
simuliert Spielfeld und 
Gegner des gleichna- 
migen Denkspieles. In 


drei Stufen tritt man 
gegen den Computer 
oder einen weiteren 
Spieler an. 


1110 — 1560: Die Variablen wer- 
den durch die DIM-Anweisung in 
der Folge angelegt, die der Häu- 
figkeit ihres Gebrauchs ent- 
spricht. Dadurch wird eine deutli- 
che Beschleunigung des Pro- 
grammablaufs erreicht. Das Array 
„A%(99)" speichert die Belegung 
des Spielbretts und muß als erstes 
Feld dimensioniert sein, da es 
vom Maschinenprogramm nur an 
dieser Stelle gesucht wird. 

1570 — 1600: Es werden aus den 
DATA-Zeilen die Werte für die 
Richtung der Suche nach einem 
Zug und die Zahlen für die Feld- 
bewertung in die Arrays eingele- 
sen. 

1610 — 1670: Das Maschinenpro- 
gramm wird aus den DATAs gele- 
sen und in den Kassettenpuffer 
geschrieben. 

1690 — 1960: Das Spielfeld und die 
Anzeigefelder werden aufgebaut 
und beschriftet. Dann wird die 


Grundstellung eingenommen: Je 2 
Steine in der Mitte, diagonal ver- 
setzt. 

90 — 170: Hier erfolgt die Aus- 
wahl, welcher Spieler am Zug ist 
und die verschiedenen Abfragen, 
ob das Spielende erreicht ist. 

200 — 560: Der Computer errech- 
net sich seinen Zug. In Stufe eins 
reicht dafür der Bereich bis Zeile 
280. Das hier benutzte Programm 
in Maschinencode belegt den Be- 
reich ab $0332. Es benutzt das 
RAM ab $0660 und die Stellen 
$DA bis $DD der Zero Page. Der 
Aufruf SYS CY,E in Zeile 210 ko- 
piert die Werte des Feldes 
„A%(99)" in das RAM ab $0660 
und nimmt den Wert der Varia- 
blen „E" (aktuelle Spieler-Num- 
mer) mit. Der in der FOR/NEXT- 
Schleife enthaltene USR-Aufruf 
übergibt der Variablen „VD“ die 
Anzahl der zu erobernden Steine 
des Feldes „P". Ist das abgefragte 
Feld bereits besetzt oder kann 
nichts „gedreht“ werden, wird 
hier eine Null übergeben. Diese 
Abfrage in Basic zu gestalten wäre 
eine wahre Geduldsprobe. In den 
stärkeren Stufen wird in Zeilen 
350, 440 und 500 mit SYS CD,x der 
gefundene Zug zur Probe gesetzt 
und aus der Sicht des Gegners mit 
dem USR-Befehl beurteilt. Aus 
dem Feld BW(xx) wird der strate- 
gische Wert des Zuges in die Be- 
rechnungen miteinbezogen. In 


a 
} 


So präsentiert sich Othello auf dem Bildschirm 
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Zeile 560 wird mit dem erneuten 
Aufruf von SYS CY,E der alte Zu- 
stand wiederhergestellt. 

590 — 700: Mit einem blinkenden 
Strich-Cursor wird der Spieler zur 
Eingabe aufgefordert. INSTR prüft 
auf gültige Zeichen. Die Koordina- 
ten werden umgesetzt und an den 
folgenden Abschnitt übergeben. 
Mit „HELP“ wird zur Zug-Über- 
sicht verzweigt. Auch der Ab- 
bruch mit „F1“ wird hier erkannt. 


Spiele Listing 


730 — 1000: Das vom Computer 
oder vom Spieler gewählte Feld 
wird hier geprüft, gegebenenfalls 
besetzt und die eingeschlossenen 
Steine „umgedreht“. Nachdem 
der neue Spielstand errechnet 
und angezeigt wurde, erfolgt eine 
Anpassung der. Bewertung für die 
Züge des Computers. 1030 — 
1080: Dieses Unterprogramm te- 
stet ob der Spieler überhaupt set- 
zen kann. Mit „HELP“ aufgerufen, 


teilt es spielbare Felder mit. 

1990 — 2200: Hier werden die Mel- 
dungen und Hinweise erzeugt, die 
im Spielablauf und am Ende ange- 
zeigt werden. Die RUN/STOP-Ta- 
ste wird in Zeile 2090 ignoriert. Für 
den Fall, daß noch Basic-Fehler 
im Programm auftauchen, werden 
diese hier angezeigt, ohne das 
Bild zu zerstören. 


Joachim Rieger iHEEEEEEEEEEEEEEE 


rem Kriens 
rem *othello ci6 * 15.10.86 
cem * Joachim rieger = 
rem * 47908 paderborn = 
rem DEREK TUE 


senelr :trap 2070:gosub 1118 


F=rnd (Bd): f=O 

if e<>cp then F=1:gosub 1038:if £ then 
1208 

sound 1,938,3:char ‚25,e*8, "setzt: 
C7spaces)” 

if e=cp then gosub 208:else gosub 599 
if F then gosub 1399 

if F?>1 then 88 

if Fe=2 then 2100 

if z(CO)-64 then 2110 

if zle)=® or z(g)-® then 2110 
e-3-e:g*3-g:goto 88 


rem computer zieht 

char ‚38,e*8, ”"Cflashon)]![flashoff)”: 
tis=-"000000" 

vp=d:vm=--1000:sys cy,e 

For vs-1 to 608:p-f%(vs) 

vd=-usr (Cp):if vd-n then 282 

if vd=z(g) then vp=-p:vs=-39:goto 280 
vn=vd+bwCp)+rnd C1)*Cs+1) 

if s>1 then gosub 3598: vn=vn-gm 

if vn?>vm then vm=vn:vp=p 

next :if vp=n then is="??":f=-1:goto 
310 

P"vp:x=int (p/10):4y=-p-x*10 

i$-mid$ (p1$,x,1)+mid$ (p2$,y,1) 
char ‚25,e*B,right$ (ti$,2)+” sec 
[2spaces)"+i$ 

if F then return :else 7008 


rem gegenzuege testen 

if z(8)=-4 then return 

sys cd,p:gm=-1228 

for gs=-1 to 69:gp=-F%Cgs) 

gd-usr (gp):if gd=n then 420 

if gd=-zle)+vd+1 then gd=-gd+598 
gd-gd+bw(gp):iF gd>gm then gm=gd: pg=gp 
if vn-gd<vm then gs=39 

next :if s=2 or gm--10088 then 568 


sys cd, pg:em=-1088 

For es=1 to 6B:et-f%les) 

ed-usr (et):if ed=n then 4B® 
ed-ed+tbw(et):if ed>’em then em-ed:eg-et 
next :if em=--10088 then 558 


sys cd,eg:nm=-1988 

For ns=1 to 6B:nt-f%(ns) 

nd=-usr (nt):if nd=n then 549 
nd-nd+bw(nt):if nd>nm then nm=nd 
next 

gm=-gm-(em-nm)*.6G:nm=n 

sys cy,e:return 


rem eingabe 

char ‚33,e*8, "[flashon,cbm @] 
Cflashoff)” 

get i$:x=instr (p1$,i$) 

if x then char ‚33,e*8, i$+"[£flashon, 
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1437 


965 
2031 


3832 


1912 
785 
755 

1164 

1619 

1771 

1467 


2222 


2304 
1775 
221 
29348 
2425 
2494 
1938 
2852 


2735 
2556 
3061 


1179 


12086 
1456 
1845 
1921 
2313 
3429 
1491 
1840 


1457 
1852 
1854 
3151 
1676 


1413 
1765 
2856 
2928 

138 
2418 

808 


1543 


1725 
2748 


cbm @,flashoff]":else 699 

get i$:y=-instr (p2$,i$) 

if i$s=-chr$ (28) then 598 

if x>B then char ‚34,e*8,” ”:else 689 
if x=-3 then 2079 

char ‚8,23,"> ”:gosub 1039 

print ”<”;:goto 598 5 

if y then char ‚34,e*8,i$:else 620 
p"x*1@+y:char ‚25,e*8, "[6spaces)” 

For i=-23 to 24:char ‚Bd,i,chr$& (27)+”q” 
next 


rem zug ausfuehren 

£=-3:if a%Cp) then fF=2:return 
for r=d to 7:np=p:d-n 

For j=-1 to 7:np=np+rx(r) 

if a%Cnp)*n then J-B:goto 788 
if a%(np)=e then d=j-1:3=B 
next j:if d-n then 820 
£E=n:Ffe=n:gosub 969:np=p 

for i=1 to d:p=p+trx(r):gosub 958 
next i:p=np 

next r:if F then return 
z(e)-z(le)+1 


char ‚26,21,"":z(0)-zle)+z(g) 
print using "###";zC1), "C2spaces]:”, 
z(2); 


if e<>cp then 938:rem bewertg.anpassen 
if p=-11 then buwl22)=bw(33):bwll12)- 
bw(13):bw(C21)=bwc13) 

if p-18B then bw(27)=-bw(36):bwl17)- 
bw(16):bw(28)=bw(16) 

if p=-81 then buw(72)=-bw(63):bw(71)- 
bw(83):bw(B2)=bw(83) 

if p=-88 then bw(77)=bw(66):bw(78)- 
bw(86):bwC87)=bw(B6) 

return 


zle)=-zle)+i1:zlg)-zig)-1 

color 1,cCe),iCe) 

px"fn x(p):py=fn y(p):a%(lp)-s 

sound 1,739+e*55,2:sound 1,739+g*S5S,2 
char ‚px,py,a$:char ‚px,py+t1,b$ 

color 1,c(8),1(8):return 


rem noch zug moeglich? 

sys cy,e:for x=18 to 88 step 12:for y= 
1toB 

d-usr (x+y):if d-n then 1089 

if £E then f-8:x=-30:y=-9:goto 1089 
z$-mid$ (pi$,int (x/10),1)+mid$ C(p28$, 
ustar2se 

print z$S;:if pos (d)>36 then print ” 
C4spaces]” 

next :next :return 


rem initialisierung/brett 

color 1,8,2:color 8,18,5:color 4,10,5 
cy-818:cd-339:rem sys-adr 

poke 1281,398:poke 1282,3:rem usr-adr 
dim x,y,P,8,T,gp,gs,gd,gm, J,n,d,s 
dim vs,vn,vd,vm,vp,ed,et,es,em,nd,nt 
dim nd,nt,ns,nm,np,i,px,py,cp,g,f,fe 
def fn x{p)=int (p/10)*2+2 


119 
1208 
1218 


1220 


1238 


12408 


1250 
1260 
1270 
12808 
1290 
1390 
1310 
13208 


1330 


1340 
1350 
1360 


1370 
1388 
1398 


14908 


1410 


1420 
1430 
1440 
1450 


1460 


1470 
1480 


1490 


1508 
1510 
1520 
1530 
15408 
1550 
1560 
1578 
1580 
1598 
1600 
1610 
1620 
1630 
1640 
1658 
1668 
1670 


1698 


17908 
1718 
1720 
1738 
1748 
1758 
1768 
1778 


1788 
1738. 


„Othello“: Basic kombiniert mit Maschinensprache 


def £fn y{p)=(Cp-int Cp/10)*10)*2+3 

dim a3%(993),£%(64),bw(39) 

tS(8)=-"[Bspaces]j.r.[Bspaces)” 

t$c1)="UClshift *JIUCchbm rJII U U 

[shift *JIU U Ulshift *J1I” 

tS(C2)="[shift -,shift-space,shift -] 
[shift -] [shift -,shift-space, 

shift -] [shift -,2spaces,shift -] 
Eshift -] [shift -] [shift -I” 
t$(4)="[Cshift -] [shift -] [shift -] 
Ccbm q,shift *,cbm w]J [cbm q,shift *]J 
Cshift -]J [shift -] [shift -]I 
[shift -3” 

t$(7)="JCshift *JK [cbm e] K J J 
Cshift *JKJ[shift *JJCshift *1J 

[shift *1K” 
tS5C3H)-tSC2):t$05)-t$C2):t$5C06)I-tSC2) 
t$CB)=-"[28chm +2” 

print chr$ (142)+chr$ (8):vol B 

for r=ß to 7:char ‚18,r,t$(r):next 

char ‚8,12,”wie ist dein name” 

input s$(1) 

char ‚B,14, "willst du gegen den” 

char ‚8,15, "computer spielen?[3spaces] 
” 

get i$:if i$<>”)J” and i$<>”n” 
1330 

print i$:if i$="j" then cp-l:else 1428 
char ‚8,16, "welche stufe? (1-3)5” 

get iS:s=val (iS):if s<l1 or s?>3 then 
1360 

print s 

char ‚8,17,”willst du anfangen? ” 

get iS$:if i$<>”)” and i$<>"n" then 
1398 

print i$:if i$="j" then cp-2:else 

s5C2)=-s8(1) 

if cp then sS(cp)="computer[2spaces)"+ 

str$ (s):goto 1440 

char ‚B,20,”name des gegners " 

input s$(2) 

For e"l to 2 

if len (s$Ce))-® then s$Ce)=-"spieler”+ 

str$ (e) 

if len (s$(e))>13 then sSle)-left$ 
(s$Ce),13) 

next 

char ‚8,23, "anzeige der moeglichen 
Felder[2spaces]: [2spaces]help” 

char ‚B®,24,”"spiel vorzeitig abbrechen 
[6spaces]: [3spacesJFf1” 

ESC1)=-"nichts geht!!!” 

£f$(C2)="schon belegt!” 

F$C3)=-"neu eingeben!” 

p1$="abcdefgh*?”:p2$="12345678” 

elB)-2:cl1)=-3:cl2)=-7:c$C1)-"rot” 
1(0)=-1:101)=-4:1(02)-5:c$l2)=-"blau” 

key 1,”*":key B,”?” 

For x"® to 7:read rx(x):next 

for )J=1 to 9:read d,vn 

For e=1 to d:read p:bw(p)=vn® .4®*s 
x=x+1:f%Cx)=p:next :next 

if peek (cy)=32 then 1638 

For x=cy to 985 step 8:p=n 

For y"® to 7:read z$:e=-dec (z$):p-p+e 
poke x+y,e:next 

read r:if p"r then next :goto 1698 

y=C peek (63)+peek (64)*256):poke cy,® 

scnelr :print "data-fehler in”;y:end 


then 


:x=d 


1680 : 


for y=1 to B:a$=-a$+"DO[fcbm yJ”:b$=-b$+” 
Ccbm h] ”:next 

15(0)="[shift -,13spaces,shift -]” 
1$5C1)=”"[cbm aJlCcCcCcCcCCcCcCCEclichm sI” 
1$C2)="[cbm q,13shift *,cbm w)J” 
1$(3)="[Ccbm z,13shift *,cbm x)” 
scnelr :r=-d:for x=1 to 7 step 3 
char ‚18,r,t$(x):r=r+1l:next- 
char ‚2,3, ”"[Lrvs]”+t$(8) 

char ‚2,4,”[rvs,cbm +, 2spaces]a 
ef gh [chm +#,0ff)” 

For y=1 to B 

char ‚2,3+2*y,”[rvs,cbm +] ”+a$+” 
ECEcbm h,cbm +,0ff]” 


bed 


2383 
2138 
1771 
29397 


3376 


23956 


2031 
1898 
2235 
3929 
3182 
2917 
1727 
2676 
1425 
28856 
1676 
1624 
1743 
2736 
1268 
1644 
2773 
2390 


2832 


1848 
2705 
2148 
2214 
1647 
2214 
1382 
2742 


727 
2551 


WE EORBESNF TER TEN 


1820 
1818 


1828 


18328 
18498 
1858 
1868 
1878 
1888 


1830 
1988 
1910 
1920 
19398 
1940 
1950 
1968 
1978 
1980 
1930 
20098 
2210 
20208 
2030 
2040 
2050 
20608 


2078 
2088 


2030 
2100 


2110 
21208 
2130 
2140 
2150 


2160 
2178 


2188 
2190 
22008 
2210 
2220 
22308 
2240 
2250 
2268 
2270 
2288 
2239 
2300 
23108 
2328 
2330 
2340 
2350 
2368 
23708 
2388 
2338 
240808 
2418 
24208 
2430 
2440 
2458 
2469 
2470 
2480 
2498 
2598 
2518 
2528 
2538 
2549 
2558 


char ‚2,4+2*y, "[rvs]”+strS (y) 

char ‚2,4+2*y,"Crvs,cbm +,right]”+b$+” 
[chbm h,cbm +,0ff]J”:next 

char ‚2,21,”[rvs,cbm +] [C16cbm y] 
Ecbm +,0ff]” 

char ‚2,22, ”"[rvs)J”+tS5(8)+"[off]” 

For y=-4 to 21:char ‚24,4,1$(C8):next 

char ‚24,3,15(C1):char ‚24,11,185(2) 
char ‚24,18,1$C2):char ‚24,22,1$(3) 
For y”=i1 to 2:char ‚33,y*8-4,c$(y) 
char ‚25, u*8-2, "Irvs]”+s$(Cy)+"[Loff]”: 

next 

char ‚25,19,”[rvs] punktestand [Loff]” 
char ‚25,28,” rot[4spaces)blau ” 


rem grundstellung 

a$="[rvsJOülchm yJ”:b$="[cbm h)J Loff)” 
e=-2:p=-44:gosub 960: p-55:gosub 968 
e=-1:p=-45:gosub 968:p-54:gasub 960 
g-2:z(e)=-2:z(g)=-2:gosub BS0:return 


rem fehler/ende 

sound 1,169,5:sound 2,378,6 

sound 1,169,3:sound 2,499,3 

char ‚25,B*e+1, "[rvsI”+F$CE)+"Lof£f]” 
if £f=-1 then fe=-fe+l 

for j=-1 to 1808:next j 

char ‚25,8*e+1, "[13spaces)” 

return 


if er=38 then resume :else trap 

if er>® then char ‚d,24,err$ (er)+” 
in”+str$ (el):goto 2120 

char ‚9,24, "Crvslabbruch! Loff]":goto 

2120 

char ‚B,24,”[rvs]keiner kann mehr 
setzen!L[Loff)” 

For i=-1 to 58:sound 3,1023-i,1:next 

s=-1:if z(2)>z(1) then s=2 

if zti)=z(2) then s=d:goto 2170 

color 4,c(s),1l(s) 

char ‚25,s*8B-2, "[£flashon]"”+s$(s)+"” 
Cflashoff)” 

char ‚25,s*B,"hat gewonnen!” 

if s=-® then char ,‚25,23,"Cflashon] 

unentschieden[flashoff)"” 

char ‚25,24, "nochmal?[2spaces]jJ/n” 

get key i$:scnclr :if i$="j" then run 

print chr$& (9):end 


rem 


richtungen 
data:-1,9,190,11,1,-9,-107-11 
rem Feldwerte 


data 4,50,11,18,81,88 
data B,30,13,16,31,38,61,68,83,86 
data 4,20,33,36,63,66 

data 8,16,14,15,41,48,51,58,84,85 
data B,14,34,35,43,46,53,56,64,65 
data 8,10,24,25,42,47,52,57,74,75 
data B,06,23,26,32,37,62,67,73,76 
data 8,00,12,17,21,28,71,78,82,87 
data 4,-6,22,27,72,77 

rem maschinencode 

data 20,de,3d,84,db,a9,020,b1, 
data 2f,c9,c1,d0,07,c8,b1,2f, 
data c9,80,f0,05,a2,12,6c,00, 
data 03,30,ce,a2,63,b1,2f,3d, 
data 60,06,88,88,ca,10,f6,60, 
data 20,71,98,84,dd,85,df,85, 
data da,b9,60,06,d0,33,a9,07, 
data 85,dc,a6,dc,bd,d2,03,85, 
data de,at,dd,a2,00,38,18,65, 
data de,a8,b3,69,06,f0,12,c5, 
data db,F0,04,e8,4c,77,03,Ba, 
data a4,da,d®,23,18,65,df,85, 
data df,c6,dc,19,d5,a5,da,d®, 
data 2b,33,00,a4,df,4c,71,94, 
data 20,de,3d,84,dd,84,da,a5, 
data db,39,60,956,4c,68,03,8a, 
data FQ,df,a4,dd,98,18,65,de, 
data a8,35,db,39,69,96,ca,d®, 
data F3,4c,33,03,39,00,85,da, 
data a9,903,38,e5,db,85,db,50, 
data @1,Ff,0a2,F6,09,F7,0b,F5, 


1933 
10808 
862 

1011 
334 

1139 
s4o 

1274 
1046 
1132 
1231 
1106 
1461 
336 

1273 
795 

1347 
1217 
983 

1124 
1224 


1803 
2738 


4318 


1722 
2502 
2595 
2675 
2449 
2665 


26B4 
1817 


1674 
2238 
23608 
2940 


1839 
1724 
2487 
1625 
1028 
1933 

142 


1228 
3916 


[1127 
3020 


eB24 
1929 
2346 
1175 
2517 


Bus 
3162 


2592 
1903 
306 


2758 


1671 
3196 
1801 
2384 
3271 
3175 
3555 
2954 
1780 


3549 
2556 
2906 
29371 
3020 
3149 
2632 
12123 
2759 
2844 
2768 
2813 
2714 
e572 
3264 
304® 
2330 
2368 
3217 
2341 
3083 
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Spiele Listing 


Entwerfen und Spielen mit 
„Runman Eonstruction Set“ 


System : C64/Laufwerk 
Typ :Spiel 
Sprache: ASM 


Runman Construction Set ist ein 
Geschicklichkeitsspiel für maxi- 
mal 9 Personen. Ziel des Spieles 
ist es, in der kürzesten Zeit alle 
Spielfelder zu durchlaufen und 
dabei möglichst wenig Figuren zu 
verlieren. Flammen und Gespen- 
ster hindern den Spieler daran, 
die notwendigen Punkte einzu- 
sammeln. Da im Spiel ein Editor 
integriert ist, mit dem man eigene 
Spielfelder entwerfen kann, wird 
das Spiel nicht langweilig. Nach 
dem Starten des Spiels werden 
die vorgegebenen Spielfelder in 
einen Zwischenspeicher kopiert. 
Anschließend erscheint das 
Hauptmenü. 

Fl Start 

F3 Editor 

F8 Ende 


Spiele spielend 
selbstgebaut 


Durch Drücken der Taste F] spielt 
man dann das vorgegebene Spiel, 
durch F8 beendet man das Pro- 
gramm. F3 führt zum Editor. Der 
Editor hat einen Speicher von 12 
Spielfeldern. Diese kann man mit 
den Tasten (+/—) umschalten und 
bearbeiten. Das Spielfeld setzt 
sich aus verschiedenen Zeichen 
zusammen. Will man ein Zeichen 
an eine Position setzen, bewegt 
man den Pfeil am Bildschirm mit- 
tels den Cursortasten zu der Stelle 
hin und drückt die entsprechende 
Taste (siehe Tabelle 1.0). Fehler 
werden sofort angezeigt. Erst 
wenn alle Spielfelder fehlerfrei 
sind, gibt „RCS" diese zum Spie- 
len frei. 

Der Editor besitzt eine Funktion, 
um ein Spielfeld in ein anderes zu 
kopieren. Man geht einfach mit 
(+/—) auf das Spielfeld, das ko- 
piert werden soll, und drückt dann 
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Unendlich viele Spiel- 
felder: Der eingebaute 
Editor macht’s mög- 
lich. Selbst ist der Spie- 


ler und wählt, wieviele 
Leitern, Einbahnstra- 
Ben, Geister und Flam- 
men den Schwierig- 
keitsgrad erhöhen. 


gleichzeitig CTRL+C. Wenn der 
Pfeil verschwindet, sucht man sich 
mit (+/—) ein anderes Spielfeld 
aus und drückt dann RETURN, 
oder, wenn man den Modus ver- 
lassen will, RUN/STOP. 

Die Anzahl der Gegner und Punk- 
te ist nicht unbegrenzt. Es muß je- 
weils einer auf dem Bildschirm 
sein. Die maximale Anzahl der 
Gegner liegt bei 7, die der Punkte 
bei 255 innerhalb eines Spielfel- 
des. Auch sind in der obersten 
Spalte nicht alle Zeichen erlaubt, 
die entsprechenden Tasten sind 


Tabelle 1.0 
Taste Zeichen 


1 EEEN Wegstrecke 
ESS Wegende von links 


DEr Wegende von rechts 

Er Sperre 

Bas Anfangszeichen für Tasten 
Gbis] 

GEF Verzweigung zur Leiter 

Here Endzeichen für Tasten G 
bis] : 

ee Verzweigung zur Stange 

IT Wegsperre von rechts 

Rs Punkte 

>23 Schalter fürJund T 

Nee Verzweigung des Leiteren- 

- des 

O©..... Stange 

P.....Ende der Stange 

SEE Spieler - 


DS Er I FU 


gesperrt. Weitere Funktionen: 


CLR Pfeil links oben pla- 
zieren 

SHIFT/CLR Spielfeld im Speicher 
löschen 

CR Pfeil geht eine Spalte 
tiefer 


Es werden immer der aktuelle 
Spielfeldspeicher (Screen), die 
Anzahl der Gegner und Punkte 
angezeigt. Ein Warnsignal ertönt, 
wenn der Pfeil an den Rand stößt, 
Spielfelder kann man auf einem 
Laufwerk abspeichern und laden, 
wobei es hierbei zwei Möglichkei- 
ten gibt. Taste Fl drücken. Nun 
erscheint das Menü. 

Fl Laden 

F3 Speichern 

F5 Directory 

F7 Zurück zum Editor 

Drückt man Fl, wird ein Spielfeld, 
wenn es vorhanden ist, von der 
Diskette geladen. Dazu muß man 
vorher den Filenamen eingeben. 
Abspeichern geschieht analog. 
Mit F5 hat man die Gelegenheit, 
alle Spielfelder, die auf Diskette 


abgespeichert worden sind, hin- 
tereinander anzusehen und in ei- 


nen der 12 Spielfeldspeicher zu 
kopieren. Das geschieht mit Taste 
F3. Hierbei wird das momentan 
sichtbare Spielfeld in den entspre- 
chenden Spielfeldspeicher ko- 
piert; es ertönt ein Signal. Auch 
hier läßt sich der Speicher mit den 
Tasten (+/—) umschalten. Wenn 
man wieder zum Editor will, betä- 
tigt man Taste F7. 


Input-Return-RÜN 
ERARDIREITTEN 


Bevor man sein Spiel beginnt, 
braucht das Programm ein paar 
Werte. Als erstes muß man die 
Anzahl der Spielfelder (maximal 
12), sowie die Anzahl der Leben 
(maximal 9), eingeben. Danach 
werden die Spielfelder geprüft. 
Ist in einem der Spielfelder ein 
Fehler, wird dieser sofort ange- 
zeigt. Als nächstes muß für jedes 


Spielfeld die Geschwindigkeit des 
Spielers und der Gegner eingege- 
ben werden. Anschließend sucht 
man sich die Spielstärke der Geg- 
ner aus. Es gibt Flammen, die 
nach System umherlaufen, und 
Gespenster, die den Spieler auf- 
suchen. Weitere belegte Tasten: 


Eintippen und 


Speichern 
IR 


Fl Rücksprung zur letzten Einstel- 
lung 

F3 Wiederholung der Parameter- 
routine 

F5 Zurück zum Editor 

Ist man damit fertig, beginnt das 
Spiel. 

Zum Schluß muß man die Anzahl 
der Spieler und deren Namen ein- 
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geben. Joystick in Port 2 gesteckt 
und los geht's. Nun muß der Spie- 
ler die Punkte in jedem Spielfeld 
aufsammeln. Hat der Spieler das 
Bild geschafft, ist er wieder dran, 
wenn sämtliche anderen Spieler 
dieses auch geschafft haben oder 
ausgeschieden sind. Kollidiert der 


. Spieler mit einem seiner Gegner, 


so muß er das ganze Bild von vor- 
ne beginnen. Nach Ablauf des 
Spiels erfolgt die Auswertung. 
Hierbei wird dann der Spielstand 
in einer Tabelle ausgegeben. 

Nun kann man entscheiden, ob 
man wieder zum Editor geht (Fl) 
oder ganz von vorne beginnt (F3). 


Eintipphinweise 
ss er 


Aufgrund seiner Größe ist „Run- 
man Construction Set" in 6 Teilen 


19009 
1018 rem 
1020 cem 
1038 rem 
1040 rem 
1050 rem 


by christian drapatz 
programmteil 1 : editor 


1078 


za nn innen nn 


19609; ram rer 


abgedruckt. Alle 6 Programme 
sind einzutippen und abzuspei- 
chern. Danach lädt man den „Star- 
terteil“ und gibt RUN ein. Inner- 
halb der nächsten 11 Minuten 
schreibt sich das Programm als 


komplettes Maschinensprachen- 


file auf Diskette. Dieses Programm 
lädt man mit 'LOAD,name",8' und 
startet es mit RUN. Wichtig !!! Die 
Namen der Unterprogramme 
müssen die Titel der Bildunter- 
schriften tragen. Sollte ein „?File 
not found-Error" erscheinen, wur- 
de ein Teilprogramm .unter fal- 
schem Namen gespeichert. „Run- 
man Construction Set" ist, wie alle 
Programme dieses Heftes, auf ei- 
ner Sammeldiskette erhältlich. 
Die vorgedruckte Zahlkarte befin- 
det sich auf Seite 3, 


Christian Drapatz EuEuEEN 


1080 poke 53280,0:poke 53281,0 


1090 poke 6456,7:a$"=chr$ (34) 
1100 print ”Cclr,7right,Schm +,5spaces, 


cbm +,4spaces,chm +,4spaces,2chm +, 
3spaces,cbm +] 


1110 print ”"C[C7right,cbm +,“4spaces,cbm +, 


Yspaces,cbm +,4spaces,cbm +,4spaces, 
cbm +3 [Ccbm +,2spaces,chbm +) 


1128 print ”[7right,cbm +,4spaces,cbm +, 


Yspaces,cbm +,4spaces,cbm +,“4spaces, 
cbm +,2spaces,cbm +) [cbm +] 


1130 print "[7right,cbm +,4spaces,chm +, 


Yspaces,cbm +,4spaces,cbm +,“4spaces, 
chm +,3spaces,2chm +] 


1148 print ”L7right,Schm +,5spaces,cbm +, 


Yspaces,cbm +,4spaces,cbm +,“4spaces, 
cbm +] 


1150 print "C7right,cbm +] [cbm +,7spaces, 


cbm +,4spaces,cbm +,4spaces,cbm #, 
Yspaces,cbm +] 


1168 print "C7right,cbm +,2spaces,cbm +, 


6spaces,cbm +,4spaces,cbm +,4spaces, 
chm +,4spaces,cbm +] 


1178 print "[7right,cbm +,3spaces,cbm +, 


Sspaces,chm +,4spaces,cbm +,4spaces, 
cbm +,4spaces,cbm +] 


1188 print "[7right,cbm +,4spaces,cbm +, 


Sspaces,“4cbm +,5spaces,cbm +,4spaces, 
cbm +] 


1198 print "Cdown,13rightJp resent 
1288 print ”L[Ldown, 6Gright, redJrunman 


construction set v2.®. 


1218 print ”[yel, 2down,3right}*** please 


wait For 11 minutes "*** 


1228 sp(®)=-3276B:sp(1)-36864 
1230 a(®)-3162:3(01)-3938B 
1248 n=® 

1258 a=® 

1268 read da:poke sp(n)+a,da 
1278 
1288 n=n+1 

12880 iF n=1 then 1258 


1[3downJ" 
1318 print ”"Cdown3runlBup] 
1328 poke 631,13:poke 632,13 


if a<>a(ln) then ara+l:goto 12560 


1308 print "[2down,bikJload”a$”rcs b”a$”,8, 


en 1330 poke 1S8,2:end 1140 
2.0 1340 : 
: 1350 data 15,128,9,128,195,194,205,56,48, 7075 
55 104,168,104,170,104,64,165,2,240,5,141 
1360 data 4,128,76, 225,252, 142,22,208,32, 7603 
163,253,32,80,253,32,21,253,32,31,255 
ce 1370 data 88,76,0,144,147,17,17,29,144,71, 7725 
69,66,59,78,32,83,73,69,32,68,73,69 
1436 1380 data 32,65,78,30,65,72,76,32,68,69,82, 7760 
1862 32,83,80,73,69,76,69,82,32,69,73,78 
3045 1390 data SB,255,13,13,29,144,83,73,78,68, 8081 
32,83,73,69,32,68,65,77,73,84,32,69 
1400 data 73,78,86,569,82,83,84,65,78,68,69, 7251 
2801 78,32 ,40,74,47,78,41,32,63,255,13 
1410 data 13,29,29,29,29,29,29,29,29,31,1, 73828 
46,32,78,65,77,569,32,58,45,46,46,46 
@868 1420 data 46,46,46,46,46,46,45,45,48,46,46, 7939 
46, 157,157, 157,157,157,157,157,157 
1430 data 157,157,157,157,157,157,157,157, 8391 
2747 255,145,145,255,8,147,144,29,29,29 
1440 data 29,29,29,29,29,29,239,29,29,32,32, 7346 
32 ,32,82,22,85,32,78,32,32,32,32,32 
2363 1450 data 32,13,13,13,29,29,29,29,29,29,23, 7305 
29,29,29,29,29,239,29,29,80,82,69,83 
1460 data 59,78,84,13,13,13,29,29,29,23,28, 7752 
2625 29,82,85,78,77,65,78,32,67,79, 78,83 
1470 data 84,82,85,57,84,73,79,78,32,83,69, 7198 
B4,32,86,50,46,48,13,13,13,13,13,13 
2677 1480 data 13,13,13,13,13,13,13,13,13,13,13, 7435 
13,67,72,46,68,82,55,80,65,84,99,44 
1490 data 66,69,82,76,73,78,69,82,83,84,82, 7414 
era 46,49,52,55,44,52,51,48,48,32,69,83 
1500 data 83,59,78,32,49,255,145, 145,145, s421 
145,145 ,145,145,145, 145,145, 145,145 
3088 151® data 145,145,145,28,13,29,29,29,23,29, 7489 
29,29,29,29,29,29,29,29,29,29,45,45 
1520 data 32,77,69,78,85,69,32,45,45,13,13, 7378 
2328 13,29,29,29,29,29,29,29,29,29,29,29 
4414 1530 data 29,29,29,29,29,70,49,32,83,84,65, 7144 
82,84,13,13,29,29,29,29,29,29,29,23 
3537 1540 data 29,29,29,29,29,29,29,29,70,51,32, 7708 
69,58,73,84,73,82,13,13,29,29,23,29 
2673 1558 data 29,29,29,29,29,29,29,29,29,29,29, . 7071 
1658 23,70,56,32,69,78,68,63,144,13,13 
371 1560 data 13,29,29,29,29,40,58,82,85,69,67, 7105 
358 75,59,32,68,73,563,32,69,78,84,83,80 
1592 1570 data 82,69,57,72,69,78,568,69,32,84,65, 7478 
2485 83,84,69,41,255,214,157,255,19,17 
340 1580 data 17,17,17,17,17,17,17,17,17,17,17, 8183 
1136 17,17,17,17,17,17,17,17,17,17,29,29 
2515 1598 data 29,29,29,29,29,29,28,83,73,78,68, 7278 
32,83,73,693,32,83,73,67,78,69,82,32 
1486 1609 data 40,74,47,78,41,32,53,255,147,29, 7624 
2193 29,29,29,29,29,29,23,144,82,85,78,77 


ee 


Sonderheft un 89 


1629 


1638 


1648 


1658 


1660 


1678 


1688 


1698 


1708 


1718 


17208 


1738 


1740 


1750 


1768 


1779 


1788 


17398 
1809 
1810 
1820 
1830 
1840 
1850 
18608 
1878 
1888 
18998 
199808 
1310 
1920 
1930 
1940 
1950 
1968 
1970 
19808 
1990 
20028 


2010 


2020 


data 65,78,32,67,79,78,83,84,82,85,657, 
84,73,79,78,32,83,69,84,32,13,13,29 
data 29,29,29,29,29,29,29,29,29,29,23, 
29,29,69,32,68,32,73,32,84,32,79,32 
data 82,13, 215, 215,215, 215,215,215, 
215,215,215,215, 215,215, 215,215,215, 
215 

data 215,215, 215,215, 215,215, 215,215, 
215,215,215, 215, 215,215, 215, 215,215 
data 215,215, 215,215, 215,215, 215,17, 
12517317,47.,17.,17,17.17.,17,172.17,17 
data 17,17,17,13,215, 215,215, 215,215, 
215,215, 215,215, 215,215, 215, 215,215 
data 215,215, 215,215, 215,215, 215,215, 
215,215, 215,215, 215 215, 215, 215,215 
data 215,215, 215,215, 215,215, 215,215, 
215,80,85,78,75,84,69,32,58,29,29,29 
data 29,29,29,29,71,69,71,78,69,82,38, 
58,32,29,29,29,29,29,83,67,82,69,53 
data 78,32,58,13,13,29,29,40,70,49,61, 
68,73,83,75,32,32,70,51,61,80,65,82 
data 65,77,69,84,69,82,32,32,70,55,61, 
82,69,83,84,65,82,84,41,255,147,17 
data 29,29,29,29,29,144,68,73,83,75, 
45,79,80,69,82,65,84,65,84,73,793,78 
data 13,13,13,29,29,29,70,493,32,76,685, 
68,63,78,13,13,29,29,29,70,51,32,83 
data 80,69,73,57,72,59,8, 78,13,13,28, 
29,23,70,53,32,68,73,82,69,57, 84,73 
data B2,89,13,13,28, 29,29,70,55,32,38, 
85,82,85,69,67,75,32,30,85,77,32,69 
data 68,73,84,79,82,255. 147,17,17,28, 
29,144,70,73,76,69,78,65,77.69.58.48 
data 45,45,48,48, 46,46,46 4646,46, us, 
46,46,46,45,157,157.157, 157,157,157 
data 157.157,157, 157, 157,157, 157,157, 
157,157,255,13,13,13.13,29,29,255,19 
data 29,29,29,29,29,29,29,32, 32,32,32, 
32,32,32,144,68,73,82,59,57,84,73 
data 82,89,32,32,32,32,32,32, geiz233: 
13,13,70,73,76,59,78,65,77,69,58,32 
data 32,32,32,32,32,38, 32,32,32,32,32, 
32,32,32,32,17,17,17,17,17, 17 ,17,17 
data 17,17,17,17,17, 17,17,17,17,13, 13, 
13,13,23,40,70,49,61,87, 69,73,84,683 
data 82,32,32,78,51, 61,85,59,56,59,B2, 
78,69,72,77,69,78,32,32,70,55,61,69 
data 68,73,84,79,B2,41, 19,255.19.17, 
17,29,29,29,29,29,29,29,28, 23,32,32 
data 32,32,32,32,32,32,32, 32.30,3258, 
32,32,32,157,157,157,157,157.157,187 
data 157,157.157, 157, 157. 157,157,157, 
157,255,19,13,29,29,29,29,23.23,23 
data 29.23.23,28.28. 29,29,23,80,65,82, 
65,77,69,84,69,82,13,13,29,71,59,66 
data 69,78,32,83,73,69,32,66,73,84,84, 
69,32,68,73,69,32,65,78,90,55,72,76 
data 32,68,69,82,32,83,80,73,69,76,45, 
13,29,70,69,76,68,69,82,32,49,77,65 
data 88,45,32,49,50,32,83,67,82,88, 83, 
78,83,41,32,69,73,78,13,13,29,65,78 
data 90,55,72,76,32,58,255. 19,17,17, 
17,17,17,17,17,17,17,17,29.87.73.69 
data 86,73,69,76,32, 76,69,66,69, 78,32, 
87,79,76,756,69,78,32,83,73, 69,32,73 
data 77,32,83,80, 73,69,76,13,29, 72,65, 
66,569,78,32,63,13,13,29,76,69, 66,69 
data 78,32,58,255. 19,13,29,83,67,82, 
69,69, 78,32,58,48.48.13.13.32.65.78 
data 90,65,72,76,32, 58,59,82,32,80,85, 
78,75,84,69,32,58,48,48,48,13,23,28 
data 29,29,29,29,29,29,29,29,28, 23,71, 
69,71,78,69,82,32,58,32,32,48,13,13 


data 28, 71, 63, 83, 67, 72, 87, 73, 78, 58, EEE 


71,75,69,73,84,13,29,40,83,67,72,78 
data 69,76,76,32,49,46,46,46,46,57,32, 
76,65,78,71,83,65,77,41,13,13,29,83 
data 80, 73, 63, 76; 59, 82, 32, 58, ass, 23; 
e9,71, 69, 7, 78, 69, 82, 32, 32, 58, 255, 13 
data 13, 32, 71, 63, 83,84, 55, 72, 76, 84, 325 
68,65, 82, 32, 71, 53, 71, 78, 63, 82, 13, 29 
data yo, 71, 81, 2 63, 83, 80, 63, 78, 83,84, 
32,32,70, E38, 78, Er 65,77, 77 ‚69, 41, 13 
data BER, 13,32,48,46, 32, 71,63,71,78, 
69,82, 32, SB, 255, 147, 17, 17, 17, 17, 17, 17 
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Er 


20308 
2040 
2050 
20608 
2079 
2080 
2050 
2100 
2118 
21208 
2130 
2140 
2158 
2160 
2170 
2188 
2138 
2298 
2218 
222B 
22308 
2240 
2250 


2260 
2270 
2288 
22328 
2308 
2318 
2320 
2330 
2348 
2358 
23698 
2370 
2388 
2338 
2400 
2410 
2420 
2438 


2440 


Aata 17,17,17,17,17,17,17,17.17517,17, 
17,17,17,17,17,17,17,17,29,29,40,70 
data 49,51,90,85,82,85,69,67,75,32,38, 
70,51,61,80,65,82,65,77,69,84,69,82 
data 32,32,70,53,61,69,68,73,84,79,882, 
41,255,157,32,157,255,70,76,65,77 
data 77,59,255,71,69,83,80,69,78,83, 
84,255,19,29,29,29,29,29,29,29,29,29 
data 29,29,29,29,29,29,29,5,78,65,77, 
69,32,32,58,255,19,29,29,29,29,29,29 
data 29,29,29,29,29,29,29,29,29,29,17, 
5,80,85,78,75,84,69,58,32,32,32,32 
data 48,48,255,19,29,29,29,29,29,29, 
29,29,29,29,29,29,29,29,29,29,17,29 
data 29,29,29,29,29,29, 255, 147,17,17, 
272.12,12,32,37,17:17,17.17 17,28, 08 
data 29,29,29,29,29,29,29,29,29,29,5, 
71,32,65,32,77,32,69,32,32,32,79,32 
data 86,32,59,32,82,255.5,77,65, 6778, 
32,68,73,57,72,32,66,69,82,69, 73,84 
data 44,255,5,58,55,83,32,97,65,B2, 32, 
87,79,72,75,32,78,73,67,72,84,83,44 
data 255.13.13.29.29.28. 5,65,56,69,82, 
32,68,85,32,72,65,83,84.32,74,65,32 
data 78,79,57,72,32,48,32, 77,65,59,78, 
78,67,72,69,78,32,33,255 13, 13,29 
data 23,29,29,29, 5,68,55,77,73,84, 38, 
83,67,72,69,73,58,59,83,B4,32,68,85 
data 32,74,59,84,30,84,32, 65,85,83,32, 
33,33,255,147,17.17.17.17.17.17.17 
data 17,17,17,17,17,17,5,29,29,66,B2, 
65,856,79,44,68,65,83,32,66,73,76,58 
data 32,72,55,83,84,32,58,85,32,71,69, 
83,67,72,55,70,70,84,32,33,33,33,255 
data 19,17,17,17,17,17,17,17,17,17,17, 
175175171 WEAFA217:.17.17217,.17 
data 17,29,23,29,258,29,29,29,29,29,28, 
40,32,58,52,85,53,57,75,569,32,70,63 
data 85,59,82,75,78,73,89,70,32,41, 
255,19,17,17.17.17.17,17,17.17.,17,17 
data 17,17,17,17,17,17,17,17,17,17,17, 
17,17,29,29,29,29,23,29,29,29,29,23 
data 29,29,29,29,28,25,28, 29,29,29,29, 
29,29,29,5,58,82.85.59.67,75.69,32 
data 39,83.84.73.88.39.157,157, 157, 
157,157, 157, 157,157.157,157,157,157, 
157 

data 157,17,70,85,59,82,32,83,69,76, 
66,83,84,77,79,82,68,255,147,29,29,29 
data 29,29,29,29,29,29,23,28. 23,29,23, 
29,158,17,17,65,85,83,87,63, 82,84 
data 85,78,71,285,19,17,17, 1717,17, 
17,17,17,17,17,17,17.17.17.17,17.17 
data 17,17,17,17,17,17,17,28, 29,23,29, 
158,40,70,49,51,59,58,73,84,73,Be 
data 32,70,51,61,82, 69,83, 84,55, 82,84, 
32,70,53,61,59,78,68,69,41, 255,1,6 
data 12,18,24,35,85, 49,58,49,51,32,48, 
48,32,49,56,32,48,49,66, 45 ,80,32,49 
data 51,32,48,48,48, 2,34,65,98,130, 
162,194,226,32,32,32,32,32,32,32,32,32 
data 32,32,32,32,32,32, 32,160,32.32. 
32,32,32,32,32,32,32,32,32, 32,38,32 
data 32,160,32.32.32.32. 32,32,30,32, 
32,32,32,32,32,32.32,160,32,32,32,32 
data 32,32,32,32,32,32, S2,32,32,32,32, 
160,32,32,32,32, 32,32 ,38,,32,32,38 
data 32,32,32,32,32,160, ae, 30.38, 32, 
32,32,32,32,32,32,32,32. 32.32.32. 160 
data 32,32,32,32,32,32 32,38, 32,32,38, 
32,32,32,32,160,32,32,32 ,32,32,3e 
data 32,32,32,32,32,32,32,3e, 32,160, 
32,32,32,32,32,32,32,32, 38,32, 32,38 
data 32,32,32,32,38, 160,32.32.32.38, 
32,32,32,32,32,32,32,32,32. 32,32, 3e 
data 32,32,160.44.83, 44,0,104, 136,120, 
136,136,136,152,136,168,136, 184,136 
data 200,136,215,135,232, 136,258, 136, 
0,176,168,178,80,181.248. 183. 160. 186 
data 72,189,240,191,1s2,134, 64,197, 
232,199, 144,202,56,205,10,28,20,18.14 
data 21,26,29,33,34,37,.42.39.38. 41,62, 
22,60,65,56,67,68,69,70,71,72,73,74 
data 75,76,78,79,80,81, 84,32,0,4.40,4, 
89,4,120,4,160,4.200,4.2u0, 4,24,5 


7988 
7744 
7765 
7397 
7455 
7161 
7zı21 
7522 
7329 
7849 
7615 
7743 
7592 
8025 
7636 
78356 
7783 
81456 
7655 
7353 
7928 
7383 
8129 


7866 
7028 
7766 
7359 
7134 
6923 
7213 
7227 
7035 
7137 
7350 
7227 
7104 
7203 
7317 
7755 
6177 
7653 


7196 


2458 


2468 


E47 


2480 


2498 


2588 


2518 


2529 


25308 


2540 


2558 


25560 


2578 


2580 


2590 


2698 


2619 


2629 


2630 


2640 


2650 


2669 


2670 


2680 


2690 


2700 


2719 


2720 


2730 


2740 


2750 


2760 


2778 


2780 


2730 


2800 


2818 


2B20 


2830 


2849 


2859 


data 54,5,104,5,144,5,184,5,224,5,8,86, 
48,6,88,56,128,6,168,6,208,5,248,5 
data 32,7,72,7,112,7,152,7,192,7,32, 
65,67,69,75,76,79,81,0,66,68,7®,74,78 
data B0,84,0,71,73,0,71,72,73,0,67,68, 
32,69,75,76,78,79,80,81,87,0,148,137 
data 157,137,157,137,148,137,148, 137, 
165,137,168,137,157,137,168,137,157 
data 137,148,137,148,137,148, 137,157, 
137,148,137,157,137,148,137,148,137 
data 148,137,157,137,174,137,1702,137, 
20,38,1,2,4,8,16,32,64,128,44, 128,87 
data 128,128,128,181,128,184,128,78, 
129,242,129,245,129,45,130,25,131, 124 
data 131,172,131,200,129,179,131,46, 
132,91,132,199,132,8,133,127,133,139 
data 133,187,133,201,133,11,134,15, 
134,22,134,31,134,57,134,90,134,116, 
134 

data 160,134,179,134,201,134,242,134, 
26,135,80,135,137,135,231,135,5,136 
data 201,129,0,0,0,0,0,0,0,0,0,0,0,0, 
0,1,1,3,3,7,7,15,15,31,31,63,12,6,6 
data 6,6,56,6,5,6,6,5,5,5,5,4,4,4,4,4, 
4,4,4,9,8,7,6,5,5,5,5,4,4,4,4,4,5,5 
data 5,6,4,5,5,7,7,56,7,40,25,43,22,20, 
21,31,40,50,30,21,49,197,206, 206,206 
data 206,206, 206,206,197,212,206,206, 
206 , 206 ,206,206,197,212,206,206, 206 
data 206,206, 206,197,212,212,206,206, 
206,206, 206,197 ,212,212,206, 206,206 
data 206,206,197,212,212,212,206,206, 
206, 206,197, 212, 212,212,206,206,206 
data 296,197, 212,212,212,212,206,206, 
206,197 212 ,212,212,212,206, 206,206 
data 197, 212,212,212,212,212,206,206, 
197 212,212, 212,212, 212,206, 206,197 
data 212,212, 212,212,212,212,206,206, 
207,208,209,210,227,228,229,230,214 
data 215,216,217,0,207,208,209,210, 
206 , 228,229, 230, 230,215,216,217,217, 
199 

data 200,194,205,198, 197,203, 204,201, 
192,193, 195,196, 243, 244 , 245, 246, 247 
data 0,200,199,198,198,200,194,205, 
205,205,194,194,194,196, 244, 245,246, 
247 

data 243,198,197,195,133,192,205,194, 
201,203,204,199,200,196,0,195,195,193 
data 192,195,197,193, 205,205, 205,194, 
194,194,198,197,201,204,203,194,20S 
data 192,193,195,199,200,196,0,205, 
205,204 ,203,201,197,204, 194,194, 194, 
205 

data 205,205, 248,249,250,197,194,126, 
125,0,0,0,0,123,119,0,0,119,0,0,0,0 
data 123,0,0,0,0,0,0,123,119,119,123, 
126,125,0,0,123,119,0,0,123,119,0,0 
data 123,123,0,0,0,0,0,0,0,0,0,0,0,0, 
0,123,126,119,0,0,0,0,0,0,123,119,® 
data 0,0,0,0,0,0,0,0,0,0,0,0,0,115, 
119,20,36,52,68,84,10®0,116,132,30,68 
data 30,120,150,180,210,240,3,12,8,4, 
0,12,15,12,14,4,0,0,0,13,2,12,0,0,8 
data B,56,142,60,142,64,142,6B,142,7e, 
142,76, 142,80,142,84,142,27,51,77 
data 102,126,153,178,205,255,211,218, 
212,219, 213, 220,0,218,211,219,212,220 
data 213,211,212,213, 218,219, 220,221, 
223,224 ,0,221,221,221,221,221,221,223 
data P24,223,211,212,213,218,219,220, 
P22 ‚BES, 226,0 ,Pr2 ‚2n2 ‚222,222 ,2e2,ee2 
data 225,226 225,223, 224,221,0,221, 
221 ‚212,205 226, 222,0,222,222,212,48 
data 140,52,140,41,140,45,148,22,140, 
32,140,3,140,13,148,246,139,253,139 
data 238,138,252,138,73,139,87,139,46, 
139,60,139,9,139,28,139,32,21,155 
data 32,195,154,169,0,141,100,149,133, 
2,141,21,208,169,4,32,10,150,32,216 
data 150,169,5,32,10,150,32,233,15®, 
201 ,140,208,3,76,130,144,201,134,208 
data 3,76,150,144,2®1,133,208,235,32, 
246,150,169,0,32,10,150,32,211,150 
data 32,233,150,201,1490,240,188,201, 


6756 


8156 


27418 


96856 
7432 
8462 
7632 
8306 


7455 


7571 
7263 
8117 
7367 
7336 
7520 
7404 
7588 
7514 
7678 
6036 


7664 
6974 


7363 
78608 


7218 


7583 
7713 
6365 
6304 
Ssı1e 
7056 
7280 
7367 
7425 
7ı82 
7213 
7420 
6644 
7178 
7231 


6441 


ie sense ee 


2BEB 
2870 
2888 
2838 
2300 
2318 
23208 
2938 
2340 
2950 
2960 
2370 
2980 
29908 
3090 
3010 
3020 
30308 
3940 
3050 
3060 
3070 
3080 
3030 
31008 
3110 
3120 
3130 
3149 
3150 
3160 
3178 
3180 
3198 
32098 
3219 
3220 


3238 


3242 
3258 
3260 
3270 


49,144, 245,291,58,176, 241,32, 210,255 
data 162,48,142,139,128,56,233,49, 141, 
31,140,169,255,141,32,148,238,32,140 
data 238,139,128,169,2,32,10,150,32, 
74,158,173,32,140,205,31,140, 144, 234 
data 169,1,32,10,150,32,59,159,144, 
182,76,0,160,163,7,32,10,150,32,59,15® 
data 176,3,76,6,144,169,255,133,2,76, 
226,252 ,162,0,142,104,140,142,112,149 
data 142,3,142,232,142,113,149,32,246, 
150,169,8,32,10,150,169,0,32,255, 150 
data 169,1,141,102,140,169,4,141,103, 
1490,32,179,154,32,108,152,32,40,152 
data 169,1,141,21,208,173,141,2,166, 
197 ,41,1,208,13,224,7,240,35,224,2,240 
data 19,32,127,145,208,11,224,7,240, 
16,224,2,208,243,32,0,145,76,144,145 
data 32,38,145,76,144,145,32,77,145, 
76,144,145,32,99,145,76,144,145,173 
data 102,149,201,1,240,115,201,30,240, 
15,173,0,208,56,233,8,141,0,208,206 
data 102,140,76,127,145,173,16,208,41, 
254,141,16,208,169,248, 208,235,173 
data 102,140,205,229,137,176,76,201, 
29,240,15,173,0,208,24,105,8,141,0,208 
data 238,102,140,76,127,145,173,16, 
208,9,1,141,16,208,169,1,208,235,173 
data 103,140,201,4,240,38,173,1,208, 
56,233,8,141,1,208,206,103,140,76,127 
data 145,173,103,140, 205,228, 137,240, 
15,173,1,208,24,105,8,141,1,208,238 
data 103,140, 76,127,145,169,17,141,4, 
212,173,3,142,74,176,10,169,250,32 
data 218,150,169,16,141,4,212,96,166, 
197,173,141,2,201,4,208,14, 224,22, 208 
data 3,76,45,146,224,20,208,3,76,41, 
146,138,162,0,221,62,137,208,3,76,153 
data 146,232,224,18,144,243,201,3,208, 
3,76,9,144,201,51,208,37,173,141,2 
data 201,1,208,14,169,1,32,255,150,32, 
27,152,32,40,152,76,202,144,169,1 

data 141,1902,140,169,4,141,103,140,32, 
179,154, 76,202,144,201,40,208,14,32 
data 194,147,169,0,32,255,150,32,108, 
152,76,202,144,201,43,208,6,32,242 
data 147,76,238,145,201,4,208,3,76,31, 
148,201,5,208,3,76,74,155,201,1,208 
data 17,162,1,142,102,140,202,142,16, 
208,169,24,141,0,208,32,99,145,76,202 
data 144,169,128,48,2,165,0,133,2,169, 
0,141,21,208,173,104,149,141, 204,142 
data 165,197,201,49,240,14,201,43,240, 
23,201,1,240,31,201,63,208, 238,249 
data 47,32,194,147,169,0,32,255,150, 
32,108,152,169,248,32,218,150,76,60 
data 146,32,242,147,76,83,146,173,204, 
142 ,32,122,152,165,167,133,179,165 
data 168,133,180,169,130,32,255,150, 
32,108,152,169,1,141,21,208,76, 202,144 
data 104, 72,201,65,240,4,201,78,208,3, 
76,15,147,173,103,140,208,11,189,80 
data 137,72,173,103,140,201,4,240,227, 
10,170,189,38,137,133,171,133,177 
data 189,399,137,133,172,24,105,212, 
133,178,32,119,152,165,167,24,101,171 
data 133,167,165,168,101,172,133,168, 
165,167,56,233,160,133,167,165,168 
data 233,4,133,168,172,102,140,104,72, 
201,69,240,54,201,75,240,18,201,81 
data 240,114,208,79,104,145,167,145, 
171,169,8,145,177,76,202,144,177,171 
data 201,75,240,22,201,69,208,3,32, 


127,147,201,81,208,5,169,2,141,106, 140 


data 32,149,147,76,135,152,104,76,0202, 
144,177,171,201,69,240,246,201,75 
data 208,3,32,168,147,201,81,208,5, 
169,0,141,106,140,173,107,140,201,7, 
176 

data 223,32,114,147,76,135, 152,177, 
171,201,69,240,15,201,75,240,17,201,81 
data 208,239,169,0,141,106,140,249, 
232,32,127,147,76,51,147,32,168, 147,76 
data 135,152,173,106,140,208,179,238, 
106,140,177,171,201,69,208,3,32,107 
data 147,201,75,208,3,32,168,147,76, 


7149 


7664 
6933 
7173 
6746 
6724 
7534 
6681 
7177 
6735 
7232 
7152 
7146 
6735 
7718 
6973 
7575 
7438 
7097 
6509 
7117 
7337 
7299 
7256 
6811 
7462 
6836 
7981 
7599 
7047 
7056 
7273 
7728 
7217 
7543 
6993 
7302 


BOHE 


7387 
7474 
7852 
7265 


Sonderheft um 91 


32808 


3238 


3308 
' 3310 
3320 
3330 
3340 


335® 
3368 
3370 


3388 
3398 
34008 
3410 
3420 
3430 
3440 
3450 
3469 
3479 
3480 
3490 
3508 
3510 
3520 
3538 
3540 
3559 
3560 
3578 
3588 
3590 
3698 
3610 
3628 
3630 
3648 
3650 
3668 
3678 


Spiele Listing 


135,152,238,107,140,169,1,24,109,111 
data 149,141,111,140,96, 206,107, 140, 
173,111,148,56,?733,1,141,111,149,96 
data 238,1985,140,16?,2,189,108,140, 
201,9,240,7,24,105,1,157,108,140,56, 
163 

data 0,157,108,140,202,16,234,96,2086, 
105,140,162,2,189,108,140,249,7,56 
data 233,1,157,108,140,96,169,3,157, 
108,140,202,16,236,36,173,104,149,201 
data 11,144,13,162,0,142,104,140,142, 
112,140,232,142,113,140,96, 238,104 
data 140,162,1,189,112,140,201,9,24®, 
7,24,105,1,157,112,140,96,169,9,157 
data 112,149,202,16,234,96,173,104, 
149,208,16,169,11,141,104,1490 162,1, 
1492 

data 112,140,232,142,113,140,208,22, 
206,104,140,248,162,1,189,112,140,56 
data 233,1,157,112,140,41,249,240,3, 
202,16,240,216,36,169,9,32,19,150,169 
data 12,32,10,150,169,0,141,21,208, 
133,198,32,233,150,201,136,208,3,76, 
168 

data 144,201,134,240,38,201,135,240, 
48,201,133,208,234,169,0,32,141,152 
data 162,2,32,198,255,169,8,32,88,148, 
76,168,144,32,255,150,32,204,255,163 
data 2,32,195,255,96,169,128,32,1u1, 
152,162,2,32,201,255,169,16, 208,224 
data 169,8,32,10,150,169,13,32,10,15, 
162,255, 232,189,72,136,157,117,140 
dAta 224,22,144,245,169,15,162,8,168, 
32,186,255,169,0,32,189,255,32, 1392 
data 255,169,13,162,8,168,32,186,255, 
169,1,162,71,160,136,32,189,255 32 
data 192,255.169.0,141, 115,140,169,32, 
32,255,150,162,15,32,201,255, 162 ‚255 
data 232,189,117,140.32,210, 2s5,224, 
13,144, 245,32,204,255,32, 224,152 162 
data 13,32.198, 255, 32,207, 255, 141,141, 
140,32,207,255,141,142, 140,174, 115 
data 140,189,36,136,224, 4,144, 18,224, 
7,240,7,56,233,100,162,49.208.9,55 
data 233,200,162,50, 208,2,162.48,142, 
138,140,32,23,153,142,139. 149. 141,140 
data 140,32,204, 255,162,15,32.201.255, 
162,255,232,189,131,140.32.210,255 
data 224,9, 144,245, 32,204, 255,169,253, 
141,93,148,162,13,32, 198,255 ,32,207 
data 255,41,3,201.1, 240,6,32,204,255, 
76,202,149,162,0,238,33. 140,32,207 
data 255,201,160.240. 8,157,248,136, 
232,224,18,144,238,169.0, 157, 248,136 
data 32,204,253,169,14.32, 19,150,162, 
255,232,189,250,136,240,7,32,210,255 
data 224,16. 144 ‚243,169,0,141,114,140, 
32,167,152,162,2,32,138, 255 169,64 
data 32,88,148.32,27, 152, 169,4,32,3, 
152,32,40,152,163.0,141 101, 140 ,32,233 
data 150,201,133, 240,54. ‚201.134. 240, 
24,201,136, 240,84, 201 ,43,208,5, 32,194 
data 147,76,133,149,201, 45, 208,227,32, 
242,147,76,133,149,173,101.140.48 
data 216,159,17,141,4, 212,169, 128,141, 
101,140, 32,255,150,169, 16.141 .4,21e 
data 76,141,149,169,0,141. 101,140,173, 


-115,149,201,7, 176, 6, 238, 211g; 140, 76 


data 224, 148, 173, a 140, 2yQ, 19,373% 
142,140, 32, e3, 153, 142, 123; 140, 3335 138 
data 140, 76, 173, 148, 168, 13, 32,3355255, 
169,15, 32, 135, 255, 76, 168, 144, 120, 141 
data 20, #,340,21,3,96; 169, 16,76, 10, 
158,18, 170, 188, 238, 137, #33: 173, 189,233 
data 137, 133, 174, 160, 255, 200, 177, 173, 
201,255,24B2, 6, 32,219,255,76, 24, 150 
data s6,32, 253, 133, 140, 18, 208, 173, 17, 
208,41,127,141,17,208, 188, 129,141,26 
data 208, 88, 36,30, 233, 158,201,74, 240, 
6,201,78, zes, 245, 24 ‚96,56,36, 173, 92 
data 148, 10, 170, 189,18, 137, 133, 173, 


-189,19, 137, 133, 180, 168, ®, 141, 53, 140, 32 


data 211, 150, 32, 228, 255, j41, 34, 140, 
201,13, 240, g2, 201, 13, ‚240, 76 ‚eei, 28,248 


92 QUD Sonderheft 


6386 


6383 


6864 
6972 
6164 
6583 


7341 


6465 
7303 
6355 


6002 
7677 
7134 
7845 
7145 
8083 
7667 
6745 
7559 
6822 
6301 
7355 
7873 
7466 
7081 
7324 
7463 
5877 
6736 
7683 
7369 
7165 
7008 
7586 
7647 
8183 
6834 
7425 
7072 


6245 


3668 
3638 
3708 
3718 
3728 
3730 
3740 
3750 
3768 
3770 
3788 
3738 
3800 
381® 
39208 
3838 
3840 
3850 
38608 


3870 
3880 
3898 
3900 
3919 
33208 
39308 
3949 
3358 
3360 
393798 
3980 
3338 
4000 
49218 
49208 
4030 


4040 


4058 
40608 
4970 


4988 


data 298,201,31,144,234,201,37,176,230, 
32,210,255,172,93,148, 145,179. 238 
data 33,140,172,93,140,192,16.208, 208, 
135,16,36,173,93,140 240,204 ‚206,93 
data 140,169,46,32,210,255,168, 157,38, 
218,255,168,157,32,210,255. 208. 181 
data 172,33,140.240,179,138, 169, 46,32, 
210,255,177,179,9,128, 145,179, 96,169 
data 3,32,10,150,173, 92,140,201,9, 240, 
4,169,2,208,2,169,10.32. 18,150,76 
data 83.150. 169,6. 76,10,150, 169,170, 
162,8,160,0,32,219, 255,32 ‚222,255 ‚201 
data ®,208,249,96,169,0,133, 198,168, 
197,201 ,54, 240. 250,76. 228 255,169 1 
data 141,32,208,141,33,208,36. 141. 34, 
148,32,115,152,169,160,162,4,133,169 
data 134,178,169,160,162, 216. 133,177, 
134,178,162,0,173,94,140.208.3,76,211 
data 151,281,255,208.39,177,159, 201, 
74,240,15,201,84,240,15.201.76,240, 15 
data 281,77,240,15,78, 219, 151,169, 84, 
208,10,163,74,208,5,169,77,200,2,169° 
data 76,145, 163,208, 235,201,129, 208,3, 
76,36,153,281,130,208,19,177,167,78 
data 177,179,145,167, 145. 169,104, 166, 
2,48,2,145,179,76,215,151,74, 176.44 
data 74,175,48,74. 176,62,74,176,88,74, 
176,25, 74,176,16,74,1756,5,177,169 
data 145,167,208.88.32, 207 ,255,145, 
169,208,77,163,32,145, 169, 208,75,177 
data 167,32,218,255, 208,58,169,32, 145, 
167,145, 159,208,50,177,169.201.81 
data 240,4,201,58, 208,4,169,32. 145, 
169, 208,44, 177,157, 201,59, 240, 13,201 
data 75,240 14 201. 81,208,30, 238.106, 
140,208,25,32,114, 147,208, 20, 32,148 
data 147,208,15,22,207 ‚255, 145,157, 
208,8,177,167, 145,169, 169,8,145,177, 
165 

data 170,201,7,208,5,165,169, 201,70, 
240,54,23@, 167 208.2,230. 168, 230,169 
data 208,2.220. 178,230, 177 208,2. 230, 
178,173,34,14@,281.130. 208,6,230.179 
data 208,2. 23@,188,76,21,151,141,94, 
140,169,168,162,4,133.167,133, 169,134 
data 168,134,17@,78,21, 151, 162,255, 
169,0,232,157,105,140,224,5,208, 248,36 
data 162,2,189,108,14@,41.15, 157,108, 
140,24,185,48,157,120,7,169,0,157, 120 
data 213,202,18,234,173,111,140,41,15, 
141,111,149,24,185,48,141,135,7,169 
data 0,141,135,219,162,1,189,112,140, 
41,15,157,112,140,24,105,48,157, 149 
data 7,169,0,157,148. 219,202, 16,234, 
96, 32,27,182,169.4,32,255, 150, 76,40 
data 152,173. 10%. 14@,10,170,189,38, 
137,133, 167,189,39, 137, 133,168,96,32 
data 48,152,76,231.146.141. 114,140, 
169,10,32,10,150,163,9.141.9e, 140,32 
data 74,150,172,33, 148. 136,177,179,41, 
127,145,179,173,114, 140,240, 4,168 
data 87,208.2,169,82,141 17. 137,162, 
255,178,93,140,136,200, 232,189, 14,137 
data 153,250, 136,224,3. 208,244,200, 
140,93,14@,169,2,162.8.168.32 ‚186,255 
data 173,93,140,162,250,160,136,32, 
189, 255,32,192,255,169,9,133,144 168 
data 11,32,10,150,169,8,32,180,255, 
169,111,32,150,255,32,165, 255, 201,48 
data 240,25,32,165,255,32,210,255, 201, 
13,208, 246,32,171,255,169,200,32,218 
data 150,104,104,32,91,148,76. 1568, 144, 
76,171,255,162,48,56,233,10,144,3 
data 232,176,248,105.58,96, 177,168, 
141,4, 142,201, 32,208, 2,169.65,32,57, 
154 

data 32,73,154,32,41,154,144,45,104, 
104,104,194,169,8,32,10,150,169,0,32 
data 255,150,32,122,145,173,17,208,9, 
16,141,17,208,169,38,141,229,137,173 
data 3,142,41,254,141,3,142,76,191, 
144,162,42,208,24,32,77,154,173,4,142 
data 291,59,248,1?,201,75,240,239,201, 
76,240, 234,201,81,208,21,162,40,32 


6736 
5311 
7666 
7305 
6318 
6754 
5340 
7187 
8126 
5325 
7634 
6167 
Be21 
7837 
7678 
7570 
zı11 
6721 
8020 


7628 
7392 
7074 
7781 
6942 
8751 
6971 
7274 
7160 
6535 
6863 
6770 
6348 
7088 
7158B 
7177 
7255 
7852 


6314 
7021 
6847 


6876 


Spiele Listing 


42398 


data 62,154,32,81,154,32,41,154,176,5, 4499 data 295,157,140,176,3,76,136,1S5,76, 
32,85,154,208,171,32,85,154,173,4 50,144,141,4,142,163,32,32,210,255 


4100 data 142,201,69,249,38,201,81,240,34, 55883 4598 data 162,9,142,8,142,169,157,32,210, 7904 
173,102,149,201,39,144,21,169,0,141 255,32,211,150,32,233,150,201,135,208 

411® data 16,208,163,16,141,0,208,163,®, 7213 4510 data 5,104,104,76,150,144,201,134,208, 7041 
141,102,149,32,99,145,76,219,151,32,38 5,104,104,76,74,155,201,133,208,3 

4128 data 145,76,219,151,173,193,140,10,19, 7224 4520 data 76,27,157,201,48,144,224,201,58, 6556 
10,24,105,48,56,32,131,154,169,16 176,220,32,210,255,174,8,142,157,5 

4138 data 141,116,140,173,102,14@,201,38, 312 4530 data 14?,160,0,173,4,142,240,32,174,8, 6473 
176,37,10,10,18,24,189,118,149,24,32 142,224,1,208,20,32,12,157,240,12 

414® data 131,154,173,4,142,201,81,240,3, 7230 4540 data 2901,2,176,38,169,10,141,7,142, 6887 
238,97,140,238,98,140,76,157,153,173 200,208,18,200,208,5,238,8,142, 228,163 

4150 data 98,149,9,128,141,38,140,48,243, 7003 4SS® data 32,12,157,240,25,169,0,141,7,142, 6783 
56,233,30,72,173,4,142,201,81,208,4 32,12,157,24,1809,7,142,201,13,176 

4158 data 162,0,240,3,174,97,140,183,230, 6543 4560 data 1,96,169,22,32,10,150,76,134,156, 7e3® 
137,141,99,140,174,104,140,189, 247,141 192,1,240,244,76,134,156,185,5,142 

4170 data 13,99,149,157,247,141,169,0,141, 6614 4570 data S6,233,48,96,32,10,150,169,0,76, 7299 
116,14@,104,16,175,160,255,208,177 126,156,194,104,173,104,140,208,3,76 

4180 data 175,240,7,205,143,140, 208, 246,24, 6928 4580 data 74,155,206,104,140,173,20,133, 6678 
96,56,96,56,233,65,18,179,183, 184 201,48,208,8,141,19,133,169,58,141,20 

4190 data 137,133,175,189,185,137,133,176, 8252 4530 data 133,206,20,133,76,280,155,169,21, 565607 

96,169,1,208,29,169,1,208,6,169,40 76,10,150,173,17,208,41,239,141,17 

4200 data 208,21,169,4@,141,144,140,165, 7523 4608 data 208,162,1,142,21,208,142,113,140, 6838 
169,56, 237,144,140,133,169,165,170,233 202,142,112,149,142,104,140,138,202 

4210 data 0,133,170,208,17,141,144,140,165, 7402 4610 data 232,157,247,141,224,12,144,248, 6805 
169,24,109,144,149,133,169,165,170 173,3,142,9,1,141,3,142, 238,229, 137 

4220 data 105,0,133,170,1560,0,177,169,141, 716% 4620 data 169,0,32/255,150,162,8,142,102, 6519 
143,140,96,72,8,173,104,140,10,10,10 140, 142,98,140,232,142,97,140,169,4 ' 

4230 data 10,141,138,140,173,4,142,201,81, 6702 4630 data 141,103,140,169,16,32,179,154, 7509 
208,4,169,0,2490,4,173,397,140,10,24 169,129,32,255,150,173,98,1140,201,129 

4240 data 109,138,140,141,138,140,40,144,3, 7518 4649 data 144,44,32,214,147,173,104, 140, 6514 
238,138,140,174,138,140,104,157,55 205,157,140,208,206,169,0,141,104, 140 

4250 data 141,96,169,24,141,0,208,169,0, 7308 4650 data 141,21,208,173,3,142,41,254,141, 7281 
141,16,208,169,88,141,1,208,96,169,15 3,142,296,229,137,169,147,32,210,255 

4260 data 141,24,212,169,9,141,5,212,141,1, 6551 4660 data 173,17,208,9,16,141,17,208,936,76, 7297 
212,169, 200,141,0,212,169,16,141,4 58,153,173,25,208,141,25,208,41,1 

4270 data 212,234, 234,234, 234,234,169,25, 7411 4670 data 208,3,76,89,158,174,18,208,173, 7318 
141,24,208,173,22,208,9,16,141,22,208 93,140,74,74,74,74,144,10,224,9, 144 

4280 data 162,1,142,28,208,202,142,21,208, 7594 4680 data 3,76,80,159,76,89,158, 224,222, 7295 
142,37,208,162,13,142,35,208,232,142 144,3,76,197,158,224,68,144,3,76,255 

4290 data 32,208,142,33,208,142,39,208,232, 7272 4690 data 158,169,68,141,18,208,169,6,141, 6626 
142,34,208,169,54,133,1,169,202,141 33,208,141,32,2908,169,9,162,2,160,1 

4300 data 248,7,96,32,195,154,169,0,162,80, 7502 4700 data 32,112,158,173,11,221,160,3,162, 6902 
133,167,134,168,169,0,162,176,133 255,136, 232,224,2,240,68,224,5,240 

431® data 169,134,170,162,32,160,0,177,167, 7816 4710 data 64,224,56,240,11,32,171,158,74,74, 7324 
145,169,200,208,249,230,168, 230,170 74,74,32,99,158,232,32,171,158,41 

432® data 202,208,242,162,255,232,189,72, 7592 4720 data 15,32,399,158, 224,6, 208, 219,162, 6669 
138,157,145,149,224,165,208,245,76,66 2e55,160,0,232,192,15,176,15,189,185 

4330 data 157,169,0,162,255,232,157,145, 7486 4730 data 139,153,0,208,200,169,49,153,0, 6236 
149,224,12,144,248,141,21,208,169,48 208,200, 208,236,169,127,141,21,208,169 

4340 data 141,19,133,141,20,133,32,61,157, 7386 4740 data 0,141,16,208,76,126,234,169,241, 7270 
169,15,32,10,150,169,1,32,126,156, 141 157,248,7,208,176,141,95,140,169, 231 

4350 data 157,140,169,16,32,19,157,162,255, 7332 4750 data 24,109,35,140,157,248,7,36,141, 6532 
232,157,158,140,224,8,144,248,169 37,208,142,38,208,192,128,176,7,152 

4360 data 249,32,218,150,32,66,157,173,20, 7082 4760 data 160,1,162,255,48,18,174,111,140, 7260 
133,201,57,144,10,169,47,141,29,133 189,145,140,141,99,140,169,1,141,39 

4378 data 169,49,141,19,133,238,20,133,32, 7177 4770 data 208,160,0,162,0,232,192,1,240,11, 6832 
27,152,169,4,32,255,159,173,187,14® 78,99,140,144,4,169,3,208,2,169,7 

4380 data 174,104,149,157,191,140,173,1085, 7633 4788 data 157,39,208,224,8,144,233,956,173, 7576 
140,157,203,140,162,255,232,189,108 93,148,10,10,18,144,7,173,219,142,192 

4390 data 140,24,105,48,224,3,176,5,157,43, 7347 4790 data 0,2408,10,185,8,221,192,0,208,3, 6551 
133,208, 249,141,69,133,32,61,157,173 141,219,142,96,169,0,141,18,208,169 

4490 data 17,208,9,16,141,17,208,169,17,32, 7875 4800 data 6,141,33,208,141,32,208,169,10, 6624 
19,157,174,194,140,157,167,140,169 162,0,160,7,32,112,158,173,108,140,141 

4410 data 18,32,19,157,174,104,140,157,179, 7565 4810 data 21,208,162,255,160,0,232,189,193, 6976 
140,169,19,32,19,158,169,48,141,189 139,153,0,208,208,169,231,153,0,208 

4420 data 133,169,0,141,143,140,238,189, E46B 4820 data 290,169,242,157,248,7,224,7,144, 7959 
133,169,28,32,10,150,32,211,159,32,233 233,76,84,158,169,222,141,18,208,169 - 

4430 data 159,201,134,208,3,76,165,156,281, 7268 4830 data 14,141,33,208,169,6,141,32,208, 6403 
135,208,3,76,156,156,201,133,208,3 169,19,162,0,160,128,32,112,158,169 

4440 data 76,29,157,201,70,249,32,201,71, 6435 4848 data 255,162,255,232,200,189,161,142, 7385 

i 208,224,174,143,140,189,230,137,141 157,9,208,232,189,161,142,157,0,208 

4450 data 144,1490,174,104,140,189,145,148, 6794 4858 data 185,178,142,153,248,7,192,7,144, 8154 
13,144,140,157,145,140,169,24,72,160 231,173,177,142,141,16,208,162,1,173 

4468 data 212,208,5,169,23,72,160,206,173, 7063 4866 data 33,140,74,74,74,176,5,32,135,234, .7570 
104,140,10,19,10,141,129,149,174,143 174,96,140,142,21,288,76,89,158,169 

4470 data 140,232,138,24,109,129,140,170, 7905 4870 data 0,141,18,208,169,0,141,32,208, 5455 
152,157,215,140,104,32,19,150,238,143 141,33,208,141,21,208,76,123,234 


4480 data 140,173,143,148,205,107,140,176, 7778 
3,76,248,155,238,104,140,173,104,14® 


> 


RUNMAN Construction Set": Starterteil 


Sonderhett UM 93. - 


TE TE 4 7 


Spiele Listing 


runman construction set v2.®8 


by christian drapatz ’86 


a-d:a$=chr& (34) 

print ”[elr,cyn,2down,1®rightI**= 
please wait *=#” 

read da:poke 48960+a,da 

if a<3744 then a=sa+l:goto 1108 

print "[2down,blkJload"”a$"rcs c"a$”,8, 
1[3down]” 

print ”[downJrun£l8up] 

poke 631,13:poke 632,13 

poke 198,2:end 


data 32,1,172,169,196,162,157,160,0, 
32,38,150,169,0,141,184,140,141,32,140 
data 162,255,142,28,208,232,157,65, 
142,224,129,208,248,169,0,141,141, 140 
data 162,255, 232,157,131,140,224,8, 
144,248,173,14,221,9,128,141,14,221, 
162 

data 255,232,189,131,140,201,1,240,5, 
169,0,157,131,140,224,8,144, 239,174 
data 104,140,189,167,140,141,100,140, 
189,179,140,141,102,140,160,255,189 
data 191,140,201,7,240,7,170,232,189, 
230,137,168,136,140,96,140,169,23,32 
data 6,172,169,29,32,173,171,32,249, 
171,169,3,32,103,169,120,173,17,208 
data 41,239,141,17,208,174,92,140,173, 
104,140,157,186,142,189,158, 149,201 
data 6,144,2,169,6,170,189, 230,137, 
168,136, 140,108,140,173,104,140,10.10 
data 10,10,170,160,0,188,55. 141,153, 
161,142,232,200, 192,16, 144,244 174.104 
data 140,189,247, 141,141, 177 ,142,169, 
0,170,157,197, 142,232, 224,8,144 248 
data 174,104,140, 189, 203,140, 141,107, 
140,138,10,10,10,170.160'0, 140, 207 
data 142,132,171. 189, 215,140,153,178, 
142,169,123,153,9, 142,232, 200,192,8 
data 144,239,169,255, 141,111,140,238, 
111,140,32,85,166,138, 174,104, 140,221 
data 191, 140, 208,241 ,32,68, 229,169, 25, 
32,173,171,169,26,32.10. 150, 32.86 
data 165,162, 255, 232,224,8,176.4, 169, 
2,208,2,169,5,157,17.14e. 224 15,144 
data 238,169,0, 141,93, 140, 32.255, 150, 
169,2,32,255,150,173,17,208,9, 16.141 
data 17,208,169,35, 32,10,150,160.0,32, 
41,150,162,1,160,34,24,32,240,255 
data 169,30,32,210, 255,174,104,140, 
232,138,32,15,172,169,47,32, 210,255, 
173 

data 157,140,32,15,172,32,120,165,173, 
30,208,74,176,250,169,0,141, 30,208 
data 173,30,208,74, 176,38,32,173, 165, 
32,144,170,173,107. 140. 240,91,169,6 
data 141,105,140, 206,105,140,169 1, 32, 
163, 165,173,105,140, 208,243, 165,203 
data 201,63,240.3,78, 115,161,169, 125, 
141,9,142,169, 243,32. 158.164, 174,92 
data 140,222,158, 140,189. 158, 140,170, 
24,105,48,141,228,134, 138, 208,12. 169" 
data 32,32,213,161 ‚238,141, 140,169,1, 
208,43,169,31,32,213,161,76, 254,161 
data 72,169,20,32,8, 172,169,30,32,173, 
171,104, 76,241,171,169,125,141.3, 142 
data 169,196,32,158,184,32.1, 172.169, 
33,32,241,171,169,128,174,92.148.157 
data 131,140,169,255, 141, 142,140,238, 
142,140, 173,142,140, 205,91 ‚140,240 
data 2,176,37,173,32, 140, 205,31 140, 
144,5,169, 255, 141.92. 140, 238,392,140 
data 173,141,148,208. 91,140,240.2,176, 
43,174,92,140,189,131, 140, 208,203 
data 75,109,180, 238,104, 140,173, 104, 
140,205,157,140,176,21,169,255,141,92 
data 140,238,32. 140. 174,92,140.189. 


O4 GXUM Sonderheft 
$ BE EN ESSEN SF Zar 


131, 1428, 242,2,16,243,76,56,160,32,1, 
172 

datz 159,=8,32,241,171,169,%40,141,26, 
203,153,=3,152,234,32,253,149,88,169 
data 35,32,18,158,169,1,141,134,2,169, 
0,152,255,232,157,108,140,224,8,208 
data 245, 155,255, 141,32,140,169,1,141, 
223, 142,238,=2,148,169,255,141,193 
data 149,238,183,140,174,103,140,189, 
108, 140,=3,15,173,288,142, 208,79, 183 
data 185, 1#>,285,187,140,240,12, 176, 
693,173,1@3,148,285,51,140, 144, 222,176 
data 123,188,158,1“8,205,118, 140,240, 
4,175,35,1@@ 234,32,42,163,162,3,200 
data 200,200 155, 125,142 ,221,119,140, 
240,4, 144,215, 175,27,1356,202,16, 240 
data 32,42, 183 182,2,200,200,185,3, 
142,221, 108, 148 248,4, 144,6,176,191 
data 135,292,15,2=8, 174,103, 140,142, 
117,148, 189, 155,192, 141,107,140,189 
data 158,1%@,1%1,118,148,162,0,142, 
208, 142,32,=2, 183,185, 125,142,157,119 
data 140,232, 220, 224,4, 208, 244,32 40, 
163,162,0, 185,52, 1=2, 157,104, 140, 200 
data 232,224 3,208, 244,2498,130,173, 
193,148,1®,18, 158,58, 174,117,140,169 
data 128,157,1@88,1“®8,172,32,140,138, 
153,94, 142,28%,51, 148, 176,8,76,133,162 
data 285,142, 14@ 15,29,169,7,24,109, 
91,140,141,142, 142 ,281,7,208,3,206, 142 
data 148,173,31,14®,178,24,105,49,141, 
146,140, 142, 14= 149, 159,54, 140,141 
data 143,140, 22,245,153,173,146, 140, 
32,210,255,189,=5,32,210,255, 32,11, 164 
data 32,255,163,32,15,164,169,255, 32, 
163,165,169,255,32,153, 165, 206, 142 
data 140,206,145,1@9@,225,144, 140,174, 
144,140, 240,153, 16,281,238,142, 140 
data 169,37,32,1@,158,169,1,141,134,2, 
169, 255,141, 183,148, 162, 70,202,208 
data 253,2@6,183,1%42,208,29, 169,255, 
141,103, 14®,173,1>#,2,201,1,240,4,169 
data 1,208,2,185,@8,1#1,134,2,160,3,32, 
248,163,32,255, 153, 165,203, 201,4, 240 
data 13,201,5,>42,15,281,5,208,203, 
133,2,76,225,252, 32,155, 154,76,150, 144 
data 76,0,14#,158,8,174,142,140,24,76, 
240,255,173,143,148,32,158,171,76 
data 179,171,32.11,184.169.32, 76,210, 
255,160,21,32,=48 183,174 ‚143, 140,254 
data 186,142, 18 iBs,142,32, 23,153, 
168,138, 32 ,21@,255, 152,32 ‚210,255 .32 
data 11.16%4,174 183,148, 189,158, 140, 
32,152,164,32,11,164,173,143, 140,10 
data 10,168 ,2@@,22e,22e, i62,255,1386, 
232, 224,2,24@, 71 224,5 ,240,57,224,6° 
data 248,11,195,59, 142, 74,74,74,74,302, 
152,164, 232,185,85,142,41,15,32,152 
data 164, 224,5,208,215,32,11,164,173, 
143,149,1®,1@,168,162,8,185,125, 142 
data 72,200,232,224,4,208,246,168,0, 
104,32,152, 164,232, 224,4, 208,247,169 
data 48,32.21@.255.75, 210,255,169,58B, 
32,210,255,2@8.173.24.185.48, 76,210 
data 255,1%1,178,142,32, 114,170.173, 
167,14@,141,129,14@, 163.4, 141 157,140 
data 169,7,32,5@,188, 174,1@4,140,189, 
145,140,141,1@5,14®, 162,0 ,232,78. 105 
data 142,175,4,169,227,208, 2,169,214, 
157,178,142,236,191, 140, 144,236 163 


® data 255,141,111,1498,238,111,140,173, 


111,140, 248,43,173,93, 140, 74, 74,74 
data 176,25,32,170,169,174,191,140, 
189,178,142,281,217,240,4,201,230,208 
data 8,169,2,32,598,169,76,211,164,173, 
111,148,2@5,191,140, 240,202, 208,205 
data 169,4,32,249,167,169,45, 32,163, 
165,174, 162,142,173,93,140, 74,74, 74 
data 144,15,224,200,144,231,173,129, 
140,141,167,148,1569,7,76,103,169, 224 
data 202,144,165,176,239,173,92,140, 
18,10,172,36,32,53,165,160,8,254, 125 
data 142,189,125,142,291,10,208,11, 
169,0,157,125,142,232,200,132,4,208, 
235 
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data 169,27,32,10,150,169,1,141,134,2, 
32,53,165,232,232,232,160,0,189,125 
data 142,24,105,48,32,210,255,292,200, 
192,4,144,241,96,173,15,221,41,127 
data 141,15,221,32,53,165,169,8,141, 
11,221,189,91,142,141,10,221,189,90 
data 142,141,9,221,189,89,142,141,8, 
221,173,93,140,41,223,141,93,140,96 
data 170,1560,0,200,208,253, 202,208, 
250,96, 169,0,141,111,140,206,100,140 
data 208,74,174,104,149,189,167,140, 
141,100,140,173,9,142,201,111,240,12 
data 165,171,240,8,198,171,173,9,14e, 
76,221,165,169,3,133,171,173,0,220 
data 141,9,142,201,126,240,43,201,125, 
240,42,201,123,240,41,201,119,240 
data 40,201,111,240,39,169,0,141,101, 
140,173,178, 142,201,196, 144,5,201,201 
data 176,5,396,169,194,208,2,169,205, 
141,178,142,96,76,117,167,76,192,167 
data 76,15,168,76,139,168,76,7,169, 
174,111,140,173,177,142,74,202,16,252 
data 169,0,42,96,173,111,14®,10,170, 
189,161,142,96,169,1,141,112,140,173 
data 111,140,10,10,24,109,112,140,168, 
96,174,111,140,189,230,137,141,112 
data 140,173,177,142,77,112,140,141, 
177,142,96,32,27,166,141,112,149,32 
data 41,166,56,233,16,141,113,140,173, 
112,140,233,0,141,112,140,160,2,173 
data 112,149,74,141,112,140,173,113, 
140,106,141,113,140,136,16,239,173,113 
data 140,174,111,140,157,73,142,173, 
111,140,10,178,232,183,161,142,56,233 
data 48,74,74,74,174,111,140,157,81, 
142,160,0,140,112,140,174,111,140,183 
data 81,142,170,232,138,10,170,189,38, 
137,133,167,189,39,137,133,168,174 
data 111,140,189,73,142,168,177,167, 
72,32,55,166,104,153,33,142,174,111 
data 140,956,201,32,208,4,169,0,240,7, 
56,233,565,170,189,201,139,174,111,14® 
data 157,65,142,36,174,111,140,183,3, 
192,2@1,126,240,24,201,125,240,18,201 
data 123,240, 36,201,119,32,14,167,56, 
254,81, 142,32,34,167,222,81,142,56 
data 222,81,142,32,34,167,254,81,142, 
36,254, 73,142 ,32,34,157, 222,73, 142 
data 96,222,73,142,32,34,167,254,73, 
142,96,160,1,76,159,166,174,111,140 
data 189,9,142,168,189,17,142,201,2, 
208,16,189,25,142,201,5,208,34,32,85 
data 166,32,204,166,76,226,166,182, 
123,240,13,201,6,208,5,169,254, 157,17 
data 142,189,65,142,96,201,0,208,248, 
169,8,208,241,192,126,240,11,201,1 
data 208,236,169,3,157,25,142,208,2283, 
201,7,208, 225,169, 255,208,243,32,39 
data 167,174,111,140,189,65,142, 74, 
144,62,32,253,168,32,50,166,185,33, 142 
data 201,65,240,8,201,71,240,4,201,78, 
208,41,173,111,140,10,170,232,189 
data 161,142,56,233,2,157,161,142,174, 
111,140, 254, 25,142, 254,25, 142,174 
data 111,140, 208,9,173,93,140,10,176, 
3,32,77,170,32,129,169,96,32,39,167 
data 174,111,140,189,65,142, 74,74, 144, 
242,32,253,168,32,50,166,185,33,142 
data 201,565, 240,20,201,71,240,16,201, 
73,240,12,201,79,240,8,201,80,240,4 
data 201,78,208,209,169,2,141,112,140, 
173,111,140,10,170,232,189, 161,142 
data 24,109,112,140,157,161,142,174, 
111,140, 222,25, 142, 222,25,142,76,174 
data 167,32,39,167,174,111,140,189,17, 
142,201,2,208,22,189,65,142,74, 74 
data 74,144,102,32,50,166,185,33,142, 
201 ,84,240,92,201,67,240,88,174,111 
data 140,208,37,169,0,32,52,166,185, 
33,142,201,74,240,22,170,173,93,140 
data 74,144,4, 224,84,240,11,169,1,32, 
103,169,32,253,168,76,32,1568,32,2,169 
data 32,27,166,240,12,32,41,166, 201,0, 
240,2,176,3,32,66,166,32,41,166,56 
data 233,2,157,161,142,174,111,140, 


er 


222,17,142,222,17,142,174,111,140,208 
data 3,32,36,170,32,123,163,96,32,39, 
167,174,111,140,189,17,142,201,2,208 
data 23,189,65,142,74,74,74, 74,144, 
233,32,50,166,185,33,142,201,74,240, 
223 

data 201,68,240,219,174,111,149,208, 
37,169,0,32,52,166,185,33,142,201,84 
data 240,22,170,173,93,140,74,144 4, 
224,74,240,11,169,1,32,103,169,32,253 
data 168,76,217,168,32,2,169,32,27, 
166,208,10,32,41,166, 201,254, 208,3,32 
data 66,166,32,41,166,24,105,2,157, 
161,142,174,111,140, 254,17, 142 ‚254,17 
data 142,76,127,168,169,0,76,103,16589, 
169,0,76,90,169,173,1®1,140,208,38 
data 32,36,169,201,76,240,4,201,77, 
208,27,169,255,32,255,150,169,1,141, 
101 

data 140,76,12,170,174,111,140, 222,81, 
142,160,3,32,159,166,254,81,142,96 
data 32,36,169,201,75,208,31,173,81, 
142,10,170,189,38,137,133,167,189,39 
data 137,133,168,172,73,142,169,32, 
145,167,206,107,140,32,53,170,32,60, 
165 i 

data 96,32,116,169,173,93,140,13,112, 
149,141,93,140,96,32,116,169, 173,93 
data 140,45,113,149,141,93,140,36,170, 
189,230,137,141,112,149, 73,255, 141 
data 113,140,36,174,111,140,240,40, 
172,104,140,185,145,140,202,61,230,137 
data 240,24,150,255,32,203,172,74,176, 
10,74,176,8,74,176,6,74,176,4,200 - 
data 200,200,200,200,16,23,160,20,16, 
23,32,51,169,160,5,173,9,142,281,123 
data 240,5,201,119,240,2,200,200,200, 
152,10,18,168,185,55,'1149,133,167,185 
data 56,140,133,168,185,57,140,133, 
169,185,58,149,133,179,174,111,149,208 
data 25,173,9,142,201,125,208,18,173, 
178,142,201,198,?@8,11,173,33, 142 ,201 
data 73,208,4,159,196,208,17,1692,255, 
174,111,140,200,177,167,240,1@,221 
data 178,142, 208, 246,177,169,157,178, 
142,36,169,8,141,4,212,169,199,141 
data 0,212,141,1,212,169,6,141,5,21e, 
169,129,141,4,212,96,169,8,141,4,212 
data 169,28,141,0,212,141,1,212,169,2, 
208,230,169,8,141,11,212,169,20,141 
data 7,212,141,8,212,169,96,141,12, 
212,169,17,141,4,212,96,169,8,141,4, 
2ı2 

data 173,33,142,201,73,240,12,201,79, 
240,8,201,80,240,4,169,24,208,138,169 
data 33,141,0,212,141,1,212,169,22, 
208,170,396,169,5,32,30,169,32,53,165 
data 173,11,221,173,10,221,157,91,14e, 
173,9,221,157,390,142,173,8,221,157 
data 89,142,96,206,102,140,240,1,96, 
174,104,149,189,179,148,141,102,140 
data 174,104,140,189,145,140,141,105, 
140,238,111,140,78,105,140,144,3,76 
data 240,172,32,39,167,174,111,149, 
189,9,142,168,192,125,176,69,189,17, 
ıy2 

data 201,2,208,15,192,123,240,50,38, 
73,171,185,108,139,32,95,171,176,95 
data 174,111,140,189,9,142,74, 144,18, 
74,144,21,74,144,6,32,217,168,76,141 
data 171,32,92,168,76,141,171,32,150, 
167,76,141,171,32,238,167,76,141,171 
data 32,73,171,185,107,139,16,204,189, 
25,142,201,5,208,202,192,126,240,8 
data 32,73,171,185,106,139,16,6,32,73, 
171,185,105,139,32,95,171,144,179 
data 174,111,140,189,9,142,201,126, 
240,4,169,126,208,18,169,125,208,14, 
174 

data 111,140,189,9,142,240,4,169,123, 
208,2,169,119,32,88,171,16,142,169 
data ®,32,52,166,185,33,142,56,233,65, 
18,10,168,36,174,111,148,157,9,142 
data 96,32,88,171,32,226,166,32,50, 
166,174,111,140,189,9,142, 201, 125,144. 


Sonderheft Gum 95 


1908 
1018 
19020 
1838 
1040 
1858 
1060 


19078 
1082 
1839 


1108 


data 26,185,33,142,201,65,240,18,201, 
71,240,14,168,189,3,142,291,125,208 
data 4,192,78,240,2,56,36,24,96,173, 
111,148,174,194,148,221,191,140, 240 


data 244,76,168,170,173,92,140,10,170, 


189,18,137,133,167,189,19,137,133 
data 168,160,255,96,32,10,150,32,155, 
171,200,177,167,72,41,127,32, 210,255 
data 104,16, 244,96,141,106,140,32,68, 
P29,32,1,172,32,155,171,200, 177,167 
data 16,251,149,105,149,173,106, 140, 
56,237,105,140,74,1698,96,32,233,171 
data 208,251,32,233,171,240,246,96, 
173,0,228,41,16,201,16,96,72,32,1,172 
data 104,32,10,150,169,34;32,10,150, 
76,222,171,169,3,76,30,169,32,192,171 
data 162,12,24,76,240,255,162,48,56, 
233,10,144,3,232,176,248,105,58,168 
data 138,32,210,255,15P,76,210,255, 
174,111,149,189,81,142,205,81,142,36 


data 169,0,32,52,166,185,33,142,396,32, 


88,171,32,226,166,185,33,142,96,169 


data 92,32,229,172,169,2,32,211,172,76, 


18,173,169,1,32,229,172,169,3,208 
data 241,32,222,172,201,212, 208,237, 


16972,32,009,170776,141,1717327 222, 17e& 


data 201,212,208,222,169,3,208,239, 
169,123,208,2,169,119, 141,296, 142,174 
data 111,149,189,73,142,72,173,206, 


142,207,123, 240,5,222,73,142,208,93,254 


data 73,142,173,206,142,201,123,24®, 
30,254,73,142,160,1,32,159,166, 201,74 
data 240,34,201,68,240,30,189,73,142, 
205,73, 142,208,225,104,157,73,142,56 
data 96,222,73,142,160,1,32,159,166, 
201,84,240,4,201,67,208,226,104,157 


data 73,142,24,96,174,111,140,202,189, 


157,142,96,168,32,203,172,25,230,137 
data 157,197, 142,96,174,111,140,189, 
178,142,96,168,32,203,172,89,230,137 


data 157,197,142,96,32,39,167,174, 111, 


1490,189,17,142,201,2,208,7,189,25 
data 142,201,5,240,3,76,215,170,32, 


222,172,201,221,240,4,201,222,208,6,32 


runman construction set v2. 


programmteil screens [nr 1) 
a=-d:a$=chr$ (34) 

print ”"Ccir,pur,2down, 19rightJI**=“ 
please wait *#+*»” 

read da:poke 20480+a,da 

if a<4095 then a=a+l:goto 1078 

print "[2down,blkJload”a$”rcs d”a$”,B, 
1[3down]” 

print ”[down]Jrun£f8up] 


1238 
1248 
1258 
1268 
1270 
1288 


72,74,74,74,55,70, 
data 71,72,58,32,32,32,32,75,65,38,38, 
32,75,32,32,32,55, 


data 66,78,7 R 
68, 32,32,65,32,32,32,32,75,32,65,32 


data 146,169,76,141,171,32,36,172,208, 
81,173,33,140,74,144,31,74,176,28 
data 32,4,167,32,50,166,185,33,14e, 
201,76,240,4,201,77,20B,11,32,23,163 
data 169,1,32,90,169,76,141,171,32,46, 
172,201,65,240,67,174,111,149,183 
data 73,142,205,73,142,176,3,76,58, 
174,76,14,174, 32,203, 172 ,240,21,74,176 
data 3,74,176,9,74,176,9,76,102,172, 
76.65,172,76,78,172,76.87 ,172,30,36 
data 172,144,4,169,213,208,2,169,211, 
173,111,149,157,178,142,32,46,172,201 
data 55,208,24,32,98,171,144,43,174, 
111,140,189,9,142,201, 126,,240,4, 169 
data 126,208,2,169,125,76,58,171,201, 
78,240 23,201, 71,240,58, 201, 74,240 
datz 58,201,84,240,57,201,67,240,53, 
201,58,240,46,76,215,170,174,111,14® 
data 189,3,142,201,125,240,53,32,36, 
172,175,11,32,45,172,291,71,208,11,169 
data 125,208,2,169,125,32,95,171,144, 
228,173,207,142,73,1,141,207, 142,208 
data 3,758,14,174,76,68,174,174,111, 
148, 185,9.142,201,125,240,4,201,125, 
zes 
data 2@3,32,38,171,144,185,176,219, 
174,113, 148, 169,212,157,178, 142,95. 38 
data 36.172.208.38,32,113,172, 144,25, 
32,2@3,172,74,176,27,169,0,32, 211,172 
data 169,221, 74, 111,140,157,178,142, 
76,141,171,76,95,173,32,203,172,208 
data 248,32,5, Eres 123,32,55,170, 
201, 74,240, 32.208.43,32.36,178, 208, es 
data 32,117,172,144,16,302,203,172, 
74,176,.17,168,1.32 ,211,172,169,222. 
data 208, 1=9,32,203,172,208,203,32,5, 
174,169,119,32,55,172 201 ,84,240 47 
data 2@1,55.248,43,201,71,240,39,201, 
78,240,35,281,70,240,31 ,201,73,240 
data 27,281,88,240,23,201,72,240,13, 
174,111.19 4@,183,9,142 201,119, 240,4 


data 169,139,288,2, 165, t23r32,0B; 174, 
76,215,178 


‚65,32,32,32,32,75, 


Se, Bee, 6,3, 30,30, 176,3 
data 79,32,75,32,65,32,32,75,32,32,32, 


32,32,32,32,32,32,65 
66,78,566,66,78,71, 
72,56,566,78,7® 


32,32,32,65,32,32 
32,65,32,32,32,32,38,22, 
32,55,32,32,32,32,57 

2,70,71,72,70,71,72,78, 


7373 
5458 
g841 
7365 
7945 
7208 
6153 
5352 
7365 
5398 
7es4 


7322 


7906 
7178 
8018 
7543 
6576 
7210 
7378 
6213 


4382 


1118 poke 631,13:poke 632,13 1298 data 32,59,75,32,32,79,75, 32, 32, 75, =eE, 
1128 poke 198,2:end = 65,32,32,32,32,32,32,32, 65,32,32, 65 
1130 : 1300 data 32,32,65,32,30,32,32, 32,65, 38,67, 
1148 data 32,32,32,32,75,32,32,69,32,32,75, 78,71,72,556,78,79,73,72,70,71,72,80 
32,32,32,32,32,32,32,32,32,32,32,32 1318 data 66,78,71,72,66,78,66,68,32,32,32, 
1158 data 32,32,32,32,32,32,32,32,32,32,76, 32,75,55,32,32,65,32,32,65,32,75,76 
32,32,75,75,32,32,32,67,66,70,71,72 1328 data 32,32,565,32,32,32,65,32,32,32,32, 
1160 data 66,70,73,72,66,70,71,72,68,32,32, 73,30, 3,05, 3e730.30,30,65,30, 36,302 
32,3e,32,32,32,32,32,32,32,32,32,32 1330 data 32,32,32,32,67,66,70,71,72,70,71, 
1178 data 32,32,32,67,79,71,72,66,66,68,32, 72,56,78,56,5656,70,71,72,78,68,32,32 
30530530, 30,65,32,32,32,79,32,32,3° 1348 data 65,32,32,32,32,79,32,32,65,32,30, 
1180 data 65,32,32,32,75,32,69,32,32,75,32, 32,32,55,32,32,32,32,32,32,32,32,32 
32,76,32,75,32,32,75,32,76,32,32,65 1350 data 32,65,32,32,65,32,32,32,32,32,3®, 
1199 data 32,32,32,32,32,32,32,75,32,65,32, 65,32,32,32,32,32,65,75,32,75,32,79 
75,32,79,32,75,32,65,32,32,67,566,66 1360 data 75,32,65,32,75,32,32,65,32,75,302, 
1208 data 70,71,72,66,790,71,72,556,84,84,84, 32, 32,302,3e,30,30,75,65,81,75,65,75 
70,73,72,68,32,65,32,32,32,32,32,32 1370 data 32,32,32,32,32,65,32,32,67,66,7®, 
1218 data 67,66,78,71,72,66,55,89,65,656,70, 71,72,70,73,72,80,66,66,78,70,71,72 
71,72,68,32,32,32,32,65,32,32,32,65 1388 data 66,78,66,70,71,72,68,32,32,67,66, 
1220 data 32,32,32,32,32,32,73,32,32,32,65, 66,78,656,66,78,66,568,32,32,32,32,65 
32,32,32,32,32,32,32,32,32,65,32,32 1398 data 32,32,32,32,32,65,32,32,79,32,30, 
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Burner, 


1490 


1418 


14208 


14390 


1440 


1458 


1468 


1478 


1488 


14908 


1508 


1518 


1528 


15308 


1540 


1550 


1569 


1578 


1589 


1590 


1500 


1610 


16208 


1630 


1640 


1650 


1660 


1670 


1688 


1698 


1708 


1718 


1720 


1738 


1740 


1758 


1768 


1778 


17B8 


1798 


1800 


1B1® 


Se; 3E, 387 32,65,90, 30,32, 32:30555,32 


data 32,32,32,32,32,32,32,32,32,32,3e, 
32,32,32,75,75,65,32,32,75,32,32,65 
data 75,32,79,32,75,32,32,75,32,55,302, 
75,69,75,32,65,75,32,32,32,32,32,32 
data 32,32,32,32,32,32,67,66,55,66,78, 
84,84,84,84,66,78,55,656,82,66,66,66 
data 66,66,56,78,65,56,55,56,56,78,66, 
68,32,32,32,32,32,32,81,75,32,30,32 
data 32,76,32,32,32,32,32,76,32,32,3®2, 
32,32,69,32,32,32,32,75,32,32,32,75 
data 32,32,32,32,32,32,32,32,67,70,71, 
72,66,66,66,70,71,72,66,84,84,84,84 
data 84,66,70,73,72,66,66,56,56,66,66, 
66,66,66,66,66,66,566,66,70,71,72,68 
data 32,32,32,32,65,32,32,32,32,32,65, 
32,32,32,32,32,32,32,32,32,79,32,32 
data 32,32,32,32,32,32,32,32,32,32,30, 
32,32,32,65,32,32,32,32,32,32,65,32 
data 32,32,75,32,55,32,75,32,32,32,75, 
32,32,32,793,32,32,32,75,32,32,32,75 
data 32,32,32,32,69,32,32,32,65,32,3°, 
32,32,32,32,65,32,32,67,66,66,78,66 
data 66,56,66,66,66,56,66,70,73,72,56, 
66,66,56,66,65,66,66,70,71,72,66,68 
data 32,32,65,32,32,32,32,32,32,65,38, 
32,32,32,32,32,32,32,32,32,32,32,32 
data 32,32,79,32,32,32,32,32,32,32,3e, 
32,32,65,32,32,32,32,32,65,32,32,32 
data 32,32,32,65,32,32,32,32,32,32,32, 
32,75,32,32,75,32,32,32,79,32,32,76 
data 32,32,32,75,76,32,32,65,32,32,32 
32,32,65,32,32,32,32,32,32,65,32,32 
data 67,66,70,71,72,656,66,66,55,56,66 
66,70,73,72,66,566,74,74,74,74,66,56 
data 65,78,66,66,568,32,32,65,32,32,38, 
32,32,30,65,32,32,32,32,32,65,32,32 
data 32,32,32,32,32,32,32,79,32,32,3e, 
32,32,32,32,32,32,32,32,32,32,32,32 
data 32,65,32,32,32,32,32,32,65,32,3e, 
32,32,32,65,32,32,75,32,32,32,32,75 
data 32,79,32,32,75,32,69,32,32,75,3®, 
32,32,32,75,32,32,32,65,32,32,32,32 
data 32,32,65,32,32,67,66,66,78,56,66, 
66,66,56,66,66,56,70,73,72,66,56,656 
data 66,656,566,55,66,70,71,72,66,58,3®e, 
32,65,32,32,32,32,32,32,65,32,32,32 
data 32,32,32,32,32,32,32,32,32,32,3e, 
32,79,32,32,32,32,32,32,32,32,32,32 
data 65,32,32,32,32,32,65,32,32,32,3e, 
32,32,65,32,32,32,32,75,32,32,32,76 
data 32,75,32,32,76,32,79,32,75,32,3e, 
32,32,32,75,32,32,65,32,32,32,32,32 
data 65,32,32,32,32,32,32,65,32,32,67, 
66,70,71,72,66,66,84,84,84,84,66,70 
data 73,72,66,66,66,66,56,55,56,66,56, 
78,66,5656,568,32,32,65,32,32,32,32,32 
data 32,65,32,32,32,32,32,65,32,32,32 
32,32,32,32,32,32,79,32,32,32,32,32 
data 32,32,32,32,32 32,38, 32,32,32,32 
65,32,32,32,30,302,32,65,32,32, 73.30 
data 32,65,32,32,75,32,32,88, 32.75.30 
79,32,32,32,75,32,76,32,32,32,32,30 
data 32,76,69,75,32,65,32,32,32,32,67 
66,78,66,66,66,66,66,78,66,56,56,566 
data 66,66,66,66,56,80,66,565,66,66,66 
66,74,74,74,74,74,74,66,66,56,65,78 
data 656,68,32,32,32,32,81,32,32,75,32, 
32,32,32,32,32,32,75,32,32,32,32,32 
data 32,32,32,32,32,75,32,32,32,32,3e, 
32,32,32,69,32,32,75,32,32,32,67,56 
data 70,73,72,66,66,70,71,72,66,56,7@ 
73,72,66,66,70,73,72,66,66,70,73,72 
data 66,556,70,71,72,66,70,73,72,70,71 
72,68,32,32,32,32,32,79,32,32,32,32 
data 65,32,32,32,32,79,32,32,32,32,79, 
32,32,32,32,79,32,32,32,32,65,32,32 
data 32,79,32,32,65,32,32,32,32,32,75, 
32,793,32,32,75,32,65,32,32,75,32,73 
data 32,59,32,32,79, 32,22, 32,75,79,3e, 
32,75,32,65,32,75,32,79,32,32,65,32 
data 32,32,32,67,65,70,73, 72.66,68,68, 
78,66,66,56,70,73,72,55,68,70,73.72 
data 66,55,65,80,86,86, 66,70,71,72,66, 


’ 


’ 


7715 
73913 
7744 
7525 
7672 
7455 
8278 
7351 
7456 
7727 
7617 
8283 
7336 
7423 
7774 
7652 
8134 
7461 
7507 
7849 
7726 
7734 
7685 
7441 
7575 
8052 
7223 
B920 
7618 
7298 
8206 
7926 
8117 
7726 
7782 
8116 
7853 
7585 
7995 
7686 
7945 


7314 


NEBEN SEINE TER FEN SI TH 


1828 
1838 
1848 
1858 
1860 
1870 
1880 
18998 
1908 
1918 
1920 
1938 
1949 
19508 
1968 
1970 
1980 
1998 
2000 
2018 
2020 
2030 
2940 
2050 
2069 
2070 
2080 
2930 
2100 
2110 
2128 
2130 
2140 
2150 
2168 
2178 
2180 
2198 
2208 
2210 
2228 


2238 


78,73,72,70,71,72,68,32,32,32,32,32 
data 79,32,32,32,32,32,32,32,32,32,79, 
32,32,32,32,79,32,32,32,32,32,32,32 
data 32,32,65,32,32,32,73,32,32,55,38, 
32,32,32,32,75,32,79,32,69,75,32,32 
data 32,32,32,32,79,75,32,32.= ‚73,75, 
32,32,32,32,32,75,32,32,55,75,2,32 
data 79,75,32,65,75,30,30 32,57 58 ‚70, 
73,72,66,65,65,65,66,55,56,78,73,72 
data 66,66,70,73,72,66,66,70,71,72,56, 
66,66,78,66,66,70,73,72,70,71,72,58 
data 32,32,32,32,32,79,32,32,32,32,32, 
32,32,32,32,79,32,32,32,32,79,32,32 
data 32,32,65,32,32,32,32,32,32,32,32, 
79,32,32,65,32,32,32,32,32,32,75,73 
data 32,32,32,32,32,32,32,75,32,73,32, 
32,75,32,79,32,32,75,32,65,32,32,75 
data 32,32,32,75,32,79,32,32,65,75,32, 
32,32,57,66,70,73,72,66,66,70,71,72 
data 66,566,70,73,72,66,66,66,80,66,686, 
56,66,78,66,66,66,70,73,70,66,70,73 
data 72,70,71,72,68,32,32,32,32,38, 79, 
32,32,32,32,65,32,32,32,32,79,32,3e 
data 32,32,32,32,32,32,32,32,38, Base, 
32,79,32,32,32,79,32,32,65,30,32,32 
data 32,32,32,75,79,32,75,32,32,65, 32, 
75,32,32,79,75,32,32,32,32,75,32,32 
data 75,32,32,69,75,32,78, 75,32,38,73, 
75,32,65,32,32,32,32,67,65,70,73 ‚72 
data 66,66,70,71,72, 66,56,70,73,72,586, 
66,708,71,72,66,65,70,73,78, 65,56, 70 
data 73,72,66,70,73,72,70,71 „72,68,92, 
32,32,32,32,79,32,32,32,32,65,32 32 
data 32,32,79,32,32,32,38, 65,32,28,28, 
32,79,32,32,32,32,79,32,32, 38, 73,32 
data 32,65,32,38, 32,32,32,32,75,79, 32, 
32,75,32,65,32,32,75, 32,79,32,69,75 
data 32,65,32,32, 75,32,79,32,38, 75.38, 
79,32,32,75,79,32,75,65,75,32, 32,32 
data 67,66,56,80,56,66, 66,66, 78,56,66, 
66,66,80,66,66,56,56, 78,68, 66,66,66 
data 80,66,65,56,56,80,656 ‚66,55,80,66, 
66,78,66,68,32,32,32,32,81,32,32,78 
data 32,32,32,32 a2 ,38,ae, 32,32,38,75, 
32,32,32,32,32,32,32,32,32,32,32,32 
data 32,32,32,32,32,32,75, 32,38,38,38, 
67,66,70,73,72,66,66,70,73,72,56,66 
data 70,73,72,66,66,70,73,71,7e, 66,70, 
73,72,78,71,72,66,65,55,58,70,71,72 
data 66,66,68,32,32,32,38, 32,79,32,38, 
32,32,79,32,32,32,32,79,32, 32.32.38 
data 79,65,32,32,32,79 ‚32,32,65,38, 32, 
32,32,32,32,65,32,30,30, 32,32,32,32 
data 32,32,79,75, 32,32,32,73,32, 32,30, 
32,79,75,32,32,32,79,65, 32,32,32,79 
data 32,32,65,32,32, 32,32,32,32,55,38, 
75,32,32,32,32,67,65,70,73, 72,68,67 
data 70,73,72,66,66, 70,73,72,66,56,70, 
73,71,72,66,70,73,72,66,78, 66,70,71 
data 72,66,70,71,72,66, 66,68,32, 32,38, 
32,32,79,32,32,32,32,79,32,32, 32,32 
data 79,32,32,32,38, 79,65,32,38,32,78, 
32,32,32,32,32,65,32,32,32, 65,32 ,32 
data 32,32,32,38, 32,32,32,79,32, 75.38, 
69,79,32,32,32,32,79,32,32, 69,32,73 
data 65,75,32,32,79,32 a2,32,30.30,55, 
32,32,32,65,32,75,32,32,32,32,67,70 
data 71,73,72,66,66,70,73, 72,68,67,70, 
73,72,66,56,70,73,71,72,66, 70,73,72 
data 66,66,65,65,78,66,56, 70,71,72,56, 
66,68,32,32,32,32,65,79,32, 32,32,30 
data 79,32,32,32, 32,79,32,32,32,32, 79, 
65,32,32,32,79,32,32,32, 32,32,32,3 
data 32,32,65,32,38, 32,32,32,32,3e, 32, 
65,79,32,75,32,32,79,38, 32,32,69,79 
data 32,32,32,32, 79,65,32,75, 32,79,32, 
32,32,32,32,69,32,32,32,65,32, ER 
data 32,32,32,87, 78,71,73,72,56,70, 71, 
73,72,66,56,70,73,72,68,67,70, 73,71 
data 72,66,70,73,72,66,70,71, ee 
66,70,71,72,66,66,58,32,32,32,32 ,55 
data 79,32,32,32,65,79,32, 32,32,32,739, 
32,32,32,32,79,65,32,32,32,79,32,32 
data 32,65,32,32,32,38, 32,65 Be 


Spiele Listing rm men zen 


7552 


7836 
7618 
B222 
B24® 
7591 
7558 


89823 


7744 
8183 
7511 
7513 
BoB4 
7821 
7328 
7811 
7567 
8038 
B24g 
8285 
7785 
7388 
8122 
8297 
7516 
7657 
7686 
7909 
8172 
7761 
7561 
8012 
7601 
B2B4 
7703 
7686 
7628 
7727 
7782 
B288 
7687 
7734 


Sonderheft um 97 


Spiele Listing 


32,32,302,32,32,65, 
data 32, 75, =, = zer. 


73,72,66,78,71, 73, 


data 72, 56, 78, 73,7 ‚72,66,70, 73, 72, 66, 


66,78,66, 78, 71, 72,78 Sr 78; 66, 56, 58 
data 32, 32, 38, 32, 65,79,32,38, 32, 65, 29, 
32, =, 79,6 erde, 73, = 32 
data 32,32,73,3e, EIEF 32, 32, 65, 3e, 
32,65,3073, 30523253 ‚3, 32, 75, 65, 73 
data 32,32,75,65,79,32,69, 75, 32, 73, 65, 
3e,30,302,49,69,32.,75,302,79, 32, a 32 
data 75, 32,38, 243e.,Je2,095 32, 75, 32, 2 
32,32,67,66,78,80,66,66, 66, 78, 80, 66 


data 66, EB,66, 0,78,66,66, 65, 80, 78,66, 


66,66,80,66,66,55,66,55,55,78,66,66 


data 78,66,66,66,68,32,32,32,32,32,32, 


75,32,32,30,32,32,32,32,32,69,32,32 


data 75,32,32,32,75,32,32,32,76,32,32, 


364, 30,76,3e,302,30,09,30,32,32,32,38 


) data 32,67,70,71,72,66,66,70,71,72,68, 


32,32,67,66,70,71,72,70,71,72,66,78 


data 71,72,66,74,74,74,74,70,71,72,66, 


66,70,71,72,68,32,32,32,32,65,32,32 


data 32,32,65,32,32,32,32,32,32,32,65, 


32,32,65,32,32,32,65,32,32,32,32,32 


data 32,32,65,32,32,32,32,65,32,32,382, 


32,30,30,65, 32,32,32,38;65,32,38;,3e 


data 32,32,75,32,65,32,32,65,32,32,32, 


65, 30,32, 25,30, 32, 38,32,65,32,32,32 


data 32,65,32,32,32,32,32,32,65,32,69, 


32,75,65,32,32,32,32,67,66,780,71,72 


data 70,71,72,66,70,71,72,66,66,68,32, 


32,32, 65,32,75,38,3e,605,32,38,3e,Je 


data 67,70,71,72,66,66,66,78,70,71,72, 


68,32,32,32,65,32,32,65,32,32,32,65 


data 32,32,32,67,70,71,72,78,66,70,71, 


72,78,66,68,32,32,32,32,65,32,32,32 


data 32,32,32,65,32,32,32,32,32,65,32, 


32,65, 32, 30.32,65,32,30,38,32,32,65 


data 32,32,32,32,65,32,32,32,32,32,32, 


SEr32, BES1a2, 88,38, 38,38,38,65,38,3e 


data 32,75,32,65,32,32,65,32,69,32,65, 


32,32, 32, 36.938,65, 38, 30,32,32,65,3e 


data 32,30, 36,92.,3e,32,30,69,79,30,36, 


32, 32.,38,65,38,67,70,71,72,70,70,73 


data 71,72,66,66,78,70,71,72,68,32,65, 


38,32, 38, 38,65; 32,32,32,32,32,32,67 


data 70,71,72,70,71,72,68,32,65,32,32, 


32.65, 30,90,32,79,65,32,32,32,32,32 


data 65,32,32,32,65,32,75,32,81,65,32, 


SETS HS A EEE ER FE E 


data 32,32,65,32,32,32,65,32,32,32,73, 


65,92432,38,36,38,65,38,97570,71,7e 


data 70,73,72,78,70,71,72,68,32,32,32, 


32,65,32,32,65,32,32,75,65,32,32,32 


data 65,32,32,32,79,65,75,32,32,32,75, 


BS, JE, 3e43c 65, 30,37, 


data 32,32,32,32,32,32,65,32,67,78,7®, 


71,72,78,70,71,72,78 66,66,70,73,71 


data 72,66,70,71,72,78,68,32,32,65,75, 


SA EEE TS RD Se I ee RE 


data 65,32,32,32,32,65,32,32,32,65,32, 


SS ESTER ERSFEFEFFE FF EZ 


data 32,67,70,71,72,70,73,72,66,70,71, 


72,605 901904 36,304, 69,30,364 3230465 


date 90,30, 32,69,32,32,38,302,38,79,65, 


22, 32,36,89,32,38,32, 32, 30,63, 32,3e 


„rcs c" ist der Titel dieses Abschnitts 


runman construction set v2.®8 


programmteil : screens [nr 2] 


a=-®:3$=chr$ (34) 
print "[clr,grn,2down, 18rightI*** 


darasza,Hr,ae, gehe, de, 3e,3e, se, 


65,32,75,32,32,65,32,69,32,65,76,32 


data 32,32,76,79,65,32,75,32,65,32,32, 


75,303 32, 55, 32, 32, 79, 32, 75, 32, 65, 63 
data 32, 32, 32, 67, 66, 78, 56, 65, 66, 66; 78, 
66,66, 56, 78, 65, 84, 84, 84, 66, 80, 78, 66 


data 66,66, 78,56,55,55,56,55,78,65,66, 


80,66,66,66,78,66,68,32,32,32,32,32 


data 32, 32,32,30, 32,32, 32,38,32,3e,38, 


327 30,69, 30,38, 75,32,302,382,382,32,3e- 


data 75,32,32,32,32,32,76,32,32,32,32, 


32, 3e,3c, ae, 30,32,38,30,.38.38,32,38 


data 32,32,32,32,32,67,66,66,66,566,585, 


70,71,72,66,70,71,72,70,71,72,68,67 


data 66,70,71,72,66,68,32,32,32,32,75, 


32,69,30,30,35, 30 Je, Jesserin, de, 


data 32,32,32,32,32,32,65,32,32,32,65, 


32,32,65,30,32,32,302,39,65,32,32,3e2 


data 32,32,67,70,73,72,66,70,71,72,66, 


74,74,74,66,66,68,32,32,32,32,32,32 


data 65,32,32,32,65,32,32,65,32,75,32, 


SER IDEE FRE RERERREFERFEREe 


data 32,32,65,32,32,32,32,32,32,32,32, 


3e.,3e,3e,32,75,32,65,32,32,30765,32 


data 67,78,66,66,66,66,70,71,72,66,68, 


32, 3e,32,32579, 380 ,de,32,65,30,30,38 


data 32,32,32,32,67,70,71,72,66,66,66, 


78,68,32,32,65,32,32,32,32,32,32,30C 


data 32,65,32,32,32,32,32,32,32,79,32, 


32,30,65,30, 32,36 ‚36,32, 32,96, 96, Je 


data 65,32,32,32,32,32,32,32,32,65,32, 


32,32,302,32,69,32,32,65,32,38,32,32 


data 32,32,32,79,32,32,32,65,32,32,32, 


32,75,3e,3e,3e,75,85,32,38,75,36,98 


data 32,32,32,65,32,67,66,70,71,72,66, 


66,78,66,66,68,32,32,32,32,79,32,67 


data 66,78,66,70,71,72,70,73,72,66,70, 


71,72,66,70,71,72,66,68,32,65,32,32 


data 32,32,65,32,32,32,32,38,32,38,38, 


32,32,32,79,32,32,38,38,32,32,65;32 


data 32,79,32,32,32,65,32,32,32,65,32, 


32,32,32,65,32,32,32,32,65,32,32,38 


data 32,32,32,32,32,32,32,32,79,32,32, 


32,30 ,32,30,65,32,30,79,38,38,38,65 


data 32,32,32,65,32,32,32,32,65,32,32, 


32,69,65,32,32575,32,38,38,32,32,32 


data 32,75,79,32,32,32,75,38,32,65,38, 


32,73,38 173, 38,65:3€,75538,69,3&175 


data 32,32,65,32,32,67,66,78,66,66,70, 


71,72,68,32,32,32,67,66,80,70,71,72 


data 66,56,56,78,66,70,73,72,66,70,71, 


72,66,780,71,72,66,66,780,71,72,68,32 


data 32,30,30,32,32565, 307 3e,3e, 368136, 


re = re N Se ee Fe DE Fe ee 


data 79,32,32,32,65,32,32,32,65,32,32, 


IE A ET ER FE FE FRERE DAE 


data, 32,30, 32, 38,38, 32, 32,30, 38,55, 32, 


derer Be ac aenendeda,se,3e,69;,3e 


data-ge, 3e,65, 32, 38, 30,38,65,32,38,38, 


3e,3e,3e, 30, 32,65,30,36,30,36.38,38 


data 81,32,75,65,76,75,32,32,75,32,76, 


79,32,75,32,55,32,32,32,65,32,32,32 


data 32,65,32,76,32,75,32,32,76,32,65, 


32,32,32,32,32,67,66,66,66,78,56,84 


data 84,584,84,84,66,80,66,66,656, 78,66, 


66,66, 78,66,68,32,67,78,66,66, 84,84 


data 84,84,55,55,78,56,66,68,32,32,32, 


de Seen aegernonac,ae, 36,69, 
data 75,32 


1128 poke 631,13:poke 632,13 


1130 


poke 198,2:end 


1140 : 


1158 


1160 


1170 


data 32,32,75,32,32,32,32,32,32,75,32, 
32,32,32,32,32,75,32,32,32,32,32,32 
data 32,32,67,70,71,72,66,66,566,70,71, 
72,66,56,66,66,56,56,66,70,71,72,66 


data 66,66,566,65,70,71,72,70,73,72,66, 


please wait *»»" 66,70,71,72,66,68,32,32,32,32,65,32 
read da:poke 24576+a,da 1188 data 32,32,32,32,65,32,32,32,32,32,32, 
if a<4863 then a=a+ti:goto 1888 32,32,32,65,32,32,32,32,32,32,32,65 
print "[2down,blkJload"”a$”"rcs e”a$”,B, 1190 data 32,32,79,32,32,32,32,65,32,32,32, 
1C3down]” 32,32,32,32,65,32,32,32,75,32,65,32 
print "CdownJrunLl8up] 12008 data 32,75,32,32,75,32,32,32,65,75,32, 


98 Gum Sonderheft | 
Me OS a | 


1218 
1220 
123@ 
1248 
1250 
1260 
1270 
1280 
1298 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1388 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1450 
1478 
1480 
1490 
1508 
1510 
1520 
1530 
1549 
1550 
1568 
15708 
1580 
1598 
1608 
1610 
1620 
163® 


Spiele Listing 


32,32,75,32,32,65,32,32,79,32,32,75 
data 32,65,32,75,32,32,32,32,32,65,32, 
32,67,66,66,78,66,66,70,71,72,56,78 
data 71.72,78,66,65,70,71,72,68,32,655, 
32,32,79,32,67,66,66,78,66,566,68,32 
data 32,32,32,65,32,32,32,32,32,32,32, 
32,32,65,32,32,32,65,32,32,32,32,32 
data 65,32,32,32,565,32,32,73,32,32,3e, 
32,32,32,32,32,32,32,32,69,65,32,75 
data 32,32,75,32,32,32,32,55,32,81,32, 
65,32,75,32,32,32,65,32,75,32,65,32 
data 32,79,75,32,32,75,32,32,32,32,32, 
32,67,70,71,72,70,71,72,70,71,72,66 
data 70,71,72,66,70,71,72,70,71,72,70, 
71,72,66,66,78,66,566,80,66,70,71,72 
data 68,32,32,32,32,32,32,32,65,32,32, 
65,32,32,65,32,32,32,65,32,32,32,65 
data 32,32,65,32,32,65,32,32,32,32,32, 
32,32,32,32,65,32,32,32,32,32,32,32 
data 32,32,65,32,32,65,32,75,565,32,32, 
32,65,32,32,32,65,32,32,65,32,32,65 
data 32,32,32,32,32,32,69,75,32,65,32, 
75,32,32,32,32,32,67,66,78,66,78,71 
data 72,70,71,72,55,56,78,68,32,32,65, 
32,75,65,32,32,65,32,32,32,67,70,71 
data 72,66,66,78,66,70,71,72,68,32,32, 
32,32,32,32,32,65,32,32,65,32,32,32 
data 32,32,67,70,71,72,66,78,68,32,65, 
32,32,32,32,32,65,32,32,32,32,32,32 
data 65,32,32,32,32,32,75,32,32,75,65, 
32,32,65,32,32,32,69,32,32,32,65,32 
data 32,32,32,32,65,32,32,75,32,32,65, 
32,32,32,75,32,32,65,32,32,32,32,67 
data 70,71,72,56,78,66,70,71,72,66,56, 
66,68,32,32,65,32,32,32,67,70,71,72 
data 66,66,66,70,71,72,66,66,66,56,70, 
71,72,68,32,32,32,32,65,32,32,32,32 
data 32,65,32,32,32,32,32,32,32,65,32, 
32,32,32,32,65,32,32,32,32,32,65,32 
data 32,32,32,32,32,65,32,32,32,32,32, 
32,65,32,75,32,32,32,65,32,76,32,32 
data 32,76,32,65,32,75,32,32,32,65,38, 
75,32,32,75,65,32,32,32,75,69,32,65 
data 32,32,32,32,67,66,78,66,566,66,656, 
66,78,66,66,74,74,74,66,66,78,66,66 
data 66,66,56,78,66,66,66,656,566, 78,66, 
66,566,66,66,66,78,66,68,32,32,32,32 
data 32,32,76,32,75,32,76,32,75,32,32, 
32,32,32,32,32,32,32,32,32,32,32,75 
data 32,32,75,32,32,69,32,32,75,32,3e, 
75,32,32,32,67,70,71,72,66,84,84,84 
data 66,70,71,72,66,68,32,32,32,32,32, 
32,32,32,32,67,70,71,72,66,70,71,72 
data 68,67,70,71,72,66,68,32,32,32,32, 
65,32,32,32,32,32,32,32,65,32,32,32 
data 32,32,75,32,32,75,32,32,32,32,32, 
65,32,32,32,65,32,32,32,32,65,32,32 
data 32,32,32,32,32,65,32,32,32,32,32, 
32,32,65,32,32,67,70,71,72,70,73,72 
data 70,71,72,68,32,65,32,32,32,65,32, 
32,32,75,65,32,75,32,32,32,32,32,65 
data 32,75,32,32,69,75,32,65,32,76,3e, 
32,65,32,32,79,32,32,65,32,32,32,65 
data 32,32,67,78,70,71,72,66,78,66,56, 
68,32,32,67,66,78,66,66,78,71,72,66 
data 66,78,66,66,68,32,65,32,32,73,32, 
32,65,75,32,76,65,75,32,32,32,32,65 
data 32,32,32,32,32,32,32,32,32,32,32, 
32,32,32,65,32,32,32,32,32,32,32,32 
data 65,32,32,79,67,66,78,566,56,56,78, 
66,68,32,32,32,65,32,75,32,32,76,32 
data 32,32,32,32,32,32,32,32,65,32,3®, 
32,32,32,32,32,32,65,32,32,79,32,32 
data 32,32,32,32,32,32,32,32,67,66,78, 
66,70,71,72,66,68,32,32,32,32,75,63 
data 32,32,65,32,32,75,32,32,32,75,3e, 
65,75,32,79,32,69,32,75,32,32,32,75 
data 32,75,32,32,32,32,32,65,32,32,32, 
32,32,67,78,71,72,66,66,78,56,56,66 
data 70,71,72,66,66,78,66,78,73,72,70, 
71,72,66,66,56,70,71,72,68,32,32,32 
data 32,65,32,32,32,32,32,32,32,65,32, 
32,32,32,32,32,32,32,65,32,32,32,32 
data 32,32,79,32,32,65,32,32,32,32,32, 
65,32,32,32,32,32,32,65,32,32,32,32 
data 32,32,32,65,32,32,32,32,32,32,32, 
75,65,32,75,32,32,32,81,79,75,32,65 


data 75,32,32,32,32,55,32,32,32,32,3e, 
32,65,32,32,32,32,32,32,75,55,32,75 
data 32,32,75,32,67,56,78,55,55,79,71, 
72,70,73,72,78,71,72,66,58,32,32,65 
data 32,32,75,32,75,32,65,32,75,32,382, 
32,67,70,71,72,70,71,72,66,58,32,32 
data 32,32,32,32,65,32,32,79,32,32,65, 
32,32,32,67,66,78,70,71,72,566,66,56 
data 78,65,66,68,32,32,32,32,65,32,3e, 
65,32,32,32,32,32,32,32,32,32,65,32 
data 32,79,32,32,65,32,32,32,32,32,3e, 
32,65,32,32,32,32,32,32,32,32,32,32 
data 32,75,65,32,75,65,32,76,32,75,38, 
75,32,76,32,65,32,32,79,75,32,65,76 
data 32,75,32,32,76,32,65,32,32,75,3e, 
69,32,75,32,32,32,67,66,78,66,66,78 
data 66,5656,74,74,74,74,74,65,56,78,66, 
66,80,66,66,78,66,84,84,84,84,66,66 
data 78,66,66,66,656,56,66,656,68,32,38, 
32,32,32,32,75,76,32,32,76,69,32,32 
data 75,32,32,32,32,32,75,32,32,32,3e, 
32,75,32,32,76,32,32,32,75,76,32,32 
data 32,75,32,32,32,67,66,70,71,72,66, 
84,84,66,66,70,71,72,66,66,56,70,71 
data 72,70,71,72,66,66,66,70,71,72,66, 
74,74,74,66,70,71,72,66,68,32,32,32 
data 32,32,65,32,32,32,32,32,32,32,65, 
32,32,32,32,32,65,32,32,65,32,32,32 
data 32,32,65,32,32,32,32,32,32,32,65, 
32,32,32,32,32,32,75,32,65,75,32,32 
data 32,75,32,32,65,32,75,32,32,75,65, 
32,75,65,32,32,32,75,32,65,32,32,69 
data 32,32,75,32,65,32,75,32,32,32,67, 
66,70,71,72,66,70,71,72,66,566,78,66 
data 70,71,72,70,71,72,70,71,72,70,71, 
72,66,78,66,66,70,71,72,66,70,71,72 
data 66,68,32,32,32,32,32,65,32,32,30, 
65,32,32,32,32,32,32,65,32,32,65,32 
data 32,65,32,32,65,32,32,32,32,32,30, 
65,32,32,32,65,32,32,32,32,32,32,75 
data 32,65,32,75,32,65,32,69,32,75,3e, 
32,65,32,75,65,75,32,65,32,75,65,32 
data 75,32,32,32,75,65,75,32,32,65,30, 
75,32,32,32,67,66,70,71,72,66,70,71 
data 72,66,70,71,72,66,78,66,70,71,78, 
70,71,72,66,78,66,70,71,72,66,70,71 
data 72,66,70,71,72,66,68,32,32,32,30, 
32,65,32,32,32,65,32,32,32,65,32,32 
data 32,32,32,65,32,32,65,32,32,32,30, 
32,65,32,32,32,65,32,32,32,65, 32,32 
data 32,32,32,32,32,75,65,32,75,32,65, 
32,75,32,65,75,32,32,32,75,65,75,32 
data 65,81,32,75,32,32,65,32,69,38,65, 
75,32,32,65,32,75,32,32,32,67,66,70 
data 71,72,66,70,71,72,66,66,78,56,70, 
71,72,70,71,72,70,71,72,70,71,72,66 
data 78,66,65,70,71,72,66,70,71,72,66, 
68,32,32,32,32,32,65,32,32,32,65,32 
data 32,32,32,32,32,65,32,32,65,32,3e, 
65,32,32,65,32,32,32,32,32,32,65,32 
data 32,32,65,32,32,32,32,32,32,32,75, 
65,32,69,32,65,32,75,32,32,32,32,65 
data 75,32,65,75,32,65,75,32,65,32,30, 
75,32,32,32,65,32,75,32,65,32,75,32 
data 32,32,67,66,70,71,72,66,66,78,586, 
66,70,71,72,66,78,66,70,71,72,70,71 
data 72,66,78,66,70,71,72,66,66,78,56, 
66,70,71,72,66,68,32,32,32,32,32,65 
data 32,32,32,32,32,32,32,65,32,32,30, 
32,32,65,32,32,65,32,32,32,32,32,65 
data 32,32,32,32,32,32,32,65,32,32,3e, 
32,32,32,75,32,65,32,75,32,32,32,75 
data 32,65,32,32,69,75,32,65,32,75,65, 
76,32,75,32,76,65,32,32,32,75,69,32 
data 32,65,32,75,32,32,32,67,66,66,78, 
66,66,66,56,66,566,66,78,66,66,66,66 
data 66,78,66,566,78,66,84,84,84,66,7B, 
66,66,66,66,66,56,66,78,66,56,68,32 
data 32,32,32,75,32,32,69,32,75,32,76, 
32,32,75,32,32,76,32,75,32,32,32,32 
data 32,32,32,32,75,32,32,32,32,32,75, 
32,32,32,59,32,32,32,67,66,66,70,71 
data 72,66,70,71,72,68,67,78,71,72,70, 
71,72,70,73,72,66,68,32,67,66,7®,71 
data 72,66,66,56,70,71,72,66,56,68,32, 
32,32,32,32,32,65,32,32,32,65,32,32 


Sonderheft um 99 
NE HONSSSNETERWITS 208 


2078 
2088 
2098 
21008 
e211® 
21298 
2138 
2148 
2158 
2160 
2178 
2188 
2190 
2200 
2210 
BR2O 
22308 
2240 
2250 
2260 
2270 
22808 
2290 
23008 
2310 
2320 
2339 
2348 
2350 
2360 
2370 
238® 
2390 
2400 
241® 
2420 
2430 
2440 
2458 
E46O 
2470 
24BO 


24S® 


Spiele Listing 


data 32,32,55,32,32,65,32,32,739,32,32, 
32 ,32,32,32,32,55,32,32,32,32,32,65 
data 32,32,32,32,32,30,32,32,32,32,65, 
32,32,32,55,32,32,32,32,65,32,32,65 
data 32,32,73,32,32,32,32,75,32,32,65, 
81,32,75,32,32,65,32,32,32,32,32,32 
data 32,75,32,32,65,32,75,32,65,32,382, 
75,32,55,32,32,65,32,32,73,32,67,66 
data 55,70,71,72,78,70,71,72,68,32,65, 
32,32,32,32,32,32,67,70,71,72,78,56 
data 56,70,71,72,84,84,56,78,68,32,65, 
32,32,79,32,32,32,32,32,65,32,32,32 
data 65,32,32,32,65,32,32,32,32,32,32, 
32,32,65,32,32,32,32,32,65,32,32,32 
data 32,32,32,32,65,32,32,79,32,32,69, 
32,32,65,32,75,32,65,32,75,32,65,75 
data 32,32,32,32,32,32,32,65,32,32,382, 
69,32,65,32,32,75,32,32,75,32,65,32 
data 32,79,32,67,70,71,72,78,66,66,70, 
71,72,66,56,78,70,71,72,68,32,32,67 
data 70,71,72,70,71,72,66,78,566,566,7®, 
73,72,66,656,78,68,32,79,32,32,32,65 
data 32,32,32,32,32,65,32,32,32,32,3e, 
65,32 ,32,32,32,32,32,65,32,32,65,32 
data 32,32,32,32,32,73,32,32,32,32,32, 
69,79,75,32,32,65,32,32,32,32,76,55 
data 32,32,69,32,75,65,32,32,32,32,38, 
32,65,32,32,65,32,32,32,32,32,32,79 
data 32,32,32,32,67,66,80,70,71,72,78, 
65,68,32,67,70,71,72,66,66,66,70,71 
data 72,68,32,32,32,75,65,75,32,65,76, 
32,32,32,32,32,79,32,32,32,32,32,32 
data 32,32,65,32,32,32,32,32,32,32,65, 
32,32,32,32,32,65,32,32,32,32,67,70 
data 71,72,70,71,72,68,32,32,75,32,73, 
76,32,32,76,32,75,32,32,65,32,32,75 
data 32,32,32,76,55,32,32,32,32,75,65, 
32 ,32,32,32,32,32,65,32,32,65,32,67 
data 70,71,72,66,80,66,84,84,70,71,72, 
66,70,71,72,66,70,73,72,66,66,78,66 
data 68,32,67,70,71,72,68,32,32,32,32, 
65,32,32,65,32,32,32,65,32,32,32,32 
data 32,32,32,65,32,32,32,65,32,32,32, 
79,32,32,32,32,32,32,32,32,32,65,32 
data 32,32,32,32,32,65,75,32,65,32,75, 
32 ,65,32,32,75,32,75,32,32,65,32,75 
data 32,65,32,69,32,79,32,75,76,32,32, 
32 ,32,76,32,65,32,32,32,32,67,66,78 
data 66,66,78,56,66,65,78,66,66,56,56, 
66,66,66,78,66,66,566,78,66,66,66,8® 
data 66,66,56,84,84,84,84,66,56,78,66, 
68,32,32,32,32,75,32,32,69,32,32,32 
data 32,75,32,32,32,32,32,32,32,32,75, 
32,32,32,32,32,32,32,32,32,32,32,32 
data 32,32,32,32,32,32,32,32,67,66,70, 
71,72,66,68,67,70,71,72,70,71,72,68 
data 67,70,71,72,70,71,72,66,66,70,71, 
72,68,32,32,32,32,32,32,32,32,32,32 
data 32,32,32,32,32,65,32,32,32,32,38, 
65,32,32,65,32,32,32,32,65,32,32,65 
data 32,32,32,32,65,32,32,32,32,32,68, 
32 ,32,75,32,32,32,32,32,32,32,32,65 
data 32,32,32,32,32,65,32,32,65,32,32, 
32,32,65,32,32,65,302,32,32,32,65,32 
data 32,67,66,566,66,70,71,72,66,56,68, 
32,32,32,32,32,65,32,32,32,75,32,65 
data 69,32,65,32,32,32,75,65,32,32,65, 
32 ,32,75,32,65,32,32,32,32,32,32,32 
data 65,32,32,32,32,32,32,32,32,32,65, 
32,67,70,71,72,78,66,780,71,72,68,67 
data 70,71,72,566,78,70,71,72,70,71,72, 
68,32,32,32,32,32,65,32,32,32,32,32 
data 32,32,32,32,65,32,32,32,65,32,32, 
32,32,65,32,32,32,32,65,32,32,32,32 
data 65,32,32,65,32,32,32,75,32,32,32, 
65,32,32,75,32,32,32,32,32,75,65,32 
data 32,32,65,32,32,75,32,65,32,32,81, 
32,65,32,32,32,32,65,32,32,65,32,32 
data 67,66,70,71,72,78,70,71,72,68,32, 
32,67,65,70,71,71,72,66,78,70,71,72 
data 66,78,66,70,71,72,78,68,32,32,32, 
65,32,32,65,32,32,32,32,32,65,32,32 
data 32,65,32,32,32,32,32,32,32,65,65, 
32,32 ,32,32,65,32,32,32,32,32,65,32 
data 32,32,32,69,32,65,32,32,55,75,32, 


In „rcs d“ sind die Spielfelder untergebracht 


100 UM Sonderheft 
MN CN SOEERNVSEEN SCH 


2500 
2518 
2528 
2530 
2548 
2558 
2560 
2570 
25808 
2598 
2698 
2618 
2620 
2638 
2640 
2658 
2660 
2678 
2689 
2698 
2708 
2710 
27298 
2730 
2749 
2750 
2760 
2770 
2780 
2739 
2800 

2819 

2820 

2838 

2840 

2859 

[121217] 
2870 
2BB8 
2838 
2998 


2318 


32,32,32,55,32,32,32,65,32,32,32,32 
data 32,32,75,65,65,32,32,32,32,65,32, 
32,32,32,32,65,32,32,67,66,66,70,71 
data 72,566,78,66,70,71,72,66,78,66,66, 
70,71,72,68,32,32,67,66,70,71,71,72 
data 68,32,32,65,32,32,32,32,32,65,32, 
32,32,32,32,32,65,32,32,32,32,32,65 
data 32,32,32,32,32,32,65,32,32,32,32, 
32,32,32,65,65,32,32,32,32,65,75,32 
data 32,32,32,65,32,75,32,32,32,32,65, 
32,32,32,75,32,65,32,76,32,32,32,76 
data 65,75,32,32,32,32,32,32,65,65,32, 
32,67,66,78,70,71,72,66,66,78,66, 78 
data 71,72,68,32,65,32,67,66,66,70,71, 
72,66,84,84,84,70,71,72,68,32,32,32 
data 32,32,65,65,32,32,32,32,32,32,65, 
32,32,32,32,32,32,65,32,32,32,65,32 
data 32,32,32,32,65,32,32,32,32,32,32, 
65,32,32,32,32,32,32,75,65,65,76,32 
data 75,32,32,76,65,32,32,32,32,32,38e, 
65,32,69,32,65,32,32,32,32,75,55,32 
data 32,569,32,75,32,65,32,32,32,32,67, 
65,566,78,66,66,84,84,84,84,66,78,66 
data 68,32,67,66,66,78,66,66,566,78,566, 
68,67,66,66,78,66,66,66,56,66,56,78 
data 66,58,32,32,32,32,32,75,32,75,38, 
32,32,32,32,75,32,32,32,32,32,32,75 
data 32,32,32,32,32,32,75,32,32,32,3e, 
32,32,32,69,32,75,32,32,32,32,67,70 
data 71,72,70,71,72,68,32,67,70,71,78, 
66,66,66,66,70,71,72,66,68,32,67,66 
data 70,71,72,66,66,566,70,71,72,78,71, 
72,68,32,32,32,32,65,32,32,65,32,32 
data 32,32,32,65,32,32,32,32,32,32,65, 
32,32,32,32,32,32,32,65,32,32,32,30 
data 32,65,32,32,65,32,32,32,32,32,75, 
65,32,32,65,75,32,32,69,32,65,32,81 
data 32,32,75,32,65,32,75,32,32,32,75, 
32,65,32,32,75,32,32,65,32,32,65,75 
data 32,32,32,67,66,78,68,57,78,70,71, 
72,66,66,78,66,70,71,72,66,66,78,66 
data 66,70,71,72,66,66,78,66,66,70,71, 
72,78,68,67,78,66,68,32,32,32,32,32 
data 32,32,32,32,65,30,32,32,32,32,32, 
65,32,32,32,32,32,32,32,65,32,32,32 
data 32,32,32,32,65,32,32,32,32,32,38, 
32,32,32,32,75,32,32,32,75,32,65,32 
data 32,32,75,32,32,65,32,32,75,32,38, 
69,32,65,32,75,32,32,32,32,32,65,32 
data 69,32,75,32,32,32,32,32,67,66,79, 
71,72,66,66,78,68,32,67,78,71,72,78 
data 66,66,70,71,72,66,566,78,66,70,71, 
72,66,566,66,78,66,566,70,71,72,66,68 
data 32,32,32,32,32,65,3P,32,32,32,30, 
32,32,32,65,32,32,32,32,32,65,32,32 
data 32,32,32,32,65,32,32,32,32,32,38, 
32,32,65,32,32,32,32,32,32,69,32,65 
data 32,32,75,32,32,32,75,32,65,32,38, 
32,75,32,65,32,75,32,32,32,32,65,3® 
data 75,32,32,32,75,32,32,65,75,32,3®, 
32,32,67,66,66,78,66,78,71,72,66,7® 
data 71,72,78,68,32,67,66,66,78,70,71, 
72,566,5656,66,78,70,73,72,66,70,71,72 
data 66,78,56,66,568,32,32,32,32,32,32, 
32,32,65,32,32,32,65,32,32,32,32,32 
data 32,32,32,32,65,32,302,32,32,32,30, 
79,32,32,32,65,32,32,32,32,32,32,32 
data 32,32,32,75,32,32,32,65,32,32,32, 
65,32,32,69,75,32,32,32,75,32,65,32 
data 32,75,32,32,32,79,32,32,75,65,69, 
32,32,32,75,32,32,32,67,66,70,71,72 
data 56,78,66,566,56,78,70,71,72,66,66, 
70,71,72,66,78,66,66,78,71,72,68,73 
data 67,566,66,78,66,78,71,72,66,58,32, 
32,32,32,32,65,32,32,32,32,32,32,30 
data 32,55,32,32,32,32,65,32,32,32,32, 
32 ,32,65,32,32,73,32,32,32,32,32,32 
data 65,32,32,32,32,32,32,32,75,55,38, 
75,32,32,32,32,75,32,65,32,32,32,32 
data 65,32,32,75,32,32,32,65,32,75,79, 
75,32,32,32,75,32,65,32,75,32,30,32 
data 67,656,56,78,566,66,56,65,56,66,65, 
66,78,66,66,66,66,78,66,566,56,58B,32 
data 67,78,66,566,80,56,56,65,66,56,586, 
78,66,66,68,32 


7695 
Bo42 
7675 
7628 
7438 
8018 
7521 
7318 
7530 
7669 
7780 
8043 
7882 
724 
Bo 
7861 
7165 
7733 
7627 
8230 
7760 
7480 
7587 
7685 
7360 
8516 
7483 
7523 
7644 
7341 
7376 
7443 
7546 
7832 
7635 
8276 
7706 
7636 
7494 
ao22 
7871 


5319 


190008 
101® 
190208 
1838 
1240 
19050 
1068 


Spiele Listing 


runman construction set v2,8 
by christian drapatz '86 


programnteil 4 sprite’s 


19070 : 


1088 
10398 


1100 
1118 
11208 


1130 
1148 
115® 


a=-d:a$=chr$ (34) 

print "Celr,blu,2down, 18right)*** 
please wait "w“" 

read da:poke 122BB+a,da 

if a<3583 then a=a+tl:goto 1198 


print "C2down,bikJload”a$”rcs F”a$"”,B, 


1C3down]” 

print "CdownJrunfßBup] 
poke 631,13:poke 632,13 
poke 198,2:end 


1160 : 
data 0,255,0,0,87,0,1,117,0,1,85,90,0, 
87,0,0,20,0,0,40,0,0,40,0,0,104,0,0 
data 124,0,0,168,0,0,160,0,0,40,0,2 
44,0,0,242,0,0,0,0,0,0,0,9,0,0,0,0 


1170 
1180 
1190 
12208 
1218 
1228 
1238 
1240 
1258 
1268 
1278 
1288 
12398 
1308 
1318 
13208 
1330 
1348 
1359 
1360 
1370 
1388 
1398 
1498 
1418 
1420 
1438 
1440 
1458 
1469 
1470 
14808 
1498 


15928 


WEN. POWEESMEETERRTEB TON 


1) 
data 0,0,0,0,0,0,0,0,255,9,0,87,0,1, 
117,0,1,85,0,0,87,0,0,20,0,0,40,0 
data 49,0,0,104,0,0,1 

138,0,15,138,0,3,19 


1 
16) 
24,0,0,168,0,2 
195,0,0,15,0,0,0,0 
data 0,0,0,0,2,0,0,0 
0,255,0,80,87,0,1,117 
data 8,8,20,0,2,40,2, 
60,92,0,24,0,0,48,0,0 
data 252,0,0,0,0,0,0 
0,8,0,0,0,9,0,255,08, 
data 1, 85, 0,9,87,0,0 
8,0,104,0,0.124,0,0,1 
data ®, 138, 8, 8,130,0 
8,80,0, 0, DB, B, 2, 8, 8,0,8, 
data 2, 35 255, 2, = 255, ® 
8,0, 3ER. 8, 25 170, 0, 2,168, = 
data 252, v, 0, 168, 0,0,136 
136,0,0,204,0,0,0,0,0,0,0,0, 
data 0,0,0,0,0,0,0 ‚0,3,255,0,3,8B 
221,0,1,85,0,3,119.0.0.84,0,0,16 
data 0,2,170,0,4,16B,64,0,252,0,0,168, 
0,0,136,0 


® 
7,0,1, 
B 


0,0,0,3,255,0,3,255,0,3,255,0,3,255 
data 0,3,255,0,0,220,9,0,168,0,2,170 


data 0,3,255,0,3, 
0,0,220,0,2,170,0,2,170,0,0,1568,0,0 
data 252,0,0,168,2,0,136,0,0,149,0,0, 
128,8,0,192,0,0,0,0,0,0,0,0,0,0,0,0 
data 0,0,0,0,0,0,0,0,3,255,0,3,255,0, 
3,255,0,3,255,0,3,255,0,0,220,0,2,178 
data 0,2,170,0,0,168,0,0,252,0,0,168, 


0,0,136,8,0,200,0,0,8,0,2,12,0,0,0 


data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


0,0,255,0,0,213,8,80,93,64,0,85,64,® 


data 213,0,0,20,0,0,40,0,0,40,0,0,41, 
0,0,61,0,0,42,0,0,162,0,0,162,0,0,130 
data 0,0,243,192,0 
0,0,0,0,0,0,0,0,0,0,0,0,0,356,0,9,169 
data 0,2,179,64,10,170,144,10,170,144, 
0,37,80,0,36,0,0,36,0,0,36,0,0,36 
data 0,0,36,0,0,35,0,0,36,0,0,32,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
data 0,255,0,0,213,0,0,93,64,0,85,64, 
0,213,0,0,20,0,0,40,0,0,40,0,0,41,0 
data 0,61,0,0,42,0,0,42,0,0,8,0,0,40, 
0,0,56,0,0,15,0,0,0,0,0,0,0,0,0,0,0 
data 0,0,0,0,0,0,0,255,0,0,213,0,0,33, 
64,0,85,64,9,213,0,0,28,0,0,48,0,0 
data 40,0,0,41,0,0,61,0,0,42,0,0,16e, 
0,0,162,240,0,195,192,0,240,0,0,0,0 
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,255,0,0,213,0,0,33,64,0,85,64,0,213 
data 0,0,20,0,0,40,0,0,40,0,0,40,0,0, 


60,0,0,36,0,0,40,0,0,40,0,0,40,0,0 


data 63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,128,0,0,160,0,2,168,8 
data 2,170,0,2,170,0,10,106,128,10,86, 
128,41,85,160,43,223,160,43,33,104 
data 37,255,88,21,255,104,11,255,224, 
2,255,128,0,126,0,0,0,0,9,0,0,0,0,0 


151® 
1520 
1530 
1549 
1550 
1568 
1570 
15808 
1598 
1608 
1618 
1620 
1638 
1648 
1658 
1669 
1678 
1688 
1698 
1799 
1718 
17208 
1738 
1749 
1758 
1768 
1770 
1780 
1798 
1888 
1818 
1820 
1838 
1840 
1850 
1860 
1870 
1880 
1838 
19008 
1918 


1928 


1938 


1948 


data 8,8,0,0,0,8,0,0,0,8,0,0,0,0,40,0, 
8,178,0,2,179,0,2,1780,128,2,158,128 
data 10,990,160,9,213,160,43,85,168,41, 
95,104,37,253,88,21,255,88,11,055 
data 224,3,255,192,0,254,0,0,0,0,0,0, 
0,0,0,0,08,2,8,0,0,82,0,8,0,0,20,32,8 
data 0,128,2,0,160,0,2,1780,0,2,170, 
128,10,165,128,18,99,160,41,245,160,41 
data 87,168,39,95,104,37,253,88,21, 
e55,88,11,255,224,1,255,64,0,254,0,0 
data 0,0,90,0,0,0,0,0,2,0,0,2,0,9,0,0, 
0,0,2,40,0,0,8,0,0,138,8,0,170,0,2 
data 170,128,2,150,128,10,90,1560,5, 
217,160,43,87,168,41,95,104,38, 253,88 
data 21,255,88,11,255,240,3,255, 128,2, 
e54,0,0,2,0,0,0,0,0,0,0,2,2,0,0,0 
data 0,90,0,0,0,8,32,0,0,40,0,0,168,2, 
2,170,92,2,166,0,10,159,128,10,90,128 
data 43,217,160,43,93,160,37,95,104, 
37,221,88,23,255,88,11,255,249,3,255 
data 128,0,254,0,0,0,0,0,0,0,0,2,0,0, 
0,0,08,0,0,0,0,0,0,0,92,0,0,84,0,1,85 
data 08,1,85,0,1,153,0,1,153,0,1,221,2, 
1,85,0,1,101,8,1,85,0,1,153,2,1,101 
data 08,1,85,0,1,85,0,1,17,0,0,0,0,0,2, 
0,0,0,8,9,0,0,0,0,80,2,0,20,0 

data 8,84,0,1,85,0,1,85,0,1 

221,8, 1, 153, 8,1, 85, ®, 1,101, 

data 1, 153, 2, 21,0.1. 
17,80,8,8, 2,0 

data 2.0.0.0 
0,1,221,0, % 
data 101,8, 
85,2,1, 85,0 R 
data 0,8, 56 
,87,0717, 07,07: 

data 0,1,85,0,2, 
101,8, 1, 81 ‚2,1,8 

data 2,0,0, 0,0,0, 
0,0,0,68,0.1,81, 

data 8,8,136,0,1, 
136,8,1,5,8,1,81, 
data 8,0,0,0,0,0, 
8,8,8,2,08,0,68,0 

data 1,16,80,8,12 
8,8,128,80,1,0,0, 

data 0,0,0,0,0,0, 
80,0,0,0,0,0,4,8,1 
data 8,80,0,128,2, 
2,9,1,0,0,0,1,0,2, 
data 8,0,80,0,0,0,0, 
0,08,8,84,0,1,85,80,1,8 
data 153,0,1,221,8,1, 
85,8,1,153,80,1,101,0 
data 68,0,0,0,2,0,8 
08,0,82,8,2,80,0,0,0,8 
data 8,1,153,0,1,2 
1,101,90,1,85,0,1,1 
data ®8,1,85,0,2,68 
0,0,0,90,0,0,8 

data 1,85,0,1 
153,80,1,85,2, 

data 1,101,2, 


B 
(%) 


1, 
‚0, 
‚@ 
15 
2 


Baneser 
-- 8- 88r86- 


data B9,0,1, 
1,65,80,1,64, 
data 1,17,8 
0,80,0,0,9,0 
data 85,0,1 


Sonderheft Qwıp 101 


1,70,0,1,65,0,1,64,0,1,80,0,1,85,0 
data 1,85,92,2,58,0,0,0,0,0,0,0,0,0,0, 
0,0,2,0,0,2,0,0,0,0,0,0,2,0,0,0,2,128 
data 0,2,162,8,10,168,0,2,170,32,10, 
154,128,10,86,158,42,221,160,43,33,168 
data 41,223,104,21,253,104,11,255, 224, 
2,191,128,0,126,0,0,0,0,0,0,0,0,0 
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2, 
0,2,0,0,8,32,0,0,168,128,0,168,32,2 
data 170,0,2,154,0,10,150,128,10,86, 
128,41,223,160,37,253,36,11,255, 224 
data 2,191,128,0,126,0,0,0,0,0,0,0,®, 
0,0,0,0,0,02,0,0,0,0,0,0,0,2,0,2,0,8 
data 8,0,128,0,0,0,0,0,0,0,0,0,0,32,0, 
0,168,0,2,170,0,2,150,0,10,93,128 
data 9,191,128,11,221,96,2,191,128,0, 
126,0,0,0,0,0, 

data 0,0,0,0,3 

0,0,0,0,0,0,0, 

data 0,0,490,0, 

128,0,190,0,0, 

data 0,0,2,0,0,0,90,0,5 
6,170,144,6,170,144,6, 

data 6,125,144,56,125,144,6,85,144,5, 
255, 144,6,255,144,6,85,144,6,125, 144 
data 6,125,144,6,85,144,6,85, 144,6, 
170,144,6,170,144,5,85,80,5,85,80,0,0 
data 0,0,5,85,80,5,85,80,7,255,144,7, 
255,144,7,85,144,7,85,144,7,125, 144 
data 7,125,144,7,85,144,7,255, 144,7, 
255,144,7,85,144,7,125,144, 7,125, 144 
data 7,85,144,7,85,144,7,255, 144,7, 
255,144,5,85,890,5,85,80,0,0,0,0,5,85 
data 80,5,35,80,6,178,144,6,170,144,7, 
85,144,7,85,144,7,125,144,7,125,144 
data 7,85,144,6,170,144,6,170,144,6, 
85,208,5,125,208,5,125,208,6,85,208 
data 6,85,208,6,170,144,6,170,144,5, 
85,52,5,85,82,2,0,0,02,5,85,80,5,85,80 
data 6,17@,144,6,178,144,7,85,144,7, 
85,144,7,125,144,7,125,144,7,85,144 
data 6,178,144,6,17@,144,7,85,144,7, 
125,144,7,125,144,7,85,144,7,85,144 
data 6,170,144,5,178,144,5,85,880,5,85, 
80,0,0,0,2,5,85,30,5,85,80,6,255, 144 
data 6,255,144,5,85,144,6,85,144,6, 
125,144,6,125,144,5,85,144, 6,170, 144 
data 6,178,144,7,85,144,7,125, 144,7, 
125,144,7,85,144,7,85,144,7,255, 144 
data 7,255,144,5,85,80,5,85,80,0,0,0, 
0,5,85,80,5,85,80,6,178,144,6,170,144 
data 6,85,208,5,85,208,5,125,208,5, 
125,208,6,85,208,6,170,144,6,170,144 
data 7,85,144,7,125,144,7,125,144,7, 
85,144,7,85,144,6,170,144,6,170,144 
data 5,85,80,5,85,80,0,0,0,0,5,85,80, 
5,85,80,6,255,208,6,255,208,6,85,208 


Die Spritedaten in „rcs e" 


runman construction set v2.8 
by christian drapatz ’86 


programmteil 5 : zeichensatz 


sp(8)-8132:sp(1)-36096: sp(2)-44720 

aC8)-703:aC1)=-192:aC2)=206 

n=®:q$=chr$ (13) 

print "Cclr,wht,2down, 10rightJ*** 
please wait **#" 

a=®d 

read da:poke sp(n)+a,da 

if a<a(n) then a=a+tl:goto 1130 
n=n+1 

if n<3 then 1120 

print ”"[clr,2right,cyn]Jnun wird das 
programm unter dem file” 

print "[down,Zright]’runman c.set v2’ 
auf diskette, mit” 

print "[down,2Zright293 bloecke, 
abgespeichert !” 


102 QUD Sonderheft 
Re ce TE ne een, 


2238 
224B 
2250 
2260 
2270 


2280 


2290 
2300 
2310 
2320 
23308 


2340 
2358 
2360 
2370 
2388 
2398 
2400 
2418 
2420 
2430 
2440 
E45@ 
E4EO 
2470 
2480 
2490 


2508 


data 6,85,208,6,125,208,5,125,208,6, 
85,208,6,170,144,6,178,144,6,85, 144 
data 6,125,144,6,125,144,6,85,144,6, 
65,144,6,170,144,6,170,144,5,85,80,5 
data 85,89,8,0,0,0,5,85,80,5,85,80,5, 
170,144,6,170,144,7,85,144,7,85, 144 
data 7,125,144,7,125,144,7,85,144, 7, 
255,144,7,255,144,7,85,144,7,125, 144 
data 7,125,144,7,85,144,7,85,144,7, 
255, 144,7,255,144,5,85,80,5,85,80,0,® 
data 0,0,5,85,80,5,85,80,6,170,144,6, 
170,144,6,85,144,6,85,144,6,125, 144 


data 6,125,144,5,85,144,6,170,144,6, 
170,144,6,85,144,5,125,144,6,125, 144 
data 6,85,144,6,85,144,6,170,144,6, 
170,144,5,85,50,5,85,80,0,0,0,0,5,85 
data 80,5,85,80,5,170,144,6,170, 144,6, 
85,144,6,85,144,5,125,144,6,125, 144 
data 6,85,144,5,1798,144,6,170,144, 7, 
85,144,7,125,144,7,125,144,7,85, 144 
data 7,85,144,7,255,144,7,255,144,5, 
85,80,5,85,80,0,0,0,0,5,85,80,5,85,8® 
data 7,255,2@8,7,255,208,7,85,208,7, 
85,208,7,105,208,7,105,208,7,85,208 
data 7,255,208,7,255,208,7,85,208,7, 
105,208,7,105,208,7,85,208,7,85,208 
data 7,255,208,7,255,208,5,85,80,5,85, 
80,0,0,0,0,8,178,0,42,178,160,10,106 
data 160,190,17@,104,41,154,194,42,30, 
170,170,153,178,171,159,162,165,221 
data 170,169,85,1@%,41,85,184,37,221, 
96,37,125,88,41,85,35,10,85,32,2,85 
data 128,15,97,248,53,215,252,63, 247, 
252,63,255,252,8,8,0,2,0,2,0,0,0,0 
data 3,255,0,3,255,2,3,255,8,3,255,0, 
7,87,64,2,154,2,0,158,8,0,252,0,0,168 
data 0,0,136,2,2,135,2,3,207,0,0,0,0, 
0,0,0,0,0,8,0,0,2,2,08,2,2,0,0,0,0,0 
data 0,0,0,0,2,2,2,2,2,2,02,0,0,0,0,0, 
3,255,0,3,255,@,19,255,15,11,255,128 
data 10,154,128,2,178,8,3,3,0,0,0;0,0, 
0,0,0,0,0,0,0,2,2,2,2,0,2,2,0,0,0 
data 0,0,0,9,0,0,2,2,2,2.2,2,0,0,0,0, 
0,0,0,2,170,0,2,17@8,8,11,130,128,10 
data 170,128,1@,17@,128,11,255,128,19, 
255,16,3,255,8,3,255,8,0,0,0,0,0,0 


data 08,136,®8 
8,168,0,3,87 
‚o 


data 8,0,0,2 
192,6,86,64, 
data 0,0,0,0 
0,0,2,2,0,0, 


print "Cdown,2Zright]Jf ist denn noch 
platz auf diskette ? )"” 

print "[2down, Zright,red)sollen die 
einzelfiles vorher noch” 

print "Cdown, ZrightIgeloescht werden 
CJ/n] ?” 

print "Chome, 14down, Zrightlantwort 
C2spaces, 2left)”; 

open 1,8:input#1,a$:close 1 

a$=-left$ (a$,1) 

if a$="j"” then print q$"[down,2right, 

ern]lscratch rcs®":open 1,8,15, ”s:ros*" 
:close 1:goto 1278 

if a$<>”"n” then 1229 

print q5”"C[down,2Zright, redJnach 
erscheinen von ’ready',muessen "” 
print "[down,Zright]lsie,um zu spielen, 
’run' ein.” 

print q$"[down, Zright,grn]save runman 
c.set v2”:sys sp(1) 

data 69,192,110,110,35,38,50,0,14,22, 
22,30,38,38,207,0,124,182,182,60,54 
data 54,124,0,62,102,194,192,196,108, 
60,8,124,182,182,54,54,54,124,0,254 


data 98,96,120,98,102,254,0,254,98,S6, 
120,96,36,240,0,62,102,1394,192,207 
data 102,60,0,238,108,108,124,108,108, 
238,0,60,04, 24,24, 24,24,60,0,62,76 
data 108,12,12,108,55,0,115,178,180, 
60,54,50,115,0,240,96,36,35,38, 102,254 
data 0,238,126,126,110,102,102,227,0, 
230,246,126,110,102,102,231,0,69,102 
data 198,198,198,204,124,0,124,182, 
182,52,48,48,120,0,60,78,138, 214,222 
data 236,126,1,124,182,182,50,52,50, 
123,0,30,114,96,112,28,204,120,0,126 
data 178,48,48,48,48,120,0,239, 102, 
102,102,102,102,60,0,116,214,150,54,54 
data 50,28,0,221,221,217,218, 252,216, 
144,0,102,100,56,24,28,38,102,0,231 
data 98,124,24,24,24,60,0,254,204, 152, 
48,98,198,254,0,60,48,48,48,48, 48 
data 60,0,28,36,48,124,48,98,252,0,60, 
12,12,12,12,12,60,0,0,24,60, 126,24 
data 24,24,24,0,16,48,127,127,48,16,®, 
0,0,0,0,0,0,0,0,24,24,24,24,0,0,24 
data 0,102,102,102,0,0,0,0,0,102,1oe, 
255,102,255,102,102,0,24,62,36,69,6 
data 124,24,0,38,102,12,24,48,102,70, 
0,60,102,60,56,103,102,63,0,6,12,24 
data 0,0,0,0,0,12,24,48,48,48,24,12,0, 
48,24,12,12,12,24,48,0,9,102,60,255 
data 60,102,0,0,0,24,24,126,24,24,0,0, 
0,0,0,0,0,24,24,48,0,0,0,126,0,0,® 
data 8,0,0,0,0,0,24,24,0,0,3,6,12,24, 
48,396,0,60,78,214,214,214,228,124,® 
data 24,56,24,24,24,24,60,0,60,102, 
102,6,24,112,126,0,60,192,6,28,6,102 
data 60,0,12,28,44,76,126,12,12,0,30, 
48,48,28,6,56,50,0,12,24,48,108, 102 
data 1902,60,0,126,6,12,24,48,48,48,®, 
24,102,118,24,110,192,24,0,60,102,102 
data 54,6,1?,24,0,0,24,24,0,0,24,24,0, 
0,24,24,0,0,24,24,48,14,24,48,36,48 
data 24,14,0,0,0,126,0,0,126,0,8,112, 
24,12,6,12,24,112,0,254,6,5,62,48,0 
data 48,0,0,0,0,0,0,0,0,0,55,85,55,65, 
65,85,65,65,0,0,0,170,170,170,178 
data 255,0,0,0,2,10,42,170,255,8,0,0, 
170,168,160,128,192,0,48,252,48,48 
data 48,48,48,0,0,0,170,170,168,160, 
P24,65,85,65,105,105,85,65,65,0,0,® 
data 170,170,10,42,63,16,16,16,154, 
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154,16,16,16,0,0,0,234,186,174,171,055 
data 0,5,61,61,61,60,0,0,0,52,52,52, 
60,60,60,0,0,60,60,60,52,52,52,8,65 
data 85,65,105,105,17®,170,255,16,16, 
16,16,16,16,16,16,16,16,16,154, 154 
data 170,170,255,85,215,215,85,18S, 
125,85,20,0,126,126,126,126,126,126,8 
data 36,36,228,4,4,252,0,0,0,0,2,171, 
174,178,202,255,36,36,39,32,32,53,® 
data 0,0,126,66,66,66,656,126,0,0,2, 
255,0,0,255,9,0 

data 169,54,133,1,169,0,133,166, 165, 
166,10,10,18,170,160,0,189,98,141,153 
data 176,0,232,200,192,6,208,244,160, 
0,177,176,145,180,165,177,197,179,208 
data 6,165,176,197,178,176,14,230,176, 
208,2,230,177,230,180,208,228,230 
data 181,208,224,230,166,165,166,201, 
10,208,196,162,8,32,186,255,169,15 
data 162,178,160,141,32,189,255,1683, 
43,162,5,160,100,32,216,255,169,55,133 
data 1,76,116,164,176,174,127,175,1,8, 
0,0,0,144,100,159,208,8,0,0,0,32,192 
data 34,0,112,0,0,0,160,161,174,52,24, 
0,0,0,48,0,62,0,176,0,0,0,128,31,140 
data 10,39,0,0,0,112,192,114,191,51,0, 
0,0,80,224,111,0,144,0,0,0,144, 224 
data 175,37,54,0,0,0,176,0,190,5,86,0, 
0,82,85,78,77,65,78,32,67,46,83,69 
data 84,32,86,50 

data 27,8,10,0,158,32,32,50,48,55,55, 
58,82,85,78,77,65,78,32,67,45,32,83 
data 69,84,0,0,0,169,0,141,32,208,141, 
33,208,133,2,173,17,208,41,239, 141 
data 17,208,165,2,10,10,10,170,160,0, 
189,123,8,153,167,0,232,200,192,6,208 
data 244,168,9,177,167,145,171,165, 
168,197,179,208,6,165,167,197,169, 240 
data 14,230,167,208,2,230,168,230,171, 
208,228,230,172,208,224,230,2,165 
data 2,201,9,208,136,162,255,232,189, 
187,8,157,7,B,224,4,298,245,76,0,144 
data ?08,8,52,24,0,144,0,0,52,24,10, 
39,8,160,8,0,10,39,101,51,0,128,0,0 
data 101,51,37,54,8,112,8,0,37,54,5, 
86,9,16,0,0,5,86,5,108,0,48,0,0,0,16 
data 224,47,0,80,0,8,0,112,192,114,0, 
32,0,0,51,54,56,54,52,0,0,80,0,0,0,0 
data 8,0,0,0,0,2,0,0,0 


„res f" beinhaltet den geänderten Zeichensatz 


FLEXIBLE 
DB-ORGANISATION 
CONTRA 
„STÜCKLISTEN- 
EXPLOSIONEN“ 


Immer wenn die computerunterstützte Pro- 
duktionsplanung und -steuerung mit wenig sta- 
bilen Rahmenbedingungen leben muß, ist die 
DV-technische Seite besonders gefordert — in 
kleineren und mittleren Betrieben oft über- 
fordert. Häufige Produktwechsel, Störungen 
an den Werkzeugen oder Maschinen oder 
Unterbrechungen bei der Materialversorgung 
stellen typische PPS-Problemfälle dar. Und 
geradezu wenn eine hohe Anzahl von Varian- 
ten innerhalb des Erzeugungsspektrums ge- 
geben ist, fressen Stücklisten und Bedarfsrech- 
nung Speicherkapazität und Rechner- 
geschwindigkeit auf. 

Mit der vorliegenden Arbeit werden in der 
Praxis entwickelte und erprobte Datenstruktu- 


ren und Algorithmen gezeigt. Unter anderem 
wird ein Expertensystem für variantenreiche 
Produktionsprogramme realisiert, das durch 
seine Verknüpfungstechniken redundante Da- 
ten abbaut, „Stücklisten-Explosion“ vermei- 
det und somit die wirtschaftliche Verarbeitung 
großer Datenmengen im PPS-Bereich 
ermöglicht. 
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Spiele Listing 


„EXplode“ jagt den 
€Eommodore in die Luft!!! 


System: C64/16/128 
Typ: Spiel 
Sprache: Basic 


„Explode" vereinigt Action- und 
Strategiespiel in einem Pro- 
gramm. Es geht darum, ein 8 mal 8 
Quadrate großes Feld so zu beset- 
zen, daß es zu Explosionen und 
Kettenreaktionen kommt, die den 
Gegner auslöschen. Das Pro- 
gramm ist zwar für Commodore 
64-Computer geschrieben, jedoch 
ohne große Schwierigkeiten mit 
der ausführlichen Programmbe- 
schreibung an alle anderen Com- 
modore Computer der Serie C16/ 
116/Plus 4 und C128 anzupassen. 


Delete Ben 


Nach dem Start meldet sich „Ex- 
plode" mit Vorspann und Copy- 
rightserklärung. Danach sind die 
Namen der beiden Spieler einzu- 
geben. Auf Wunsch printet das 
Programm eine zweiseitige Spiel- 
beschreibung. Das Spiel beginnt 
mit der Eingabe des X- und dann 
des Y-Wertes durch den ersten 
Spieler. Danach folgt der zweite 
Spieler, der seine Werte eingibt. 
Kurzzeitig unterbrochen wird das 
Spiel durch Explosionen, die zu 
dauerhaften und, zum Teil, lang- 
wierigen Kettenreaktionen führen. 
Hat ein Spieler gewonnen, gibt 
der Commodore das bisherige 
Spielergebnis aus und will wissen, 
ob man weiterspielt. Je nach Ein- 
gabe geht's in die nächste Runde 
oder das Programm verabschie- 
det sich. 

Spielanleitung: 

„Explode" ist nur auf einem Com- 
puter optimal zu spielen. Es wurde 
für diese Geräte entwickelt. Sinn 
ist es, alle gegnerischen Felder 
mit der eigenen Farbe zu beset- 
zen und so das Spiel zu gewinnen. 
Jeder Spieler setzt pro Durchgang 
einen Stein auf ein beliebiges, je- 
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Zwei Spieler nehmen 

in diesem Denkspiel 
den Kampf gegenein- 
ander auf. Nur wer die 


bessere Übersicht hat 

und trotz andauernder 

Explosionen alles kon- 

trolliert, hat Chancen 
zu gewinnen. 


doch entweder freies oder bereits 
mit eigener Farbe besetztes Feld. 
Je nach Feldlage und Anzahl der 
bereits dorthingelegten Steine ex- 
plodiert das Ursprungsfeld und 
schleudert seine Bruchstücke in 
alle senkrechten Richtungen. Die 
getroffenen Felder erhalten die 
Spielfarbe des aktuellen Spielers, 
der gerade gesetzt hat. Ihre Wer- 
te werden um eins erhöht. Das ex- 
plodierte Feld erhält den Wert: 
„Ursprungswert-Wert, der zur Ex- 
plosion als Minimum erreicht sein 
muß". 


Explosiv: 2, 3 und 4 


Explosionen erfolgen bei folgen- 
den Zahlen: 

Eckfelder (1,1/1,8/8,1/8,8) 
zwei oder mehr Steinen. 
Randfelder (zum Beispiel 1,2 bis 
1,7) bei 3 oder mehr Steinen 
Mittelfelder (zum Beispiel 2,6) bei 
4 oder mehr Steinen. Die Farbe ei- 
nes vom Gegner besetzten Steines 
kann nur dadurch umgedreht 
werden, daß im Nachbarfeld eine 
Explosion stattfindet und ein 
Trümmerstück auf dieses Feld 
stürzt. Auf bereits besetzte Felder 
der Gegenfarbe kann nicht ge- 
setzt werden. Felder, die nach ei- 
ner Explosion den Wert „O" auf- 
weisen, sind von beiden Parteien 
wieder besetzbar. Bei einem Spiel 


bei 


INA NESRE FERN OR DESM 


ist es wichtig, einen Stein weit ab 
vom explosiven Geschehen zu 
halten, damit im Falle einer unge- 
ahnten gegnerischen Kettenreak- 
tion mindestens dieser eine Stein 
als Basis erhalten bleibt. Sind alle 
Steine bei einer Kettenreaktion 
oder einer einfachen Explosion 
umgedreht worden, hat der aktu- 
elle Spieler gewonnen. Außerst 
reizvoll ist das Spiel, wenn man vie- 
le Steine auf dem Brett hat, so daß 
eine Kettenreaktion nicht immer 
den Verlauf nimmt, den man er- 
wartet hat. Dieses Programm ist 
hervorragend zum Zeitvertreib zu 
zweit geeignet und bringt Action 
in die Kategorie der Denkspiele. 


Zeile Funktion 
0000I— Sprung in das Haupt- 
00001 menü ab Zeile 5000 
00002— Das Feld mit der Koordi- 
00002 nate X,Y wird um eins er- 
höht. Das Feld erhält die 
Spielernummer des aktu- 
ellen Spielers SP. 

Sound bei Explosion aus- 
geben. Lautstärke 
(VO,15) voll aussteuern. 
Cursor nach links oben 
(Home). Besitzer eines 
Commodore-Computers 
der Serie C16 oder C128 
sollten die Pokes entwe- 
der entfernen (nicht ein- 
tippen) oder die Anwei- 
sung SOUND benutzen. 
Nur so gibt es keine Kom- 
patibilitätsprobleme. Der 
Sound ist allerdings nicht 
überragend. (Ist ja auch 
kein Musikprogramm!!!) 
Der Cursor wird für die 
Ausgabe vorbereitet, in- 
dem er an die entspre- 
chende X/Y-Achse ge- 
steuert wird. 

Ist der Wert der Zelle 
gleich 0, so wird der 
Spielerwert des Feldes 
neutralisiert (auf 0 ge- 
setzt) und eine Null weiß 
auf schwarz ausgegeben. 
00160— Ausgabe des errechne- 


00010— 
00010 


00070— 
00120 


00150— 
00150 


Spiele Listing 


00160 ten Feldwertes, der vor-- 00194— IstFlag= 1soX und Y ist C18/128-Serien sollten 
her in einen String umge- 00194 gleich X1 und Yl. Danach hier einen REMark ein- 
wandelt wurde. Interes- Sprung zum Änfang der geben und müssen dann 
santerweise ist dieser Explosionsroutine in Zeile ebenfalls nicht die Zeilen 
String mindestens zwei- 00170. 59999 bis 60030 einge- 
stellig, so daß mit RIGHT- 00197— Keine weitere Explosio- ben. 
$(String,]) eine einzige 00197 nen. 05001— Hintergrund und Rahmen 
Stelle ausgegeben wird. 00199— Hier erfolgt die Eingabe. 05001 schwarz machen. Hier 

00168— Berechnung der Werte 00280— Die ersten vier Bild- sollten C16/116/Plus4 

00169 zur Explosion. 00204  schirmzeilen löschen und und 128er Benutzer die 

00170— Vom Feld mit Koordina- den Cursor nach links COLOR-Anweisung nut- 

00170 ten X/Y wird der ent- oben an den Bildanfang zen, damit EXPLODE auf 
sprechende Maximal- setzen. diesen Rechnern läuft. 
wert, festgelegtinderM- 00210— Eingabeabfrage für den 05002— Die Variablen (siehe Va- 
Matrix, abgezogen. Das 00221 jeweiligen Spieler SP: X- 05003 riablenerklärungen) wer- 
Feld erhält den Spieler- Achse. den initialisiert und Groß- 
wert neutral (=0). Falls 00222— Ist X im Bereich des schrift eingestellt. 
das Feld einen Wert 00224 Spielfeldes? Wenn ja, 05005— Die Matrix mit den Maxi- 
über 0 hat, erhält es an- dann weitermachen, 05005 malwerten des jeweili- 
schließend den Spieler- wenn nein, dann nächste gen Feldes wird durch 
wert des aktuellen Spie- Eingabe. einen GOSUB erstellt. 
lers SP. 00225— Eingabe, die gemacht 05010— Das erste Bild nach dem 

00172— Die Variablen X und Y 00225 wurde, anzeigen. 05110 Programmstart, das man 

00172 werdeninXl und Ylals 00230— Wie zwischen 00210 bis am Monitor sieht, wird 
Stammvariablen unterge- 00251 00225 nur mit der Y-Ach- durch diese Zeilen ge- 
bracht, se. printet. 

00174— Um die vier senkrecht 00255— Die ersten vier Bild- 05120— Hier wartet der C64 auf 

00180 herumliegenden Felder 00260 schirmzeilen löschen und 05120 einen Tastendruck. Besit- 
der Stammvariablen wer- zum Menü zurück. zer anderer Commodo- 
den die Feldwerte um 00299— Hier wird geprüft, ob das re-Serien wechseln die- 
eins erhöht, falls dasFeld 00370 eingegebene Feld schon sen Befehl mit GETKEY$ 
innerhalb der Begren- vom Gegenspieler be- oder INPUT aus. 
zungen im sichtbaren Be- setzt ist. 05115— Dieser Poke löscht den 
reich liegt. Danach wer- 00300— EFLAG=ErrorFlag wird 05115 Tastaturzwischenspei- 
den die neuen Daten 00300 auf‘ gesetzt. cher, so daß bereits ge- 
automatisch ausgegeben. 00310— Wenn der Spielerwert drückte Tasten nicht be- 

00182— FLAG wird neutralisiert 00310 des Feldes neutral ist, ist rücksichtigt werden. Die- 

00182 und dient als Testvaria- die Eingabe o.k., daher se Speicherstelle ist je 
ble. Rücksprung ins Menü. nach Rechner verschie- 

00184— Prüft alle Felder auf Er- 00320— Wenn der Spielerwert den. Es ist der Wert ein- 

00190 reichen oder Überschrei- 00320 desFeldesdem Wert des zusetzen, der im Hand- 
ten des Maximalwertes. Spielers entspricht, der buch als Zähler der im 
Falls Ergebnis positiv, gerade gesetzt hat, so ist Tastaturpuffer stehenden 
wird FLAG auf 1 gesettt, die Eingabe o.k., und es Zeichen bezeichnet wird. 
was bedeutet, daß eine folgt ein Rücksprung ins 05120— Abfrage nach Spielre- 
Explosion fällig ist. Die Menü. 05210 geln. Falls die Spielre- 
Koordinaten des Feldes 00330— Die Eingabe war nicht geln erwünscht sind, 
stehen in Xl und Yl 00370 möglich. Diese Meldung wird in das Unterpro- 
(Stammvariablen). Eine wird ebenfalls am Bild- gramm „Spielregeln aus- 
weitere Prüfung findet schirm ausgegeben, das geben“ gesprungen. 
dann nicht mehr statt. EFlag auf 1 gleichbedeu- 05230— Bildschirm löschen 
Dies ist der Grund, wes- tend mit Eingabefehle 05250 (CLR/HOME) und Abfra- 
halb eine Explosion in gesetzt. Sprung ins Menü ge nach den Namen der 
den oberen, linken Fel- erfolgt am Ende. beiden Spieler. 
dern schneller entdeckt 00500— Testschleife zur Zeitopti- 05390— Sprung zum Unterpro- 
und ausgeführt wird als 00540 mierung. 05390 gramm, das das Spielfeld 
eine Explosion im rech- 04999- Hauptprogramm von Ex- aufbaut. 
ten, unteren Teil des 05490  plode = Steuerzentrale 05400— Die Nummer des aktuel- 
Feldes. (Geprüft wird von 05000— Soundwerte und -varia- 05400 len Spielers wird um eins 
links obennach rechtsun- 05000 bien initialisieren. Benut- erhöht. Ist die Zahl grö- 


zer von Rechnern der 


Ber zwei (es gibt nur zwei >» 
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05405— 
05406— 
05410 
05420— 
05420 


05430— 
05430 


05435 — 
05435 


05440 — 
05440 


05450— 
05450 


05460— 
05480 


05490— 
05490 


06999 — 
07100 


Spieler), so ist Spieler 1 
an der Reihe und SP da- 
her 1. Zu Anfang des 
Spieles ist SP=0, so daß 
immer erst Spieler 1 be- 
ginnt. P=0+]) 

Siehe Zeile 05115. 
Sprung in das Unterpro- 
gramm „Eingabe". 
Sprung in das Unterpro- 


gramm „Eingabe kor- 
rekt?" 
Wenn das Errorflag 


(EFLAG) gesetzt ist, so ist 
die Eingabe falsch und 
muß wiederholt werden. 
Daher Rücksprung zu 
Zeile 05410 des Haupt- 
menüs. 

Der eingegebene Feld- 
wert wird um eins erhöht 
und das Feld erhält den 
Spielerwert des aktuel- 
len Spielers, egal ob es 
diesen schon hatte oder 
nicht, 

Falls der neue Feldwert 
den Maximalwert er- 
reicht, wird in die Explo- 
sionsroutine gesprungen, 
die die Explosion auslöst 
und eventuell eine ganze 
Kettenreaktion selbstän- 
dig ausführt. 

Liegt keine Explosion vor, 
wird der um eins erhöhte 
Feldwert in der Routine 
„Ausgabe“ ausgegeben. 

Ist ZFLAG 0, so war dies 
der erste Zug. Daher 
kann noch nicht geprüft 
werden, ob alle Steine 
des Gegners vernichtet 
sind und Spieler 1 somit 
gewonnen hat, da noch 
gar keine Steine von Spie- 
ler 2 gesetzt wurden. Da- 
her Siegersuchroutine 
umgehen und ZFLAG auf 
l setzen, da erster Zug 
ausgeführt. 

Der nächste Spieler 
kommt, indem an den Än- 
fang des Hauptmenüs in 
Zeile 05400 gesprungen 
wird. 

Spielfeld aufbauen. In 
diesem Unterprogramm 
baut EXPLODE das 
Spielfeld auf, in das die 
Steine gesetzt werden. 
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08499 — 
08570 
08500— 
08500 


08505— 
08505 


08510— 
08560 


08570— 
08570 


19999 — 
20220 


20005— 
20040 


20045— 
20110 


20120— 
20150 


Sieht man von einer ge- 
wöhnlichen FOR . .NEXT- 
Schleife ab, ist dieses Un- 
terprogramm nur aus ein- 
fachen PRINT-Komman- 


dos aufgebaut. 
Ist der Gegenspieler 
besiegt. 


Das Siegerflag SFLAG 
wird auf 1 gesetzt, und so- 
mit wird davon ausgegan- 
gen, daß der aktuelle 
Spieler gewonnen hat, da 
der Gegenspieler kein 
Feld mit eigenen Steinen 
mehr hat. 

Der aktuelle Gegenspie- 
ler wird ermittelt. Man 
vergleiche hierzu Zeile 
05400. 

Alle Felder werden dar- 
auf geprüft, ob sie den 
Spielerwert des Gegen- 
spielers haben. Hat ein 
Feld diesen Spielerwert, 
so wird SFDLAG auf 0 ge- 
setzt, da der aktuelle 
Spieler noch nicht ge- 
wonnen hat, und die Su- 
che nach weiteren Fel- 
dern mit dem Spieler- 
wert des Gegenspielers 
abgebrochen. 


Anschließend Rückkehr 
ins Hauptmenü. 

Ein Spieler hat gewon- 
nen. Der Spielstand wird 
ausgegeben und gefragt, 
ob weitergespielt wird. 
Fünf mal eine ansteigen- 
de Tonhöhe erklingen 
lassen. Diese Zeilen müs- 
sen entweder mit 
SOUND-Anweisungen 
ersetzt oder in REMarks 
umgewandelt werden, 
damit Besitzer anderer 
Commodore-Rechner als 
dem C64 dieses Pro- 
gramm nutzen können. 
Bildschirm löschen und 
das aktuelle Spielergeb- 
nis printen (Spielerna- 
men mit jeweiliger Punkt- 
zahl). 

Frage, ob weitergespielt 
wird. Falls nein: Bild- 
schrm löschen und 
„schade ..." hinschrei- 
ben und Programm be- 


20160— 
20210 


20215— 
05400 


59999 — 
60030 


60999 — 
61270 


61999 — 
62060 


62100— 
62170 


enden. Falls ja: Im Pro- 
gramm weitermachen. 
Alle NULL-Variablen wie 
nach einem RUN auf 0 
setzen. Feldvariablen mit 
deren Spielerwerten auf 
0 setzen und somit neu in- 
itialisieren. 

Das Spielfeld neu auf- 
bauen und zum Haupt- 
menü. 

Sound initialisieren. Die- 
se Routine muß von Besit- 
zeın anderer Commodo- 
re-Systeme als den C64 
nicht abgetippt werden. 
Im Unterprogramm wer- 
den die Variablen für die 
Soundchipbeeinflussung 
(siehe Variablen) sowie 
die Tonart festgelegt. 
Spielregeln: Wie jedes 
Spiel hat auch EXPLODE 
eine kleine Routine, in 
der die Spielregeln ste- 
hen. 

M-Matrix anlegen. Bei 
Explode explodieren die 
Steine, je nach Lage, bei 
verschieden hohen Wer- 
ten. Diese Maximalwerte 
oder Explosionswerte 
sind in der zugehörigen 
M(X/Y)-Variable zu fin- 
den. Diese Variablen 
müssen daher zu Beginn 
des Spieles mit diesen 
Werten beschrieben 
werden. Dies geschieht 
mit einer kleinen READ 
DATA Routine, die die je- 
weiligen Werte aus der 
nachfolgenden DATA- 
Matrix liest und den je- 
weiligen M-Matrixwerten 
zuordnet. 

In diesem Programmteil 
sind die DATA-Zeilen un- 
tergebracht, aus denen 
die M-Matrix initialisiert 
wird. Es ist aus der Form 
der DATA’s leicht zu er- 
kennen, welches Feld 
bei welcher Zahl explo- 
diert. 


Variablen: 
Variable Funktion 


as,a, 
xe$,i 
yes,eig, 


u, 


Eingabe der Zählvaria- 
blen ohne große Bedeu- 
tung (werden nur kurzzei- 
tig eingesettt). 


FIIR Spiele Listing 


Wert der oftgebrauchten 
Zahl 1. Der Computer 
verarbeitet Variablen 
schneller als festge- 
schriebene Zahlen. Die- 
ser Geschwindigkeits- 
vorteil macht es sinnvoll, 
oft benutzte Zahlen in Va- 
riablen umzuwandeln. 

zZ Zero = Null. Wert für 0. 

X X-Achse, die ausgege- 
ben wird. 

3€ Y-Achse, die ausgege- 
ben wird. 

xl Stammvariable der X- 
Achse (Echtwert). 

Se Stammvariable der Y- 
Achse (Echtwert) 

sp Aktueller Spieler 

gs Aktueller Gegenspieler 

n Neun. Wert für die Zahl 

9, 

54272. Hier beginnen die 

SID-Adressen (Sound- 

Chip). 

SZ Speicherstelle für Tonart- 
beeinflussung. 

hf Speicherstelle für Fre- 
quenzbeeinflussung des 
Tones. 

vo Speicherstelle für Laut- 
stärkenbeeinflussung. 

nz Wert für 19. Entspricht 

bei CHR$(nz) einem 

HOME. 

Wenn diese Variable 0 

ist, so bedeutet das: Kein 

Feldwert erreichte oder 

überschritt den Maximal- 

wert. Daher keine Explo- 

sion. 

EFLAG Wenn diese Variable 1 


FLAG 


ZFLAG 


SFLAG 


SP$() 
SP$(2) 
20) 
SP(2) 


Q,l 
bis 8,8) 


MU, 
bis 8,8) 


ist, so bedeutet dies: Ein- 
gabe nicht möglich, da 
Feld schon vom Gegen- 
spieler besetzt ist. 

Wenn diese Variable 0 
ist, so bedeutet dies: Ein- 
gabe o.k., Programm läuft 
weiter. 

l bedeutet: Dies ist min- 
destens der zweite Zug. 0 
bedeutet: Dies ist der al- 
lererste Zug. Daher darf 
noch keine Siegesermitt- 
lung gemacht werden, 
denn sonst gewinnt unge- 
rechtfertigterweise je- 
desmal Spieler 1. 

l bedeutet: Der Gegen- 
spieler hat kein Feld 
mehr mit seiner Farbe 
besetzt und daher verlo- 
ren. 0 bedeutet: Noch ist 
kein Sieg in Sicht. 

Name des ersten Spie- 
lers. 

Name des zweiten Spie- 
lers. 

Punktezahl des ersten 
Spielers. 

Punktezahl des zweiten 
Spielers. 

In dieser Matrix steht der 
Wert des Feldes an der 
jeweiligen Stelle am Bild- 
schirm (in X- und Y-Ach- 
se). 

In dieser Matrix steht der 
Wert, den ein Q-Feld ma- 
ximal benötigt (oder 
überschreiten muß), um 
zu explodieren. Ein ex- 
plodierendes Feld wird 


mit dem Betrag des kor- 
respondierenden M- 
Feldes <gleicher X- und 
Y-Achsenwert) subtra- 
hiert. 

In dieser Matrix steht, ob 
das Feld Q(X,Y) neutral 
ist (0) und daher von bei- 
den Spielern besetzt wer- 
den kann oder ob es von 
einem Spieler (1 oder 2) 
besetzt ist. Bei der Einga- 
be prüft Explode mit die- 
sem Wert, ob die Daten 
korrekt waren oder ob 
ein Fehler vorliegt. 


wi, 
bis 8,8) 


In Maschinensprache tragen Test- 
speicherstellen den Namen FLAG. 
Um den Übergang von Basic zu 
Maschinensprache zu erleichtern, 
behält „Explode" diese Schreib- 
weise bei. Oftmals wird ein Byte, 
bestehend aus 8 Bits, in B Flag's 
geteilt, da jedes einzelne Byte den 
Wert l=wahr oder O=falsch er- 
reicht. Damit spart man viel Spei- 
cherplatz. Allerdings kostet diese 
Art des „Flaggen-Setzens" viel 
Zeit da man zum Prüfen des 
FLAGs das richtige Bit herausfil- 
tern, extra: Rechenoperationen 
ausführen muß, 

Damit sind alle Funktionen und Va- 
riablen des Programmes ausführ- 
lichst erklärt. Ich hoffe, daß vor al- 
lem Basic-Beginner nach diesen 
Erläuterungen die einzelnen Pro- 
grammschritte verstehen und in ei- 
genen Programmen anwenden 
können. 

F. Bastiarı EMMEN 


TA 


EINS, 


bes 


{ 


er 


ER PN CET IE SEDRL FEN 


x=x1-e:if x>z then gosub 2 

x=xl+te:if x<n then gosub 2 
x=x1:y=yl-e:if y>z then gosub 2 
u=yl+te:if y<n then gosub 2 

flag-® 

for x=1 to B:Ffor y=1 to B:if q(x,yu)>= 
m(x,y) then flag=1:yl=y:x1=x:y=-8:x=B 
next :next 


goto 5008:rem hauptprogramm 
alx,u)J=qlx,y)+te:w(x,4y)=sp 

rem ausgaberoutine 

poke vo,15:poke sZz,33:poke hf,5:poks 
sz,32:print chr$ (nz) 

For i=e to x:print "[2right]";:next : 
print ”[Sright ,4down]”; 

For i=-e to y:print "[2down]”;:next :if 
sp then print "[rvs]”; 

if q(x,y)=z then print ”"[off]®”;:w(x, 
y>=-z:return 

if sp=-e then print "”[off]”; 

print right$ ( str$ (q(x,y>),e);: 
return 


if flag then x=x1:y=-yl:goto 178 
return 


rem eingaberoutine 

print ”Chome,38spaces]” 

print ”"[38spaces)” 

print "[38spaces]” 

print ”[38spaces]” 

print ”C[Chome]”; 

print "spieler: ";sp$(sp) 

print "ihre eingabe x-achse (1-B): 
[2spaces]”; 


rem explosonsroutine 
qg(x,yI=glx,y)-m(x,y):w(x, y)=-z:ifF qlx, 
y)>z then w(x,y)=sp 

gosub 18 

xi-x:yl=-y 
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u? 


% 
E 


BEE SEELE EEE Spiele Listing 


| 


N a a a Fi a a I En 


BI TE WELT T U Er ne rn oT 


221 
e22 
224 
225 
230 
232 
240 
250 
es1 
255 
256 
257 
258 
2608 


2399 
3098 
305 
310 
320 
33® 
358 


355 
368 
365 
370 
598 
510 


538 
549 
4998 
4999 
5000 
5001 


Sspo2 
5003 
5005 
5018 
5020 


5038 


5940 


5950 
50608 


5088 


5039 
51008 
5118 
5115 
s120 


5138 
s140 


5218 


52208 
5238 
5235 


S24® 
5258 
53928 
Ss400 
5405 
5418 
s420 
54308 


5435 
S44® 


5450 
54680 


5470 
"5480 
5498 
6938 


528. 
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get xe$ 

x=val (xe$) 

if x<1 or x>B then goto 221 
print x 

print "ihre eingabe u-achse (1-8):”; 
get ye$ 

y=val (yeS) 

if y<1 or y>B then goto 232 
print y 

print "Chome, 38spaces]” 
print "[38spacesI” 

print "[38spacss]” 

print "[38spaces]” 

return 


298°: 


rem eingabe moeglich ? 

eflag-® 

print "[off]"; 

if w(x,y)=8 then return 

if w(x,y)=sp then return 

rem Feld war nicht moeglich ! 

print *"[homeleingabe nicht moeglich 
BRE. 

eflag-1 

for i=1 to 308:next i 

print "Chome, 36spaces]” 

return 

e=1:ti5=-"90000090” 

For i=-1 to 1008 

if e=1 gosub 197 

next 

print ti:end 


rem hauptprogramm 
gosub 60008:rem soundinit 
poke 53280,8:poke 53281,8:print ”[grn] 


e=1:2z=9:n"=9:nz=19 

print chr$ (142):rem grosschrift 

gosub 62008:rem m-matrixinit 

rem erstes bild-5208 

print "[clr]) e x p 1 o d e[3spaces)- 
C3spaces)d a s[3spaces]Js p ie 1” 
print :print :print "willkommen zu 
Crvslexplodeloff], dem neuen ” 

print ”denkspiel fuer den commodore 
64,” 

print 

print ”[Cdown, rvsJexplodeloff] wurde 
spezell Fuer computer” 

print "konzipiert und nutzt die 
vorteile” 

print "des commodore 64 gegenueber” 

print "einem spielbrett voll aus !!ı” 

print :print :print 

poke 198,8 

print "wollen sie erklaerungen ? (}/n) 


ar] 
get ei$:if ei$="" then 5138 
if ei$<>”n” and ei$“>"N” and ei$<>”j” 
and ei$<>”J” then goto 5138 
if ei$=-"j” or ei$="J” then gosub 
612082:rem spielregeln 
rem spielernameneingbe 
print "Cie? 
print ”bitte geben sie ihre namen ein 

:C2down]” 
input "[2down]Ji. spieler :"”;sp$(1) 
input ”2. spieler :”;sp$(2) 
gosub 7882:rem spielfeld aufbauen 
sp=-sp+l:if sp>2 then sp-1 
poke 198,08 
gosub 288:rem eingabe 
gosub 388:rem war eingabe moeglich ? 
iF eflag-1 then goto 54198:rem war nich 
t moeglich 
qlx,y)=g(x,y)+1:w(x,y)=sp 
iE gq(x,y)>=m(x,y) then gosub 179:goto 
S468:rem explosionsroutine 
gosub 18 
if zflag-® then zflag-i:goto 5488: rem 
erster zug 
gosub B588:rem gegner besiegt ? 
if sflag=1 then goto 28888:rem sieger 
goto 5488:rem weiter gehts ! 


331 
735 
1366 
323 
2727 
333 
752 
1424 
33% 
1448 
1434 
1434 
1434 
142 


482 
4931 
1252 
1584 


2963 


sus 
926 
1349 
142 
1272 
818 
1103 
138 
575 


721 
1964 


2167 
833 
729 


2226 
4083 
3198 


153 
3315 


3673 


2612 
3141 
733 
8708 
4952 


1745 
4952 


1988 


316 
2395 


1932 
2084 
E46 
e1l2 
870 
725 
727 
1782 


2779 
3675 


431 
2665 


668 
1569 
654 


69333 
7908 
780108 
7029 
7038 
7049 
7058 
7068 


7078 
7088 
7838 
7032 


7033 
7034 


7108 
8498 
8499 
85908 
8505 
8518 
8520 
8538 
BS4O 
8560 
8570 
19998 
19993 
200088 
20005 
20018 
202208 
200398 
20040 
29045 
29046 


20047 
202859 


20069 
20078 
20088 
20083 
20085 
20030 


20108 


20118 
20120 


29130 
29140 


20158 
20168 
20170 
20180 
20138 
20208 
20218 
29215 
20228 
53358 


533393 
60090 
60010 
60928 
60039 
60338 
60333 
61298 


61010 
61928 


61838 


61042 
61958 


rem spielfeld aufbauen 

print ”"C[clr]” 

print ”"[Sdown)”; 

print "[Sright]”; 
print ” B1B2B3B4BSBEB7BBB ” 

For i=-1 to 8 

print ”"[SspacsesIClCECCCCCCCCCCCCEccE" 
print "[3spaces)”;i;”"BBBBBBBB 
Br;i 

next i 

print "[SspacesJClCCECCCCCcCcecccCccec” 
print ”[6spacesJB1B2B3B4BSB6EB7BBB ” 
print ”"Chome, 18down,3®right,rvs] 
explodeloff]” 

print "Cdown, 2Sright,rvsJdas spiel 
LoffJ” 

print "[down,27right,rvslby f. bastian 
Coff)]” 

return 


rem spieler besiegt ? 

sflag-1 

gs"sp+1:if gs>2 then gs=1 

Eor x=-1 to 8 

for y*-1 to 8 

if w(x,y)=gs then x=8:y=B:sflag-® 
next y 

next x 

return 


rem weiterspielen ? 

rem 

Bor del, to 5 

for mz=1 to 2008 step 4 

poke vo,7:poke sz,33 

poke hf,mz:poke sz,32 

next mz:next i 

print ”Cclr)” 

print "[2spacesle x p 1 o d el[2spaces]) 
-[C2spaces]d a s[2spaces]s p i ae 1” 
print 

print ”"C2down]spieler ”;spS(sp);” hat 
gewonnen !!!” 


sp(sp)-sp(sp)+1 

print "[C4douwn)”; 

print "punkte[ 7spaces]spieler” 

print "mm ununmunnnununsnnsinunnnnn!) 
print 

print "[2spaces)”;sp(1);"[1®spaces)”; 


sp$(1) 

print "[2spaces)”;sp(2); "[1®spaces])”; 
sp$(C2) 

print ”[C4down]”; 


print ”[rvsJweiterspielen (j/n) Loff£f]” 


get a$:if a$="" then goto 20138 

if a$=-"n"” or a&5="N” then print chr$ 
(147); "schade .":end 

if a$<>”"j" and a$<>”J” then goto 208130 
sflag-®:zflag-®:sflag=®d 

For’ %=-1 to B 

For y=-1 to B 

q(x,y)=B:w(x,4)=B 

next y 

next x 

gosub 7008 

goto 5490 


rem sid initialisieren 
sm-54272: h£f=sm+1: vo=-sm+24: sz=sm+4 
for i=-sm to sm+24:poke i,®:next 
poke sm+5,8:poke sm+5,8B 

return 


rem spielregeln 

print "[clr]spielregeln zu [rvs] 

explodeloff]:” 

print 

print "zuerst baut der computer am 
bildschirm” 

print "ein B mal B Felder grosses 
spielfeld” 

print ”auf.” 

print 


316 
620 
1888 
2042 
695 
3095 
2185 


276 
39935 
2536 
5314 


5083 
5190 
142 


E]=17] 
[11210 
725 
727 
3458 
308 
306 
142 


854 
1207 
15608 
1676 

679 

316 
e342 


6312 
3738 


1614 
769 
2019 
5037 
153 
el41 


2175 


769 
2287 


16208 
4147 


2372 
1553 
785 
727 
1771 
308 
386 
575 
583 


3576 
2316 
1399 

142 


2474 


153 
3868 


3677 


829 
153 


Spiele Listing 


print "dieses spielfeld gilt es mit 
steinen zu” 

print "besetzen. jeder spieler hat 
seine ” 

print "eigene farbe und je zug kann er 
nur” 

print ”einen stein legen.":print 

print ”steine koennen nur auf leere 
felder” 

print ”oder auf besetzte Felder der 
eigenen” 

print "farbe gelegt werden !”:print : 
print :print :gosub 61268:print ”"[clr)] 
» 


print "sinn und zweck des spieles ist, 
die ” 

print ”steine der gegenseite durch 
geschickte” 

print "kettenreaktionsexplosionen zu 


print "andere richtungen geshleudert.” 
print 

print "die Felder, auf denen steine 
fallen,” 

print "nehmen dis Farbe des 
ursprungsfeldes an” 

print ”und koennen ihrerseits weiter-” 
print "explodieren.”:print 

print "hat ein spieler kein 
einzigsfeld mit[2spaces]” 

print "eigener Farbe, so hat er 
verloren.” 

print 

input ”<return> druecken ";a$ 

return 


rem m-matrix initialisieren 
for x=-1 to 8 


eigenen” 
print ”steinen zu machen, 
andere” 


so dass der 


print ”spieler keine steine mehr hat.” 


:print 


print "bei eckfeldern tritt die 


explosion nach” 


print "zwei steinen, bei den 


restlichen rand-” 


print "Feldern bei 3 und bei den 


innenfeldern” 


print "bei 4 steinen auf.”:print 
print "explodiert ein feld, werden 


steine in 4” 


nWwwWwWwWWuWtWußn 
Werk sk sk sk »E WW 


Explode“ ist Denkspiel und Basic-Kurs in einem. 


Die Erde 


WR sk rk rk ik +E 


for y=1 to B 


UNE SEE HEDESE DW) 
WIE FIE EI EW 
EEE EEE 
DE IE IE SEE EW 
nuwwwwiwm 


als Abfalleimer 


System : C16/116/Plus 4 
Typ : Spiel 
Sprache: Basic 


New York, 2605. Aliens benutzen 
die Erde als gigantischen Müllei- 
mer. Um größte Schäden zu ver- 
meiden, besitzt jede Großstadt ei- 
nen Äbwehrschirm. Der Spieler 
steuert diesen Abwehrschirm. 
Brechen mehrere Teilchen durch, 
explodiert New York mitsamt Ein- 
wohnern und der Abwehranlage. 
Überschreitet man den Hich- 
Score, gibt man seinen Namen 
ein. „Stardust“ speichert diesen in 
der High-Score Tabelle auf Kas- 
sette ab. 


So wurde programmiert 
WERDET FIPRBEEFE 


Zeile 10 bis 60 
— Highscore laden? 
— Spiel mit Joysticktastatur? 


In der Zukunft versucht 
eine fremde Macht, ih- 
ren radioaktiven Müll 
auf der Erde endzula- 

gern. Laufend schütten 
Raumschiffe ihre ver- 


brauchten Brennstoffe 
auf Städte, Seen und 
Gebirge. Mit einem 
Schutzschirm muß man 
die anfliegenden 
Partikel einsammeln. 


Zeile 70 bis 143 
Bildschirmgraphik zeichnen 

Zeile 150 bis 160 

Positionen von Spieler und Staub- 
teilchen festlegen. 

Zeile 170 

Spieler zeichnen 


WEN AONEESNISTERATRD. TON 


Zeile 180 bis 190 

Joystick/Tastatur — Routine 

Zeile 200 bis 210 

Bewegung des Spielers, alte Posi- 

tion löschen 

Zeile 220 bis 240 

— Zeichnen der Staubteilchen 

— Nächste Positionen auf Crash 
untersuchen 

— Löschen der alten Positionen 

Zeile 250 bis 270 

— Reaktionsroutine der Staubteil- 
chen: 
— Staubteil abgewehrt 
— Staubteil in der Stadt ange- 
kommen 

Zeile 280 bis 320 

Effekte und Reaktionsverarbeitun- 

gen 

Zeile 330 bis 390 


Endroutine: 

— Score anzeigen 

— Highscore? 

— Highscoreinhaber anzeigen 
— Highscore abspeichern? 

— Spiel von neuem beginnen 
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Wichtige Variablen: JT 
= Highscore 
= Name des Highscorein- C 
habers M 
= Score 


gosub 28:goto 30 
sencelr :color ®,1:print ”[rvs,red, 
Sspaces]Jradioactive stardust[lilspaces)] 


print ”"[2down) by martin goes”:return 
print "[Cblu,2down,3spacss]shall i load 
the highsore (y/n)[3spaces)":get key 
as 
if a$="y” then open 1,1,8,”highscore": 
input#1,hs:input#1,n$:close 1 
print "[2down,grn] press k for 
keyboard or any other key[3spaces)for 
Joysick !”:get key a$ 
if a$="k” then jt=2:else jt=1 
sc=®:color B®,1:color 1,9,7:color 2,4, 
3:color 3,3,4:graphic 3,1 
char 1,8,18B,” B[3spaces]B[L19spaces, 
shift -,2spaces]B[2spaces,3chm +, 
3spaces,cbm -] ” 
char 1,80,19,” [Ccbm +,3spaces,chbm +, 
i1spaces,3cbm +,cbm -,4spaces,cbm +, 
Espaces,cbm +,2spaces,2cbm -,cbm +, 
Pspaces,3chbm -]1” 
char 1,0,20,”C3cbm +J [C3cbm +,4spaces, 
shift -,5spaces,4cbm -,3spaces,6cbm +] 
[3cbm +,2spaces,2chbm +,cbm -1” 
char 1,8,21,"C2cbm -,cbm +] [2chm -, 
cbm +,4spaces,cbm +,5spaces,3cbm +, 
cbm -,3spaces,2cbm -,chm +,2chm -, 
cbm +J [C2cbm -,cbm +,2spaces,3chm -]” 
char 1,8,22,”C7cbm +,3spaces,3chbm +, 
4spaces,4cbm -,3spaces,6cbm +] 
[3chm +,2spaces,2cbm +,cbm -]” 
char 1,02,23,”[C2cbm +JOCchm yJP[l2chm +, 
3cbm r,cbm +J0Ccbm +IRRRR[chm +J0P 
[cbm -,3cbm r,2cbm +J0P[L2chbm +,cbm i, 
cbm +J0Ccbm +,2cbm r,2cbm +,chm -]” 
char 1,2,24, "C4Ochm uJ” 
draw 1,58,8 to 110,8 to 111,1 to 49,1 
t9-48), 2: t0.:11270-t0:119,39-60247,3-7E0 
46,4 to 114,4 
vol B:c*28:char 2,c+1,16,”Ccbm iJ” 
For i=1 to 5:aCi)=int ( rnd (8)*30)+ 
65:bli)=bli-1)+29 


a nn nn Spiele Listing 


= Joystick/Tastatur-Varia- AU) 


ble 


= Spielposition 
= Richtung der Spielerbe- Z 


wegung 


euerwehr ist out, Müllabfuhr ist in, bei „Radioactive Stardust" 


Darauf hoffen Millionen, die hungrig 
sind und kein Dach über dem Kopf 
haben, für die es keine Ausbildungs- 


Bl) 


M. Goes 


char 2,c,16,”[cbm iJ”:on jt goto 18, 
198 

if joy (1)=3 then m=1:goto 290:else if 

Joy (1)=7 then m=-1:goto 208:else 228 

get a$:if a$="[right]” then m=1:goto 

200:else if a$=-"[left]” then m=--1:else 

228 

if c+m<3 or c+m>36 then 320 

e=-c+tm:char 2,0-2*m,16,” ” 

draw 3,a(i),b(i):next i 

For i=1 to 5:b(li)"b(i)+4:locate ali), 
b(i):if rdot (C2)<>8 then 250 

draw ®,aCi),b(Ci)-8:goto 170 

if rdot (2)-1 then for z-1000 to 208 
step -58:sound 3,z,2:next :gosub 312: 
goto 288 

if rdot (2)=2 then draw 8,a(i),b(i) to 

ali),bli)-B:ali)=-int C rnd (B)*B0)+4B: 

b(i)=4D 

char 2,c,16,”"[cbm iJ”:char 2,c-m,16,” 
[cbm i)”:sound 1,908,7:sc=sc+tl:goto 
170 

For f=1 to 18:y=int (C rnd (8)*60)-30:x 
=int (C rnd (0)*68)-38 

draw ®,aCi),b(i) to ali)+x,bli)+y:next 
:For o=1 to 2B:get a$:next 

for r=1 to 508:next :goto 338 

for t=1 to 58:color ®,2:for o=1 to 12: 
next :color ®,1:next :return 

m--m:goto 218 

graphic ®:gosub 22 

print ”[4down, wht , 2spaces]score; ”;sc: 
if hs<sc then hs=sc: input ”[2down] 
enter your name please”; n$ 

if ns=""” then nS="---"” 

print ”[3down, 2spacesJlhighscore: ”;n$, 
hs 

print ”"[3down, pur] press s to save the 
highscore” 

print ” press any other key to 
eontinue”:get key a$:if a$="s” then 
398:else 508 

open 1,1,1,"highscore”:print#1,hs: 
print#1,n$:close 1:goto 58 


Brot 


Position der Staubteil- 
chen 

alte Position 
Zählwerkvariable 


Erde 
ist 
für 
alle 
da... 
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möglichkeit, keinen Arbeitsplatz, keine 
Krankenversicherung und keine Alters- 
rente gibt. Was der einzelne bei uns 
tun kann? Den Lebensstil vereinfachen. 
Alle Bemühungen nach sinnvoller 
Entwicklungshilfe unterstützen. Sich 
dafür einsetzen, um mehr Gerechtig- 
keit und Menschenwürde für andere zu 
schaffen. Kostenlose Information von 
»Brot für die Welt«, Postfach 476, 

7000 Stuttgart 1. Spendenkonto: 

500 500-500 beim Postscheckamt Köln. 


fur dieweit 


Bandwürmer im 


- <omputer! 


System : C16/116/Plus 4 


Typ : Spiel 
Sprache: Basic 


Nach Start mit RUN lädt man auf 
Wunsch eine High-Score-Tabelle, 
gibt Level und Eingabegeräte 
(Joystick oder Tastatur) an. Da- 
nach erscheint das Spielfeld. 
Blaue, nahrhafte und gelbe, gifti- 
ge Bytes liegen herum. Wer es 
schafft, alle blauen Punkte abzu- 
grasen, ohne sich dabei in den ei- 
genen Schwanz zu beißen oder 
sich zu vergiften, erreicht den 
nächsthöheren Level. 


Wurmi im Detail" 


BEN 


Zeile 10 bis 80: Vorspann 

— Highscores einladen? 

— Schwierigkeitsgrad eingeben 
Zeile 90 

— AÄnfangsrichtung für die Bewe- 
gung des Würmchens bestim- 
men 

Zeile 100 bis 120 


Kleine Würmer 
„pflanzt“ dieses Pro- 
gramm in die C16- 
Chips ein. Ab und zu 
fressen die Tierchen ein 
Byte und wachsen da- 
durch. Ziel ist es, einen 
Wurm zu steuern und 
viele Bytes zu futtern. 


Zeile 230 
— Würmchen tot-Effekt 


Zeile 240 bis 345 

— Endroutine: 
— Score anzeigen 
— Highscore gebrochen? 
— Highscores abspeichern? 
— Nochmal spielen? 


Zeile 350 
— Warteschleife (vom Schwierig- 
keitsgrad abhängig) 


Zeile 360 bis 370 
— Positionen für neue Gift- und 
Bonuspunkte festsetzen 


— Bildschirmgraphik zeichnen Wichtige Variablen 
Zeile 130 H(0) = Highscore im jeweili- 
— Würmchen zeichnen gen Schwierigkeitsgrad 
Zeile 140 bis 180 S(O) = Score im jeweiligen 
— Joystick/Tastaturroutine Schwierigkeitsgrad 
Zeile 190 bis 200 JT = Joystick/Tastaturvariable 
— Würmchen fortbewegen M,N = Richtungsvariablen des 
— Überprüfen der neuen Position Würmchens 
auf Kollision mit irgend etwas A,B = Positionsvariablen des 
untersuchen Würmchens 
Zeile 210 bis 220 CD = Positionsvariablen für 
— Score erhöhen Liftpunkte 
— gefressenen Punkt löschen E,F = Bonuspunkte 
— neue Punkte zeichnen Martin Goes 


print "CclrlJhighscores einladen ? 
(3/n)"”:get key a$:if a$="j"” then 20: 

else 48 

open 1,1,8:for hr=® to 3:input#1, 

nSChr):input#1,hChr):next :close 1 

color ®,2:vol B:scnclr :print "[rvs, 

red, flashon,1lspacesJluuvermchen 

C12spaces]” 

print "C2down) 5 Fuer joystick 

C25spaces)c fuer cursortastatur” 

get key a$:if a$="c" then jt=1:else jt 

=2 

for o=-® to 3:sCo)=®:next 

m-d:n=-®:input "Cblu, 2down] 
verlangsamungsgrad 8-3”;o:if 0o<® or 0> 
3 or o<>int (Co) then 88 

t=int ( rnd (O)*4)+1:if t=1 then mei: 
else if t=-2 then m=--1:else if t-3 then 
n=-l:else n=-1 

graphic 3,1:color 4,1:a-80:b=108 

color 8,3,5:color 2,2:color 3,7,2 

eolor 1,1:for i=-1 to 180:gosub 368: 

draw 2,c,d to c,d+1:drau 3,e,f to e,f+ 
i:next 

gosub 358:draw 1,a,b-n to a,b:get a$: 
if a$="" and joy (1)=2 then 188 

on jt goto 150,170 

if aS="[left]” then m=--1:n=-®:goto 190: 

else if a$=-"[right]” then m=1:n=d:goto 
198 

if a$="[up]” then n=-2:m=B:else if a$- 
”"Cdown]” then n=2:m=® 

if joy (1)=7 then m=-1:n=d:goto 130: 

else if joy (1)=3 then m=1:n=-d:goto 
199 

if joy (1)=1 then n=-2:m=Bd:else if joy 
(1)=5 then n=2:m=d 

a=ra+tm:b=b+n:locate a,b:if a<®d or a> 
159 or b<® or b>133 then 230:else if 


rdot (2)=® then 138 

if rdot (2)=2 or rdot (2)=1 then 230: 
else if rdot (2)-3 then 218 
sCo)=sto)+1:drau ®,a,b+1 to a,b-1: 
sound 1,698,5 

gosub 368:draw 2,c,d to c,d+l:draw 3, 
e,f to 8s,f+1:goto 138 

sound 3,308,48:For i=1 to 5®8:color 2, 
l1:color ®,2:next :scnclr 

graphic B8:color B,1:print "C[clr, 
Flashon, cyn,Espaces]sis erreichten "” 
sCo)” punkte” 

for qu=1 to 18:get t$:next 

if sCo)>h(lo) then hlo)=sCo):input "” 
C2dounJwie heisst du”; n$(Co) 


D print ”[rvs,wht ,18spacesJh ighscao 


r e s[llspaces)” 
print :print :for o=-® to 3:if n$to)-""” 
then n$(o)="---”:goto 288 
print "[red)”;n$(0o),o,h(o):next 
print ”[2down, wht ‚3spaces]Inochmal 
spielen - taste druecken[4spaces]" 
print "C3spaces)lhighscores saven - s 
druecken”:get key a$:if a$<>”s” then 
m=-d:n=d:goto 48 
input "geben sie dis zashlwerknr. ein” 
open 1,1,1:for hr-® to 3:print#1, 
nSChr):print#1,hChr):next :close 1 
print "[doun,2Zleft]spulen sie die 
datasette auf”"k"zurueck” 
print ”"[rvs, 7spaces)- druscken sie 
eine taste -[6spaces)”:get key a$: 
goto 48 
for i=® to o*18:next :return 
ce=int C rnd (8)*1593:d-int C rnd (8)* 
199) 
e=-int (C rnd (B)*159):f=int (C rnd (9)* 
199):return 


Je länger desto Wurm: ‚„Würmchen“ 
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Das Schwert der Samurai 


System : C16/Plus4 


Typ : Spiel 
Sprache: ASM 


Das Versteck des Schwertes ist 
auf einer Karte verzeichnet. Diese 
Karte wurde in 60 Teile zerrissen 
und liegt in einem dunklen Laby- 
rinth. Mit Joystick in Port 2 steuert 
man durch die Räume. Hier und 
da liegen Reisschalen und ande- 
re, punktesteigernde Gegenstän- 
de. Gefährlich sind feindliche Ka- 
rateka. Sofort greifen diese an. 
Jetzt gilt eszu kämpfen. Alle Hand- 
lungen der Figur steuert man über 
den Joystick/Feuerknopf: 


links — geht nach links 
rechts — geht nach rechts 
oben — geht nach oben 
unten — geht nach unten 


Feuer/links-oben — Sprung links 
Feuer/rechts-oben — Sprung rechts 
Feuer/links-unten — tritt links 
Feuer/rechts-unten — tritt rechts 


Feuer/links — Boxhieb links 
Feuer/rechts — Boxhieb rechts 
„RUN/STOP" unterbricht das 


Spiel so lange, bis man erneut die- 


Spiele Listing 


Krieg droht im Reich 
der aufgehenden Son- 
ne. Grund: Das Zauber- 
schwert ist verschwun- 


den. Nur ein mutiger 
Karate-Kämpfer kann 
Blutvergießen und 
Leid verhindern. 


se Taste drückt. Druck auf (RE- 
TURN) beendet den Spieldurch- 
gang (Aufgabe). Aus Platzgründen 
sind die DATA-Basic-Lader in 7 
Teile aufgegliedert. Man tippt und 
speichert alle 7 Programme. Da- 
nach lädt man einen Teil nach 
dem anderen, startet die Pro- 
gramme mit RUN und geht danach 
(kurze Wartezeit) in den MONI- 
TOR. Dort gibt man für die unter- 
schiedlichen Teile ein: 


1.) T 3932,3FFF, 1000 
S„SL1",(loder8), 1000, 16CD 
2.) T 3932,3FFF,16CD 
S„SL2" (loder8), 16CD, 1D9A 


3.) T 3932,3FFF,1D9A 
S,SL3",(loder8), 1D9A,2467 
4.) T 3932,3FFF,2467 
S,„SL4" (loder8),2467,2B34 
5.) T 3932,3FFF,2B34 
S,SL5" (loder8),2B34,3201 
6.) T 3932,3FFF,3201 
S,SL6" (loder8),3201,38CE 
7.) T 3932,3FFF,38CE 
S,SL7',(loder8),38CE,3DEO 
Zwischenzeitlich muß man ins Ba- 
sic zurück, um die Basic-Datala- 
der einzuladen und zu starten. Mit 
MONITOR gelangt man wieder in 
den Monitor des C16/Plus4. Sind 
alle Programme in dieser Art be- 
arbeitet, lädt man vom Monitor die 
7 „SL“-Files: 
L,SL1"',8 
L,SL2",8 
L,SL3",8 
und so weiter bis 
L,SL7",8 
Mit S,SHOGUN", (loder8),1001, 
3DE0 speichert man die Daten als 
ein einziges Programm auf Disket- 
te/Kassette. Danach schaltet man 
den Computer aus, dann an und 


lädt „Shogun“. RUN startet das 
Spiel. 
Olaf Panz RER 
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® rem shogun lader 1 19 data 06,0e,18,18,1c,80,80,c0,60,60,68, 6213 

li rem 60,70,20,01,02,01,00,7f,4f,01 
2 rem (cc) 1987 by [14] data co, 50, 50, 49, c0,e0,e.0,£f0,801,01,03, 6856 

3 rem 06,06, 05, 06, De, ed, co, ed, 5D, 708 
4 rem olaf panz 21 data 18, 18, 38, BF, Se, bF, DE, 7£,18,0f,00, 5313 

5 rem 80,7F, Es, cd, EB, Eo, 00, 20, 20, 22 
6 rem drosselgasse 4 22 data 20,00,00,00,00,00,00,20,00,00,00, SoB4 

7 rem 08,00,00,00,fe,7f,03,1f,0F,88 
B rem 20835 marschacht 23 data 00,F0,7a,fd,fd,fe,78,F0,00,00,08, 5352 

5 rem 00,00,20,008,00,00,00,00,00,08 
18 poke 56,56:c1r :for t-14642 to 16382: 6436 24 data 00,00,00,20,00,09,00,00,00,00,00, 5235 

read a$:poke t,dec (a$):pr-int C(C(pr+t* 00,30,68,64,28,38,7Ff,fe,fc,80 
dec (a$))/256)9+t:next t 25 data 00,40,40,c0,80,04,74,7d,3F,3F,38, 55678 

11 if pr<>19862 then print "Fehler in 2808 30,30,20,30,£c,c8,00,00,00,00 
datas !” 26 data 009,00,00,00,02,02,03,01,20,2e,0c, 6162 

12 data 00,0c,10,c1,07,98,31,35,37,35,32, 6238 16,26,14,0c,fe,7f,3F,3F,03,98 
00,00,00,d8,88,23,07,06,0c,0c 27 data 00, 20, 20, 20, 00, be, £fc,fc,1c,0c,0c, 5500 

13 data 8c,0c,08,88,c0,c0,60,60,60,60,208, 5B26 04,0c, 20, 20, 21, 20, 18, o1, 21, ei 
03,06,06,02,03,07,07,0f,00,88 28 data 60, 20, vo, 04, co, a0, 30, a0, 02,21,03, 5583 

14 data 40,80,00,c8,F0,a0,07,03,03,03,03, 58313 03,03, 23, 03, 21, cd, cd, Eco, Fo, cd 
06,8c,08,808,80,c0,c0,60,69,208 29 data c0,F9,FF,00,00,00,14,a9,7e,3c,18B, 6181 

15 data 30,090,21,02,01,00,13,0F,05,c0,609, 5471 00,64,64,ff,7f,6c0,4c,00,18,3c 
60,48,c0,20,e8,F0,01,01,03,03 38 data FF,24,Ff,66,3c,18,18,24,42,42,42, 6078 

16 data 06,06,04,0c,e0,c0,c0,c0,c0,680,30, 5852 42,24,18,0c,14,24,04,04,04,04 
70,01, 12, 1b, 03, 87, 86, 03, 21, ca 31 data 04,0c,12,12,02,04,08,10,1e,1c,02, 5878 

17 data a4, Be, c8, FB, 30, 60, 40, 23, 07,07,0e, 5389 02,8c,2c,02,02,1c,24,24,24,3f£ 
8e,02, 22, 25, co, ed, 70, 38, 38, 20 32 data 24,04,04,04,1e,10,18,1c,02,02,12, 5588 

18 data 20,30,03,06,06,02,03,07,07,0F,00, 6279 8c,88,11,20,20,3e,21,21,1e,3e 
80,48,80,00,fe,f2,808,07,03,07 data 22,04,08,10,10,180,18,1c,22,22,1c, 5367 


NEW EINE TER OREBES U 


- 
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Iic,eo,ee,16,30,42,42,38,02,02 
data 42,30,30,78,fc,30,30,30,30,3®,®c, 
1e,3f,8c,8c,8c,8c,8c,30,39,3® 
data 390,390,30,30,38,2c,2c,0c,0c,2c,0®c, 
0c,2c,08,00,00,00,00,00,00,08 
data 00,00,20,00,00,00,00,200,00,00,00, 
00,00,002,20,00,00,200,00,00,00 
data 00,00,00,08,14,08,1c,234,08,14,14, 
d2,7d,39,45,82,00,00,00,FFf,3F 
GBBta SELERSEISEIG ELSE ER SLSIESTERBE, 
BE,BF,FE,FE,BE,BE,BE,EF,ES,ES 
OBCALER EL .EL EL, EIER Or ‚Obseeskn,te, 
c6,fe,fe,c6,c6,08,fc,fc,c®,c® 
data cd,fc,Ffc,80,fe,c0,c0,fe,cd,c0,fe, 
00,£c,£0,30,78,78,30,30,08,cc 
data d8,f®,e0,F0,d8,cc,80,38,7c,c6,c6, 
c6,7c,38,88,fc,cc,cc,fc,d8,cc 
data c6,20,Ffe,c0,c®,fe,86,06,Ffe,00,fc, 
fc,30,30,30,30,30,08,00,18,18 
data 00,1B,18,200,00,01,02,44,28,30,30, 
48,20,208,08,00,00,00,00,20,00 
data 00,00,20,00,020,020,00,01,01,03,06, 
8c,12,3c,68,f1,80,73,60,30,58 
data 3c,16,8fF,00,00,20,00,00,00,00,80, 
20,20,20,00,00,00,00,00,00,00 
data 00,00,00,00,01,207,03,07,0d4,3e8,7c, 
£f1,36,cf,a7,cf,17,29,48,9c,88 


data Ff,e5,f3,e8,34,12,39,10,Ff,c®,e®, 
b®,7c,36,8f,65,f3,20,80,00,08 
data 00,00,80,e0,88,7b,80,64,1f,03,01, 
00,b8,c0,800,00,c0,ff,80,c0,3e 
data 1c,00,23,cf,fc,31,06,7c,38,08,c®, 
£3,3F,8c,60,0d,03,080,00,03,ff 
data 800,03,71,de,821,26,F8,c0,80,00,00, 
00,00,80,68,d2,0c,12,3c,23,29 
data 27,21,51,41,4b,38,c2,00,c0,3c,03, 
81,fFf,1c,23,28,03,3c,c0,80,ff 
data 3c,c4,594,e4,84,a3,B2,ca,12,0d,10, 
20,da,06,09,008,180,08,4B,65,97 
data 09,10,10,61,5d,d5,5d,c1,45,51,41, 
22,20,00,80,80,850,80,80,00,08 
data 00,01,01,21,01,01,82,bb,ba,ba,8B2, 
92,c6,82,00,04,c8,38,00,02,0808 
data 00,08,1F,3F,df,09,60,fc,ff,se7,Fs8, 
e8,c8,81,00,008,fF,880,B08,1F,7F 
data FF,Ff,3Ff,06f,01,01,F8,f0,c0,fB,fe, 
FfF,e7,38,7c,3f,1Ff,3f,1F,80,08 
data c0,38,84,e3,Ff®,F8,00,87,98,560,47, 
58,68,8f,f®,e1,13,06,e2,1a,86 
data F1,0F,00,1B,24,43,33,33,33,30,87, 
94,66,47,5f,7c,bf,f2,e1,59,c6 
data e2d,fa,76,f9,Bf,a7,9Ff,66,4Ff,5c,6c, 
BfF,FB,e9,d9,c6,e2,7a,66,f1,2f 
data FFf,7e,3c,18,66,03,81,00,7F,Fe,4B, 
286,7c,83,80,00,ee,bd,99,a5,c3 
data 81,42,00,00,00,02,01,00,00,00,00, 
1c,3F,Ff,Ff,EFf,1F,04,04,00,c0 
data EB,ER,EE,ER,FLE)IE, O0, 73,38, FR,EE, 
KESEENBOLEON SO EIWELS ED EBcH 
data 20,00,00,40,80,00,00,00,00,00,00, 
00,81,7f,1F,207,02,08,88,3e,ff 


Listing 1: Harte Kämpfe in „Shogun“ 


rem shogun lader 2 

rem 

rem (cc) 1987 by 

rem 

rem olaf panz 

rem 

rem drosselgasse H4 

rem 

rem 2035 marschacht 

rem 

poke 56,56:clr :for t=14642 to 16382: 

read a$:poke t,dec (a$):pr-int C(CCpr+t* 

dec (a$))/256)+t:next t 

if pr<>23171 then print "fehler in 
datas !” 

data 30,e7,a2,00,ac,00,ff,b93,00,3F,23, 
20,c9,20,f0,f4,b9,00,3F,29,20 

data 99,00,3f,e8,e8,6e,50,e7,a2,08,ac, 
20,ff,b9,208,3F,29,40,c39,48,F® 


Ssvosuouerwnr® 
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data FF,ff,Fff,ed,47,20,18,cf,Ff8,f3,e2, 
43,e2,04,18,f3,1f,cf,47,c2,18 

data 10,7c,Ff,Ff,Ff,Ff,907,00,80,00,81, 
fe,f8,e8,40,02,02,06,04,04,0c 

data 08,08,00,70,50,50,70,00,00,01,58B, 
5c,53,c1,80,80,80,80,1a,7a,Ba 

data 03,01,21,21,01,20,0e,0a,0a,0e,0®, 
00,00,40,40,60,20,20,30,18,1® 

data 08,18,70,40,40,78,4d,c2,21,01,01, 
01,21,8d,df,21,80,70,0c,83,00 

data 00,00,7f,01,0e,30,c0,00,00,00,fe, 
80,80,80,80,81,b3,fe,80,18,88 

data 0e,02,02,3e,f2,01,80,80,87,81,8d, 
83,81,81,01,01,c3,02,22,c2,46 

data 44,8F,1c,70,40,40,49,40,40,£1,38, 
de,22,02,02,02,02,80,80,c4,"a 

data 41,40,60,23,01,01,11,21,41,81,91, 
e1,87,8c,80,80,80,80,80,fFf,cH 

data 24,04,04,04,04,04,00,40,490,49,490, 
40,48,40,c0,02,02,02,02,02,02 

data 02,03,24,21,22,20,20,20,20,Ff,81i, 
c1,81,41,01,01,01,FF,00,00,00 

data 20,00,00,00,00,a2,28,8a4,3d,00,3e, 
e8,e8,00,d0,F8,ad,20,ff,23,0F 

data c9,01,30,F7,3d,00,3F,e8,e98,00,d®, 
ef,bd,20,3F,29,88,c9,28,d90,08 

data bd,00,3F,29,F7,9d,20,3£,e8,e0,10, 
d®d,ea,a2,f®,bd,208,3F,29,02,c3 

data 22,d0,08,bd,08,3F,29,Ffd,94,200,3F, 
e8,e8,00,d8,ea,bd,80,3F,29,01 

data c39,01,d0,08,bd,20,3F,29,Ffe,3d,00, 
3f,82,18,69,18,a3,980,e8,a2,0F 

data bd,80,3F,29,94,c9,204,d0,08,bd,20, 
3F,293,fb,94,80,3F,82,18,69,19 

data a2,580,e8,22,00,bd,00,3F,c39,00,d2, 
11,2d,88,FF,29,8F,c9,88,E0,F7 

data 3d4,980,3f,22,08,4c,40,15,2eB,e0,00, 
d®d,e3,22,980,bd,80,3Ff,29,08,c9 

data 08,d0,0d,82,38,89,190,38,b3,90,3F, 
03,22,39,90,3F,bd,20,3Ff,29,82 

data c3,202,d0,2d4,8a,18,63,10,38,b9,20, 
3f,09,08,99,00,3F,bd,00,3£E,29 

data 04,c9,04,d9,0b,Ba,a8,c8,b39,00,3F, 
03,01,39,00,3F,bd,00,3F,29,01 

data c9,01,d0,0b,8a,28,88,b9,00,3F,09, 
04,993,9090,3F,e8,e8,00,d0,a7,ae 

data 00,ff,856,d6,bd,00,3e,89,80,9d4,®0, 
3e,a2,00,86,d2,a2,800,bd,2008,3F 

data 29,01,c9,01,d0,1b,8a,38,88,20,4b, 
16,4c,5d,16,b9,00,3e,29,80,c9 

data 80,d0,28,bd,00,3e,09,80,3d4,00,3e, 
69,bd,08,3F,29,02,c9,02,d0,88 

data Ba,18,69,10,38,28,4b,16,bd,00,3F, 
29,04,c9,24,d0,06,83,28,c8,28 

data 4b,16,bd,00,3F,29,08,c9,88,d0,08, 
Ba,38,e9,18,38,28,4b,16,e8,ed 

data 00,d0,a6,e6,d2,36,d2,e0,10,90,9c, 
32,00,bd,080,3e,29,88,c9,88,F® 

data 03,4c,30,15,ad,20,Ff,3d4,208,3e,e8, 
e0,00,d0,e39,32,080,ac,00,ff,b3 

data 00,3F,29,10,c9,18,f0,£4,b9,00,3F, 
03,10,939,00,3f,e8,e0,28 


data, f4,b9,00,3F,29,20,c9,20,f0,eb,b9, 
00,3£,09,40,99,00,3F,e8,e0,56 
data 30,de,a2,00,a0,00,FF,b9,00,3F,29, 
20,c9,20,F0,F4,b9,20,3F,29,40 
data c9,40,f0,eb,b93,00,3F,29,80,c9,8®, 
Fd,e2,b9,00,3f,09,80,39,00,3£ 
data eB,e0,30,30,d5,a2,20,bd,00,38,0289, 
80,3d,00,3e,eB,e8,08,d0,F3,68 
data a®,0c,20,8f,0d,28,30,0e,26,fB,0e, 
26,5d,00,36,90,00,00,a0,@c,1a 
data Bf,0d,28,33,0e,23,a3,0c,86,b7,0c, 
B6,95,0d,84,b1,0d,84,33,@e,Ba 
data 4c,2e,8a,00,00,00,20,0c,20,18,0d, 
20,8F,0d,28,30,0e,15,4F,0e,07 
data 2b,0f,0c,39,0c,83,a4,0c,83,bB,0c, 
83,21,0d,83,33,0d,83,33,0d, 84 
data a4,0d,89,b1,0d,84,4e,08,85,36,Be, 
8a,3c,de,83,20,00,20,a8,0c,18 
data 1a,0d,2d,BFf,0d,28,3d,0e,0F,58,0®e, 


Sonderheft UM 1] 13 


2 


VI ENSE FEN SEE SEM 


CW 


Cool die Führung übernehmen. 
Mit RUN, dem unabhängigen 
Home-Computermagazin. 

RUN geht nach vorn: anspruchs 
volle Listings, Programmiertips 
und Tricks, Kaufempfehlungen 
auch für Hardware. Aktuelle 
Nachrichten weltweit. Z. B. USA 
und Europa im Vergleich. 
Wertvolle Informationen — mit 
Schwerpunkt C64, 128 und Ami 
RUN im Zeitschriftenhandel. Jed 
Monat neu und aktuell. Falls 
vergriffen, einfach anrufen oder 
den Verlag schreiben. Wir 
schicken postwendend ein Prok 
exemplar — kostenlos. 

RUN. Denn ein Profi kennt sein 
Ziel. 
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WWW.HOME 


Meine Adresse: 


Vorname, Name 


Straße, Nr. 


PLZ/Ort 


Telefon (für evtl. Rückfragen) 


% nterschrift 


(bei Minderjährigen: Unterschrift des gesetzlichen Vertreters) 


Achtung: 


Unbedingt hier unterschreiben! Nicht unterschriebene Anzeigen-Bestellungen können 
nicht ausgeführt werden. 


Ich bestelle die folgenden Disketten aus der RUN-o-thek: 
ANZAHL DISKETTEN RUN/AUSGABE JAHRGANG 


Preis pro Diskette: DM 21,80 (inkl. MwSt.) plus DM 3,— Versandkosten = DM 24,80 
Anzahl der bestellten Disketten: ___ Stück. Gesamtpreis der bestellten Disketten: DM___ 


© Ein Verrechnungs-Scheck über den Gesamt-Betrag von DM 


liegt bei. 


© Ich bezahle die bestellten Disketten per Nachnahme zum Preis von DM 24,80 pro 
Diskette (inkl. MwSt. und Versandkosten) plus NN-Gebühr. 


Meine Anschrift: 


Vorname, Name 


Straße, Nr. 


PLZ/Ort 


Datum AH nterschrift (bei Minderjährigen Unterschrift des Erziehungsberechtigten) 


Bitte 
ausreichend 
frankieren 
UNABHÄNGIGES 
COMMODORE- 
COMPUTERMAGAZIN 


n Antwortkarte 
Lesen Sie 


RUN jet zt CW-Publikationen 
reg elmäßig Verlagsgesellschaft mbH 
. — Vertrieb RUN — 
mit rund 13% Postfach 40 04 29 


Preisvorteil D-8000 München 40 


— mn un zn in rn nz mn nn nn 2 2 


| 


Absender (Bitte deutlich schreiben) 


Vorname/Name 


Straße/Nr. 
PLZ Ort 


Telefon Vorwahl/Rufname 


Bitte diesen Coupon direkt an die 
jeweilige Firma zuschicken. 


_— -—-—- - - > 


Bitte 
ausreichend 


frankieren 


a 
aut 
EEE EINES SEEEEENEEEEN 


Postkarte 


I 
PU 


Straße/Postfach 


OME 


www 


Chefredakteur: Manfred S. Schmidt (mss) 
(verantwortlich, Anschrift siehe Redaktion) 
Redaktion: Christian Rogge (rg), Werner Breuer 
(wb), Michael Nickles (mn), Manfred Wenzel (mw) 
Redaktionelle Mitarbeiter: 

Christoph Grunwald (om), Siegfried Schwarze 
(sis), Andreas Vichr (avi), Peter Vogel (pv), Claus 
Peter Lippert (cpl) 
Redaktionsassistentin: Siggi Pesch (sp) 
Gestaltung: Karin Wirth 

Run-o-thek: Wolfgang Kurtz (wok) 

Anschrift der Redaktion: RUN, Postfach 
40 04 29, Rheinstraße 26/28, 8000 München 40, 
Telefon: 0 89/3 60 86-0, Telex: 5 215 350 comw d, 
Telekopierer: 0 89/3 60 86-1 09 
Auslandsredaktionen: 

Österreich: Erich K. Surböck, c/o ADV, Trattner- 
hof 2, A-1010 Wien, Tel.: 00 43/222/52 32 71 
Schweiz: Günter Schilling, Karl-Jaspers-Allee 4, 
CH-4052 Basel, Tel.: 00 41/61/42 47 16 

USA: CW-COMMUNICATIONS INC.,, 375 Cochi- 
tuate Road, Box 880, USA-Framingham, Mass. 
01701, Tel.: 001/617/879 0700, Tx.: 00230/ 
951 153 computwrld fmh 

Japan: COMPUTERWORLD/Japan, 1- 19-7, Shin- 
tomi Chuoku, J-Tokyo 104, Tel. 0081/3/ 
5 51 38 82 

China: China COMPUTERWORLD, 74 LuGuGun 
Road, P.,O. Box 750, RC-Beijing 100039, Tel.: 
00 88/6/814-61 74 

Verlagsrepräsentanten: 

Großbritannien: Beere Hobson Ass., Euan C, 
Rose, 34 Warwick Road, Kenilworth, GB-War- 
wickshire CV8 IHE, Tel.: 00 44/926/51 24 24. 
Comecon: Klaus J, Ruppert, Goethestr. 10, 6000 
Frankfurt/Main 1, Tel.: 06 11/28 26 90 

USA: CW International Marketing Services, 
Diana La Muraglia, 375 Cochituate Road, Box 880, 
USA-Framingham, Mass. 01701, Tel.: 001/617/ 
879 07 00, Tx.: 00230/951 183 computwrld fmh 
Taiwan: Alice Chen ACE Media, Agency Co,, 
Ltd., P.O,Box 26-578, Taipei R.O,C,, Tel. 021721- 
4302, Telex 14142 acegroup 

Japan: Steven Yamada, Tokyo Representative 
Corp., Sanshin Kogyo Jimbocho 3F, Chiyoda-ku, 
Tokyo 101 Japan, Tel.: 230-4117, Tix.: (781) J26860 
© Copyright CW-Publikationen Verlags GmbH 
Anzeigenpreise: Für Produktanzeigen fordem 
Sie bitte unsere Mediaunterlagen an, 

Vertrieb Handelsauflage: MZV Moderner Zeit- 
schriften Vertrieb GmbH, Breslauer Straße 5, 
8057 Eching, Tel.: 089/31 90 06-0, Telex: 522 656. 
Telefon-Durchwahl: 089/3 60 86 () 
rulsierisnping Brigitte Schleibinger (-153/-155) 
Leserservice: Gustav Drechsler (-218) 
Anzeigenleitung: Sylvia Stier (-161); (verantwort- 
lich für Anzeigen, Anschrift siehe unter Anzeigen) 
Anzeigenverkaufsleitung: 

Barbara Schönberger (-130) 

Anzeigenverkauf: Marianne Gad (-201) 
Anzeigendisposition: Ursel Sauter (-126) 
Anschrift für Anzeigen und Vertrieb: RUN, Post- 
fach 400 429, Rheinstraße 26/28, 8000 München 40, 
Telefon: 0 89/3 60 86-0, Telex: 5 215 350 comw d, 
Telekopierer 089/3 60 86-1 09 

Ob; N 


Rainer Oberländer (Leitung), Stefan Liba 
Druck und Beilagen: 


Carl Gerber Grafische Betriebe, Muthmannstraße 
4, 8000 München 45, Tel.: 089/3 23 93-233 (An- 
schrift für Beilagen) 

Zahl: 


Bayerische Vereinsbank, BLZ 700 202 70, Konto- 
Nr. 116 000, Pschk. München 97 40-800 
Erfüllungsort, Gerichtsstand: München 

Verlag: CW-Publikationen Verlagsgesellschaft 
mbH, Rheinstraße 26/28, 8000 München 40, Tele- 
fon: 089/360 86- 0, Telex: 5215350 comw d, 
Telekopierer: 089/3 60 86-109 
Produktionsleitung: Heinz Zimmermann 
Redaktionsdirektor: Dieter Eckbauer 
Geschäftsführer: Eckhard Utpadel, Walter Boyd, 
Patrick McGovern 
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RUN ist ein Mitglied der CW-Communications/Inc.- 
Gruppe, der Weit größter Verleger für computerbe- 
zogene Informationen. Die Gruppe veröffentlicht 
über 50 Computer-Publikationen in mehr als 20 Län- 
dern. Neun Millionen Menschen lesen eine oder 
mehrere Publikationen dieser Gruppe pro Monat. 
Die Mitglieder der CWCI-Gruppe sind am CW Com- 
munications International News Service angeschlos- 
sen, einem täglichen Nachrichtendienst für die ak- 
tuellsten Meldungen aus dem internationalen DV- 
Geschehen. 

Mitglieder dieser Verlagsgruppe sind: 

Argentinien: Computerworld/Argentina; Asien: 
Asian Computerworld; Australien: Computerworld 
Australia, Australian PC World, Macworld; Brasi- 


lien: DataNews, PC Mundo; China: China Compu- 


terworld, China Computerworld Monthly; Däne- 
mark: Computerworld/Danmark, PC World, Run 
Naensangehr. Aazasrra re nn Le Mon- 
e Informatique, en (Apple), OPC (IBM), Theo- 
reme, Distribati e; Deutschland: Computerwoche, 
Infowelt, PC Welt, Computer Business, RUN; Italien: 
Computerworld Italia, PC Magazine; Japan: Compu- 
terworld Japan; Mexiko: Computerworld/Mexico; 
Niederlande: Computerworld Netherlands, 
PC World; Norwegen: Computerworld Norge, PC 
Mikrodata; Spanien: Computerworld ana, PC 
World, Commodore World; Schweden: Computer- 
Sweden, Mikrodatorn, Svenska PC World; Schweiz: 
Se sen Schweiz; Großbritannien: Compu- 
ter News, PC Business World, Computer Business; 
Ungarn: as, eg rhehlni Informatica; Venezuela: 
Computerworld Venezuela; USA: Amiga World, 
Computerworld, inCider, Infoworld, MacWorld, 
Micro Marketworld, PC World, Run, 73 Magazine, 
80 Micro, Focus Publications, Network World. 


EINE PUBLIKATION DER 
CW COMMUNICATIONS 


Deutschland 
Report 


Newsletter 
der IDC-Deutschland 


® aktuelle Daten 
der Computerindustrie 
® Markttrends 
® Analysen 
® Neuankündigungen 


EIN MUSS 


für das Management der Com- 
puterindustrie 


Erscheinungsweise: 14tägig 
Preise: 

Einzelausgabe DM 50,— 
Jahresabonnement DM 680,— 


Anfragen und Bestellungen richten 
Sie bitte an: 


_ IDG 


IDC DEUTSCHLAND GMBH 
Stuttgarter Str. 10, 

6236 Eschborn, 

Telefon: 06196/4 86 88 


MI PEONELONESTTRN TE STH 


Ichhabe: am ZT VE FE 
Gelegenheits-Anzeige im RUN- 
board bestellt. Sechs Zeilen zum 
Taschengeld-Tarif von nur DM 5,— 
inkl. ges. Mehrwertsteuer. Die DM 5,— 
habe ich der Bestellung beigelegt als 


oO V-Scheck 


board- 


Gebrauchs- 
Anweisung 


B 


Anzeigentext in die vorgedruckten 
Zeilen der Karte schreiben — 
maximal 6 Zeilen mit Anschrift 
oder Telefon-Nummer (pro Buch- 
stabe, Satzzeichen, Wortzwi- 
schenraum.= ] Kästchen). 


. Rubrik, Bereich und Zahlungswei- 


se ankreuzen, Ädresse auf der 
Rückseite der Karte angeben. 


. Datum und Unterschrift nicht ver- 


gessen 


. Karte zusammen mit 5-DM-Schein 


oder V-Scheck über DM 5,— in 
Umschlag stecken. 


‚ Umschlag zukleben, ausreichend 


frankieren und abschicken an: 
CW-Publikationen 

— RUNboard — 

Postfach 40 04 29 

8000 München 40 


. Die Anzeige erscheint im nächst- 


möglichen RUNboard. 


Ich habe die Gele- 
genheit genutzt! 


gm 


eine 


oO Geldschein 


(6) 


Ichhabe am 


RUN-o-thek 
mit den Programmen aus RUN- 


Ausgabez= 
Preis pro Diskette: DM 21,80 plus 
DM 3,— Versandkosten = DM 24,80 


gmo 


beider 
Diskette(n) 


bestellt. 


Bezahltmit V-Scheck-Nr.____ 
Konto-Nummer 
BLZ/Geldinstitut 

Ich bezahle per Nachnahme. 


-o-thek 
Disketten-Service 


07,7b,08,203,05,8f,8f,63,0c,82 14,03,a2,1a,8e,15,23,58,4c,f2 


24 data bd,2c,34,13,24,83,28,04,83,36,0d, 6205 60 data 1a,a5,d8,c9,08,b0,08,18,69,01,85, 5529 
85,9c,2d,8e,5b,28,89,7a,0e,83 d8,4c,de,ce,a2,00,bd,20,12,88 

25 data 090,002,22,c8,2c,12,8F,04,28,58,0e, 5707 61 data bd,28,12,9d,20,12,bd,30,12,9d,28, 5763 
26,f8,0e,26,52,00,88,33,2d4,85 12,bd,38,12,94,30,12,38,9d4,38B 

26 data a5,2d,85,64,0e8,89,70,08,89,7a,de, 5675 62 data 12,e8,e0,08,30,e1,a9,800,4c,c7,la, 6293 
893,00,28,00,48,04,13,a3,0d,14 a6,d6,bd,00,3e,29,30,c9,00,d® 

27 data 38,8e,11,52,0e,04,F9,0e,21,62,0c, 6164 63 data 04,a2,20,20,1b,09,10,d®,04,a2,00, 5097 
91,44,0d,86,51,0e,Ba,fb,0de,85 a0,14,c9,20,d0,04,a2,f8,a0,13 

28 data 20,00,00,20,0c,20,68,0d,1a,aa,0d, 5226 64 data c9,30,d0,04,a2,f0,a0,13,86,d2,84, 5376 
02,2d,2d,83,24,0e,04,28,0e,02 d3,a0,00,b1,d2,99,18,12,c8,cd 

23 data 52,0e,04,ae,0d,08,82,0e,0f,30,0e, 53739 65 data 08,90,F6,4c,65,1b,d2,7d,39,46,82, 65083 
02,58,08,02,50,08,02,86,0de,22 00,00,00,a2,98,86,d2,a2,12,86 

30 data b®,0e,02,da,de,02,04,0Ff,02,2e,0f, 5885 66 data d3,a2,08,86,d4,a2,14,86,d5,bl,d2, 5334 
02,58,0f,02,ae,0c,85,79,0d,87 aa,b1,d4,91,d2,8a,31,d4,c8,c® 

31 data Bd,0e,88,00,00,00,ab,0c,0d,3b,0d, 5416 67 data 00,d0,f1,a6,d2,e0,98,d0,0b,a2,b8B, 5960 
10,30,0e8,13,49,08,0e,33,0f,13 86,d2,a2,28,86,d4,4c,89,1b,68 

32 data aa,0c,94,b9,00,86,ad,2d,84,44,0e, 5110 68 data a6,d6,bd,00,3e,29,01,c9,01,d0,0F, 6166 
86,53,0e,86,3b,0f,84,00,00,00 ad,a®,12,c9,1c,f0,05,a08,00,20 

Er laren re, 23,00, 70, ED JBE,EE ‚a2. 10,20,dE, 7n763 69 data 34,1b,4c,86,1b,ad,a0,12,c9,1c,f®, 5791 


£Ef,ae,20,Ff,8e,15,ff,8e,13,Ff 

34 data a2,ff,B6,89,a2,57,8e8,15,ff,8e,13, 856277 70 
£f,a9,93,20,d2,Fff,a2,4b,86,d2 

35 data a2,17,86,d3,a6,d6,bd,08,3e,6a,23, 5507 
07,aa,2e0,00,F0,17,a0,01,b1l,d2 

36 data c9,00,d0,01,ca,a5,d2,18,69,03,50, 5812 72 
82,8e6,d3,85,d2,4c,67,21,30,08 

37 data b1,d2,85,d4,c8,b1,d2,c9,00,F0,78, 5478 
85,d5,cB,b1,d2,aa,29,80,c9,88 

38 data d®,22,Ba,29,7f,aa,a0,800,a9,77,31, 6636 


£f1,4c,8e,1b,a0,df,4c,44,1b,a6 
data d6,bd,20,3e,29,498,c9,40,d0,13,a2, 56014 
2b,86,d2,22,66,86,d3,a2,04,86 
71 data d4,a2,0F,86,d5,4c,bo,1b,a2,12,86, 5919 
d2,a2,30,86,d3,a2,0d,86,d4,a2 
data 28,85,d5,22,00,86,db,a2,0c,86,dc, 56555 
a0,80,b1,db,c9,77,d8,16,a6,d2 
73 data a5,dc,38,e9,04,85,dc,Ba,91,db,18, 58346 
a5,dc,69,04,85,dc,4c,05,1c,c9 


d4,a9,78,c8,91,d4,35,d4,18,63 74 data 78,f0,e6,c3,53,990,09,c9,77,b80,25, 56681 
39 data 28,390,02,86,d5,85,d4,ca,s®,00,d®, 6246 a6,d3,4c,ce,1b,c9,2f,d0,05,36 
e5S,4c,1e,19,8a,a8,a9,43,391,d4 75 data d4,“4c,ce,1b,c9,43,d9,05,36,d5,"4c, 5543 
49 data 88,c0,00,d0,f7,a5,d2,18,63,03,30, 6061 ce,tb,e6,db,a6,db,e8,00,d®,b7 
02,e6,d3,85,d2,4c,d8,18,4f,493 76 data e5E,dc,a6,dc,e0,10,90,af,a2,0c,86, 5594 
41 data 4d,4e,4a,51,20,20,20,20,20,20,20, S404 desan, Se, 06, dB ,a2,E3s0n,de,a5 
De 20,51 ,20,20,20,20 de ,4e 48 £ 77 data d9,85,d2,a5,da,85,d3,ad,06,Ff,093, 5087 
42 data 4b,50,51,20,42,51,20,20,20,20,42, 5773 FO, Bd OB ERIED DS IENED A, 
51,20,20,20,20,20,20,a2,00,ba 78 data 20,71,25,35,d9,85,d2,a5,da,85,d3, 56010 
43 data 2c,19,9d,00,0c,e8,e0,28,30,F5,a3, 5186 20,04, 1F,10,71,05,89,3a,ar,00 
0C,8d,1D,08,29,77,8d,21,08,ad 73 data e2,e8,e0,03,30,f9,a5,d9,85,d2,a5, 5421 
44 data 11,FF,29,80,09,@F,8d,11,ff,ad,12, 5888 Ben, al, On Er DS, 1O;EA,DE 
FF ‚29, Fb,8d,12, FF ,a2,00,.8,2F 80 data FF,4c,@4,1f,a5,dc,85,d3,a9,00,a2, 5834 
45 data 3d,28,0c,e8,e®,28,d0,Ff8,a2,0c,85, 5388 03,20,569,21,60,ea,ca,20,4©,1a 
d3,a2,4f,86,d?,20,00,a3,2F,31 81 data a5,d3,38,e9,04,85,d3,83,20,33,1a, 5855 
45 data d?,c8,31,d?,a5,d?,18,69,28,30,02, 5386 18,85,d3,69,04,85,d3,50,29,00 
e6,d3,85,d2,26,d3,e0,19,30,e6 82 data 84,d4,84,d5,20,a1,1c,20,01,20,a1, 5304 
47 data a2,00,a9,2f,3d,c0,0f,eB,e8,28,d®d, 5345 1c,20,28,28,a1,1c,a0,29,4c,al 
FB,a6,d6,bd,88,3F,aa,29,81,c9 83 data 1c,b1,d2,c9,20,b0,07,a85,d4,09,40, 59320 
48 data 01,d0,0c,20,00,29,3e,39,38,0c,c8, 5734 85,d4,60,c39,7a,30,04,c9,7e,98 
c®,08,30,F8,8a,29,02,c9,92,d® 84 data f1,c9,3F,d8,07,35,d4,09,02,85,d4, 6135 
49 data 10,30,00,39,3F,39,8F,04,98,18,69, 5723 60,c9,3e,d®,07,a5,d4,09,01,85 
28,a8,c9,b0,30,F2,82,23,04,c3 85 data d4,60,c9,40,d0,07,35,d4,09,04,85, 5838 
59 data 04,d0,2c,a9,40,a0,00,393,d0,0F,c8, 5917 d4,60,c9,41,d0,07,a5,d4,09,08 
c0,08,d®,f8,88,29,08,c9,08,d® 86 data 85,d4,50,c9,2f,d0,07,a5,d4,09,30, 646B 
51 data 10,a0,00,a9,41,39,68,0d,38,18,68, 5657 85,d4,50,09,33,30,0b,c9,3e,b® 
28,38,c9,b0,90,F2,a2,00,a9,53 87 data 07,85,d4,09,80,85,d4,50,09,79,d®, 6183 
52 data a0,00,94,71,0c,e8,c8,18,69,01,c0, 5808 07,25,d5,09,01,85,d5,60,c9,2e 
06,30,F4,85,d2,8a,18,69,22,aa 88 data d0,07,a5,d5,09,02,85,d5,60,c9,2d, 6802 
53 data a5,d2,e0,F80,30,e5,4c,91,1a,a0,008, 5636 d®,07,45,d5,09,04,85,d5,60,c9 
91,d2,c8,31,d2,a0,28,31,d2,c8 89 data 43,d0,2d,35,d5,09,08,85,d5,a5,d4, 6132 
54 data 91,d2,60,a0,00,391,d2,c8,18,69,01, 5732 093,10,85,d4,60,c9,44,d0,07,85 
91,d2,18,69,01,a0,28,391,d2,18 90 data d5,09,10,85,d5,60,c9,77,d0,07,a5, 6608 
55 data 69,01,08,31,d2,60,a2,13,86,d2,a2, 5372 d5,09,20,85,d5,60,c9,78,F0,F5 
0d4,86,d3,a9,20,20,33,1a,a6,d6 91 data 4c,5f,1d,ad,00,ff,85,d7,a9,0e,85, 5874 
56 data bd,00,3F,aa,29,80,c9,80,d0,06,a9, 5140 da,a9,04,85,d9,a9,Ff,85,dd,4c 
2e,8d,3b,0d,60,8a3,29,49,c9,4® 32 data 6d,1d,c9,21,90,07,c9,2d,b0,03,4c, 6103 
57 data d0,05,39,2d,4c,75,1a,Ba,29,20,c9, 5532 a7,1c,4c,3e,21,a9,00,85,e6,4c 
20,dd,ec,a9,79,40,75,1a,a6,d6 93 data e2,23,20,89,1c,a5,d4,aa,29,01,c9, 6364 
58 data bd,00,3e,29,80,c9,80,f0,03,20,5a, 5307 01,d0,0F,c6,d6,a2,83,a0,0F,86 
la,a6,d6,bd,00,3F,23,10,c9,18 S4 data d9,84,da,20,14,2b,38,60,8a,29,08, 5206 


data d0,05,a9,44,8d,99,0F,7B,a2,be,Be, c9,02,d0,0e,a5,d6,18,69 


Listing 2: Boxen, Treten, Springen: Viel Action ist notwendig, um das Schwert zu finden 


poke 56,56:clr :For t=14642 to 16382: 
cc) 1987 by read a$:poke t,dec (a$):pr-int (Cpr+t* 
dec (a$))/256)+t:next t 
olaf panz if pr<>38053 then print "Fehler in 
datas !” \ 
drosselgasse 4 data 10,85,d6,a2,e2,a0,0d,4c,86,1d,Ba, 
29,04,c9,04,d0,89,86,d6,a2,62 
2035 marschacht data a®,2c,4c,86,1d,83,293,08,c9,08,d2, 


shogun maker 3 rem 
| 
1 


[v) 
1 
(= 
3 
x: 
= 
6 
% 
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14 
15 
16 
17 
18 
19 
20 
ei 
22 
(==) 
e4 
, 
e6 
87 
28 
23 
3® 
31 
32 
33 
34 
35 
36 
37 
38 
393 
40 
41 
42 
43 
44 
35 
46 
47 
48 
49 
52 
51 
s2 
53 


54 


0e,38,25,d5,=39,10,85,46,20,2e 


data a2,04,4c0,86,1d,Ba,29,12,c9,10,F0, 


0b,8a,29,49,c9,40,d9,06,29,58 


data 85,d4,38,60,83,293,80,c9,80,d8,2b, 


a5,81,093,01,B5,el,ad,11,Ff,23 


data 15,8d,11,Ff,ad,12,Ff,29,Fd,99,01, 


Bd,12,ff,ad,90,FF,8d,0e,ff,a5 


data dd,38,29,58,b2,02,29,090,85,dd,38, 


69,85,d5,aa,293,01,c9,01,d8,22 


data ad,11,ff,09,17,8d,11,FF,ad,12,FfFf, 


03,03,8d,12,Ff,a9,04,8d,0e,ff 


data a5,e6,18,69,42,30,02,e6,e27,85,86, 


18,60,82,29,02,c9,02,d0,30,ad 


data 11,FF,09,37,8d,11,Ff,ad,12,Ff,09, 


23,8d,12,ff,a2,20,8e,Be,ff,ca 


data Be,0f,Ff,ad,10,FFf,29,fc,09,22,Bd, 


10,FF,18,a5,e6,569,42,30,02,e6 


data e7,4c,19,26,ea,Ba,29,04,c9,04,d®, 


la,ad,11,ff,09,14,8d,11,Fff,ad- 


data 12,ff,29,fc,09,01,49,00,8d,Be,ff, 


a2,ff,86,dd,18,60,82,29,10,c9 


data 18,d0,f7,ae,00,ff,bd,20,3Ff,29,10, 


c9,18,d0,F4,86,d6,a2,0F,86,da 


data a2,49,86,d9,a9,57,8d,11,FF,a9,03, 


8d,10,ff,a9,d0,84,0Ff,Ff,ad,12 


data fF,09,03,8d,12,Fff,a9,00,20,00,8c, 


de,ff,a2,00,e8,e8,480,30,Fb,c8 


data ee,13,ff,ee,15,ff,c0,80,90,eb,8c, 


De,ff,a2,00,e8,e0,40,30,fb,88 


data c0,00,d0,F1,18,69,01,c9,08,d0,d3, 


a9,08,8d,11,ff,a9,33,20,d2, FF 


data 20,14,2b,38,60,a0,00,b1,d2,8d,1®, 


86,c8,b1,d2,8d,11,06,20,28,b1 


data d2,8d,12,06,c8,b1,d2,8d,13,06,60, 


bd,190,06,91,d2,e8,50,a2,00,28 


data 00,20,1f,1F,c8,20,1f,1f,a0,28,20, 


1F,1F,c8,20,1f,1f,a5,d3,38,e3 


data 04,85,d3,a6,d6,bd,80,3e,a2,2b,28, 


40,c9,40,f0,02,a2,12,88,20,33 


data 1a,a5,d3,18,69,04,85,d3,60,c9,77, 


d8,01,60,c9,78,d8,fb,a9,77,68 


data B5,2b,ad,10,06,20,5c,1F,c9,77,d0, 


083,4c,14,20,20,04,1F,ad,12,06 


data 20,5c,1f,c9,77,f0,21,ad,13,06,20, 


Sc,1F,F®,19,35,2b,20,2a,22,38 


data a5,d3,e9,04,85,d3,a9,0c,20,33,1a, 


a5,d3,18,69,04,85,d3,60,ad,12 


data 06,20,50,1F,c9,77,F0,Ba,e6,d2,a6, 


d2,e8,00,d0,02,e6,d3,ad,13,86 


data 20,5c,1F,c9,77,F0,2a,c6,d2,a6,d2, 


ed,ff,d®,02,c6,d3,20,38,23,99 


data Oe,a5,d39,85,d2,a5,da,85,d3,20,04, 


1f,4c,68,1f,20,04,1F,2d,10,06 


data 20,5c,1f,c9,77,F0,0e,a®d,00,a9,00, 


91,d2,c8,a9,21,91,d2,4c,06,28 


data a0,00,a9,7a,31,d2,c8,a3,7b,31,d2, 


a0,28,a9,7c,91,d2,c8,a9,7d,31 


data d2,4c,91,1fF,20,04,1f,ad,12,06,20, 


Sc,1F,c9,77,F8,8a,c6,d2,a6,d2 


data ed,ff,d0,02,06,d3,2d,13,06,29,5c, 


1F,c09,77,f0,0a,e6,d2,a6,d2,e8 


data 00,d0,02,e6,d3,20,38,23,b0,Be,20, 


84,1F,a2,00,bd,190,06,20,5c,1F 


data c9,77,F0,08,e8,e0,03,d0,f1,4c,8c, 


1f,4c,e3,1f,a2,00,8e,11,ff,a8 


data 50,b1,d9,09,20,d0,4b,cB,b1,d9,c3, 


20,d0,44,a2,17,20,3a,29,a5,d9 


data Bd,Qe,ff,a5,da,38,e9,0c,04,12,FF, 


Bd,12,ff,e6,e8,a6,eB,e9,04,38 


data 08,a6,dd,e9,00,F0,92,c6,dd,a5,d3, 


85,d2,35,da,85,d3,20,26,1F,a5 


data d2,18,69,28,399,04,e6,d3,e6,da,85, 


d2,85,d9,a9,0c,40,568,1F,a5,d9 


data B5,d2,a5,da,85,d3,4c,f1,23,39,0®, 


8d,08,Ff,20,af,25,3a,20,00,84 


data 2b,29,80,c9,80,Ff0,03,4c,72,21,8Ba, 


29,01,c9,01,F0,0b,25,d2,38,e39 


data 28,b8,02,c6,d3,85,d2,Ba,29,02,c3, 


02,f0,0b,25,d2,18,69,28,99,02 


data e6,d3,85,d2,Ba,29,04,c9,04,F®,®e, 


c6,d2,a4,d2,c0,ff,d9,02,c6,d3 


data a0,08,84,2b,8a,29,08,c9,08,F®,0e, 


5336 
6157 
5385 
5758 
6184 
6B51 
5341 
6237 
6145 
5535 
se42 
Ss226 
5351 
5941 
5780 
6598 
5763 
5801 
6319 
6405 
6840 
6992 
6204 
5357 
6641 
6342 
6436 
5738 
6138 
6262 
6440 
6412 
5822 
5625 
5733 
5538 
ss24 
5538 
5353 


5311 


55 
56 
57 
58 
s3 
698 
61 


62 


63 
64 
65 
66 
67 


68 


639 
78 
7ı 
72 
73 
74 


75 


76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
83 
14) 
s1 
32 
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eb,d2,a4,d2,c8,08,d0,02,e6,d3 


data a®,04,84,2b,20,38,23,390,28,25,d3, 


85,d2,85,da,85,d3,28,6a,1F,a5 


data d2,85,d9,435,d3,85,da,62,c05,53,3®, 


02,c3,77,b0,06,85,d4,09,10,85 


data d4,68,280,04,1f,4c,17,20,18,26,28, 


5c,1f,c9,77,f0,08,e8,e28,83,d8 


data fF1,4c,Bc,1f,40,17,20,ad,06,FF,28, 


ef,8d,06,Ff,4c,bd,18,8a,29,0€ 


data c9,08,d8,62,35,d2,38,e39,50,b2,®2, 


c6,d3,85,d2,4c,25,21,c9,28,38 


data 08,c9,2c,b9,06,c9,21,99,02,38,6®, 


c9,7f,b9,04,c9,73,b8,f6,18,68 


data 30,03,b1,d2,20,87,21,b0,29,20,2a, 


b1,d2,280,87,21,90,ec,a9,4f,Bd 


data 11,fFf,29,02,8d,10,ff,ad,20,FF,6d, 


03,ff,38,60,30,27,b1,d2,20,87 


data 21,b0,e5,c6,d3,a0,FFf,b1,d2,e6,d3, 


20,87,21,b0,d8,18,69,86,2c,8a 


data 29,0Ff,c39,07,d0,21,e6,d2,a6,d2,e®, 


28,d0,02,e6,d3,20,9F,21,90,08b 


data a5,de,38,89,03,b8,02,a9,00,85,de, 


a0,18,84,2b,4c,25,21,85,20,29 


data 0f,c9,0b,d®,2b,c6,d2,a6,d2,e0,Ff, 


d®,02,c6,d3,28,c3,21,98,0b,35 


data de,38,e3,03,b9,02,a39,00,85,de,ad, 


14,40,00,22,35,de,38,e9,05,b® 


data 22,39,00,85,de,60,a5,2c,29,0f,c9, 


05,d0,38,26,d2,a6,d2,e0,09,d0 


data 02,e6,d3,20,2b,23,b0,08,20,3F,21, 


930,06,20,2c,22,4c,71,22,e6,d2 


data a6,d2,e0,008,d0,02,e6,d3,20,2b,23, 


b0,08,20,9F,21,90,03,20,2c,22 


data a®,21,84,2b,40,25,21,a5,20,29,0f, 


c9,89,d0,55,c6,d2,36,d2,ed, ff 


data d®,22,c6,d3,20,2b,23,b9,08,20,c3, 


21,90,06,29,2c,22,4c,b1,22,c6 


data d2,a6,d2,ed,Ff,d®,202,06,d3,20,2b, 


23,b0,08,20,c3,21,90,03,4c, 94 


data 22,a9,25,85,2b,4c,25,21,86,d2,a6, 


d2,28,00,d0,02,e6,d3,20,2b,23 


data S0,01,560,20,9F,21,30,06,20,2c,22, 


20,20,22,18,60,35,20,29,0F,c9 


data 056,d0,33,29,18,85,2b,20,b8,22,b0, 


08,20,b8,22,b0,03,20,b8,22,4c 


data 25,21,c6,d2,a6,d2,e2,Fff,d®,02,c6, 


d3,28,2b,23,90,01,60,29,c3,21 


data 90,06,20,2c,22,20,2c,22,18,60,a5, 


2c,29,0F,c9,83,d80,11,39,1c,85 


data 2b,20,F1,22,b2,cb,20,f1,22,b0,c6, 


28,f1,22,40,25,21,60,20,25,21 


data 20,26,1f,a5,e1,09,02,85,e1,60,6c, 


3f,00,22,00,86,28,20,26,1F,a0 


data 50,29,00,85,d4,20,a1,1c,a5,d4,29, 


49,c9,48,F0,01,60,a0,51,a9,00 


data 85,d4,20,21,1c,a5,d4,293,40,c9,40, 


d®d,se,a5,de,38,e9,0d,b9,02,a9 


data 00,85,de,a5,e6,1B,63,04,390,22,e6, 


e7,85,8e56,a9,4f,Bd,11,ff,a9,22 


data 8d,10,FF,a9,20,84,03,FF,60,18,a0, 


06,22,008,20,f0,ff,a5,e7,a6,66 


data 20,5f,a4,18,a2,00,a0,0f,20,f0,Fff, 


a3,00,26,2d,20,b7,38,a8,1d,a2 


data 090,18,20,F0,ff,a9,009,a6,de,20,5fF, 


a4,1B,a2,00,20,23,20,F0,FF,a9 


data 00,36,dd,20,5f ,a4,a2,20,a5,de,c9, 


22,b9,93,8e,1e,®c,a5,dd,c9,64 


data b8,03,Be,25,9c,c9,803,b®,11,4c,ed, 


23,85,e7,85,e8,85,2d,85,2b,.a 


data sa,60,88e,24,0c,69,85,e1,29,02,c9, 


02,F0,06,28,3b,23,4c,c1,28,a5 


data el,29,fd,85,e1,a9,20,85,2b,20,26, 


1F,28,3b,23,4c,25,21,a5,df,85 


data d2,85,d4,a5,e80,85,d3,38,89,04,55, 


dS,35,e2,30,80,31,d2,ad,14,26 


data 31,d4,cB,a5,e3,31,d2,ad,15,06,31, 


d4,80,28,a5,e4,931,d2,ad,16,86 


data 31,d4,cB,a5,e5,31,d2,ad,17,806,31, 


d4,a9,00,85,d4,c6,d3,a80,d9,208 


data a1,1c,30,d8,20,al1,1c,e6,d3,a5,el, 


23,01,c3,01,F0,0b,a5,d4 


Listing 3: Das Versteck des Schwertes ist auf einer Karte verzeichnet 
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5846 
6964 
54560 
5751 
6165 
5871 
5303 
6528 
6921 
6458 
6151 
5253 
6159 
6333 
6214 
5965 
56003 
6174 
6135 
6156 
6068 


6058 
5517 
6038 
6166 
5633 
5697 
6224 
5783 
58493 
5316 
5017 
BE46 
63396 
6287 
5537 
5888 
6168 
60948 


5273 


{ 


» 
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| Spiele Listing 


rem shogun lader 4 

rem 

rem cc) 1987 by 

rem 

rem olaf panz 

rem 

rem drosselgasse 4 

rem 

rem 2835 marschacht 

rem 

poke 56,56:c1lr :for t-14642 to 16382: 

read a$:poke t,dec (a$):pr*-int CCpr+t* 

dec (a$))/256)+t:next t 

if pr<>25725 then print "fehler in 
datas !” 

data 29,40,c39,49,d®,23,20,eb,25,a5,e1l, 
e9,fe,85,e1,a9,0f,85,d3,ad,9® 

data FF,29,3f,c9,25,b0,f7,18,69,47,85, 
d2,89,008,85,d4,20,89,1c,a5,d4 

data 29,40,c9,40,F0,e3,a5,d2,38,e9,28, 
b8,02,c6,d3,85,d2,20,89,1c,a5 

data d4,29,2f,c9,00,d2,c9,35,d5,29,17, 

c9,20,d90,c1,35,d4,29,180,c9,18 

data d2,08,a5,d5,c9,28,29,08,f0,b1,a5, 

d2,85,d4,35,d3,38,e9,804,85,d5 

data a0,00,b1,d2,85,e2,b1,d4,8d,14,06, 

c8B,b1,d2,85,e3,b1,d4,8d,15,06 

data a0,28,b1,d2,85,e4,b1,d4,8d,16,26, 

c8,b1,d2,85,e5,b1,d4,8d,17,06 

data a9,33,20,42,1a,a5,d3,85,e0,a5,d5, 

85,d3,a9,0c,20,33,1a,36,d2,86 

data df,ee,3b,05,as,3b,05,20,52,30,05, 
a2,00,8e,3b,905,60,20,89,1c,a5 

data d4,29,df,c9,00,F0,02,38,59,a5,d4, 
e9,1F,c9,80,d0,f6,4c,42,29,89 

data 77,8d,99,1F,a9,74,85,3F,a9,1d,8S, 
40,4c,58,20,89,0c,8d4,99,1f,a9 

data 1f,85,3f,39,34,85,49,35,e6,85,41, 
a5,27,85,42,20,71,25,20,63,20 

data 20,71,25,35,41,85,86,a5,42,85,e7, 
69,ea,ea,a6,dd,a5,de,85,dd,86 

data de,a2,00,bd,10,06,38,bd,18,26,9d, 
10,26,98,9d,18,06,e8,e8,04,d2 

data ed,a6,d9,a5,db,86,db,85,d9,a6,da, 

a5,dc,86,dc,85,da,a6,e8,a5,43 

data B5,e28,86,43,a5,e1,a6,44,86,e1,B5, 

44,60,a5,3F,c9,74,d8,68,2d,08 

data ff,49,FF,85,d4,22,29,80,05,d4,49, 

ff,60,35,d5,38,e9,00,85,d5,a8 

data 00,35,d4,38,e9,28,b8,2b,c6,d5,a6, 

dS,ed,ff,d8,03,84,d5,60,85,d4 

data c8,4c,cd,25,85,d4,c8,4c,cd,25,a5, 

d3,38,e93,05,85,d3,a2,d8,b1,d2 

data aa,c8,b1,d2,a8,a5,d3,18,69,05,85, 

d3,8e0,77,F0,804,c0,77,d0,03,4c 

data e4,1d,a5,de,38,e3,50,b9,02,39,00, 

85,de,60,e6,2d,18,60,20,4a,26 

data 4c,f2,29,86,48,35,d2,18,65,48,990, 

02,86,d3,85,d2,690,86,48,a5,d2 

data 38,e5,48,b0,02,c6,d3,85,d2,60,a6, 

db,86,d4,a6,dc,86,d5,4c,c4,25 

data a5,d2,85,d4,a5,d3,85,d5,20,c4,25, 

a5,d4,85,45,a5,d5,85,46,a5,df 

data 85,d4,a5,e0,85,d5,20,c4,25,a4,d5, 

c4H,46,90,47,a6,d4,e4,45,d0,36 

data a5,89,29,04,c9,04,F0,19,a2,02,20, 

31,26,20,89,1c,a2,02,20,23,26 

data a5,d4,c9,00,d0,03,39,72,60,39,76, 

60,22,02,20,23,26,20,89,1c,a2 

data 02,20,31,26,35,d4,c39,00,F0d,ea,d®, 

e5S,e8,e4,45,f0,c5,ca,ca,e4,45 

data f®,bf,20,3F,26,a4,d5,c8,cB,c4,46, 

d®,1c,a6,d4,e4,45,d0,20b,a0,50 

data b1,d2,c9,77,d0,26,a9,fd,60,eB,e4, 

45,f0,bf,ca,ca,e4,45,f0,a0,a8 

data 27,b1,d2,c9,13,d®,1e,a2,50,20,31, 

26,20,89,1c,32,590,20,23,26,85 

data d4,c9,00,d0,13,a5,d5,29,df,c9,28, 

d0,0b,29,7e,60,20,02,b1,d2,c3 

data 14,f0,da,20,3Ff,26,34,d5,88,88,c4, 

46,d2,7b,a6,d4,e4,45,d0,03,a9 

data ff,50,ca,e4,45,d0,12,30,51,b1,d2, 

c3,04,d0,03,39,75,60,c9,10,F8 


data f9,a9,fF7,60,e8,eB,e4,45,d0,12,a0, 


Ss8,b1,d2,c9,09,d0,83,a9,79,69 
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data c9,15,F0,f9,39,fb,60,eB,e4,45,d®, 
1b,a2,02,28,31,26,20,89,1c,a2 
data 02,20,23,26,35,d4,c9,00,d®,2b,a5, 
d5,293,dFf,c9,00,fd,dd,ca,ca,ca 
data ca,e4,45,d0,1b,a2,02,20,23,26,20, 
89,1c,a2,02,20,31,26,35,d4,c9 
data 00,d0,08,35,d5,29,df,c9,020,Ff2,a2, 
a8,28,b1,d2,c9,77,d8,1b,a0,4F 
data b1,d2,c9,28,d0,13,a0,52,b1,d2,c9, 
20,d20,2b,235,89,c9,Ffe,f0,04,c9 
data Fd,d0,01,60,a4,d5,c4,46,d8,5c,a6, 
45,e8B,e8,e4,d4,d®,1b,ad,020,Fff 
data 29,01,c9,21,d0,03,a9,77,60,ad,0®, 
ff,29,22,c9,02,d80,03,39,75,68 
data a9,76,60,e8B,e4,d4,fd,ec,eB,e4,d4, 
£f0,f3,a6,45,ca,ca,e4,d4,d®,1b 
data ad,00,fFf,29,01,c9,21,d0,03,a5,7b, 
68,2d,00,ff,29,02,c9,02,d0,03 
data a9,79,60,39,7a,60,ca,e4,d4,F®d,ec, 
ca,e4,d4,F8,F3,d8,0b,c8,c4,46 
data f®,Sf,88,88,c4,45,F0,39,a4,d5,c4, 
46,d0,22,36,d4,e4,45,90,0de,a® 
data 2a,b1,d2,c9,43,d0,03,89,F6,60,a9, 
£E7,680,80,27,b1,d2,c9,43,d0,83 
data a9,fa,60,39,fb,60,c8,c4,456,f0,d9, 
cB,cH,46,f0,d4,a4,d5,88,c4,46 
data F®,cd,88,c4,46,f0,cB,4c,395,29,ea, 
90,023,4c,d5,28,30,580,b1,d2,c9 
data 77,d0,03,a9,fd,60,c9,78,d0,03,a9, 
£b,60,c8,b1,d2,c9,77,d0,03,a9 


data F7,60,a5,89,29,24,c9,04,dd,eb,a5, 
893,29,88,c9,08,dd,ed,a6,d4,e4 
data 45,30,1e,30,50,b1,d2,a2,00,86,d5, 
20,a3,1c,35,d5,29,28,c9,20,f8 
data d4,c8,a5,d5,29,08,c9,08,f0,e6,d®, 
bf,a8,50,b1,d2,22,00,86,d5,28 
data a3,1c,a5,d5,29,20,c9,20,f0,ac,B8, 
a5,d5,29,28,c9,08,Ff8,e6,d8,ab 
data a®,28,b1,d2,c9,77,d0,23,a9,fe,60, 
a5,89,29,04,c9,04,d0,32,35,89 
data 29,08,c3,08,d0,26,a6,d4,e4,45,90, 
©4,80,00,b1,d2,a2,00,86,d5,86 
data d4,20,a3,1c,c8,a5,d5,29,20,c9,20, 
d®,03,39,F7,60,85,d4,29,2f,c9 
data 00,fF0,e1,a9,fb,60,a0,28,b1,d2,a2, 
00,86,d5,86,d4,20,33,1c,88,a5 
data d5,29,20,c9,20,Ff0,e7,a5,d4,29,2f, 
c9,88,f0d,e4,d®,d2,4c,9b,33,89 
data fFd,85,839,60,a2,28,20,31,26,29,d4, 
29,a2,28,20,23,26,a5,d4,29,48 
data c9,40,f0,2f,18,50,18,560,35,89,ea, 
ea,c9,fb,d0,11,a80,27,b1,d2,c9 
data 43,d0,26,39,fb,85,89,60,ea,a5,89, 
60,25,89,ea,ea,c9,f7,d0,f5,a8 
data 2a,b1,d2,c9,43,d0,ed,f®,e5,a6,d2, 
e4,d9,d®,08,36,d3,e4,da,d®,02 
data 18,60,38,60,35,89,c9,fd,F0,04,c9, 
fe,dd,06,30,28,b1,d2,c9,77,F8 
data 26,24,46,c4,d5,4c,62,2B,a0d,4f,bi, 
d2,c9,43,d0,Bda,a2,fb,a5,e1,03 


data 490,4c,27,2b,60,30,52,b1,d2,c9,+43, 
dad,df,a2,f7,4c,b9,29,4c,a8,33 

data 00,00,00,a0,00,b1,d2,84,d4,84,d5, 
28,a3,1c,35,d4,29,40,c9,40,£8 

data 01,60,84,d4,c8,b1,d2,20,a3,1c,6®, 
ea,85,89,30,00,b1,d2,c9,77,£0 

data 23,4c,5b,29,a5,89,ea,ea,c9,fb,d®, 
11,88,c6,d3,b1,d2,86,d3,c9,43 ' 

data d®,ea,20,a8,29,4c,f2,29,a5,B9,esa, 
ea,c9,f7,d8,dc,a80,802,b1,d2,c9 

data 43,d0,d4,fF0,e8,c9,290,d0,04,a9,00, 
85,2b,aa,a5,e1,29,40,c9,40,d® 

data 8a,a5,el1,29,bf,85,e1,39,ff,85,89, 
Ba,4c,42,1a,08,f4,45,7c,80,1B 

data 16,25,04,00,28,15,15,04,00,28,15, 
0d4,04,08,c8,F4,15,7c,80,28,14 

data 25,04,00,08,14,45,04,00,08,14,45, 
7c,00,00,00,00,00,00,00,00,00 

data 00,090,00,00,200,20,00,00,60,fc,23, 
80,00,60,Fc,03,00,20,00,60,08 

data 290,00,50,50,00,20,00,560,60,00,00, 
00,50,60,00,00,00,50,60,008,008 

data 00,29,9F,20,06,34,a2,02,8e,19,Ff, 
Be,15,ff,a9,33,20,d2,ff,a2,98 
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data 12,fF,09,04,8d,12,Ff,20,4b,1d,20, 5674 
30,15,4c,fb,2b,85,e1,Ba,a6,d4 

data e4,45,d0,03,4c,a8,23,60,20,87,18, 6502 
a2,00,86,d2,86,d4,a2,00,86,d3 

data a2,08,86,d5,20,00,b1,d2,c9,53,30, 4766 
08,c9,77,b0,04,a9,00,91 


4: Die Ka steht aus 60 Teilen. 


rem shogun lader 5 
rem 


rem cc) 1987 by 

rem 

rem olaf panz 

rem 

rem drosselgasse H 

rem 

rem 2085 marschacht 

rem 

poke S6,56:clr :for t=14642 to 16382: 
read a$:poke t,dec (a$):pr=-int C(pr+t* 
dec (a$))/256)+t:next t 

if pr<>18546 then print "fehler in 
datas !” 

data d4,c8,c0,00,d2,ed,e6,d5,e6,d3,a6, 
d3,e8,0e,d®,e1,a0,00,bd,80,3F 


data 29,1f,c3,08,d0,10,c8,c0,08,d0,F2, 
a5,d6,c5,d7,d0,05,39,52,8d,81 
data Of ,‚4c,ff,36,35,4a,c9,23,30,0a,c9, 
03,£0,03,20,48,25,20,48,25,28 
data 48,25,85,ds,c9,20,f0,03,4c,fe,2b, 
89,2f,20,b7,33,a9,f7,8d,0F,Ff 
data a9,03,8d,10,Ff,ce,Bdf,Ff,ae,Of,Ff, 
ed,00,dd,Ba,ce,18,Ff,as,10,ff 
data e0d,7c,f®,0a,a0,00,c8,c0,20,d0,fb, 
4c,Bd,2b,a6,db,86,d2,a6,dc,86 
data d3,a9,29,20,42,1a,a9,4f,Bd,11,FF, 
ee,10d,ff,a0,00,22,00,e8,.e,13 
data Ff,e0,00,d0,F8,c8,c0,20,d08,f1,ad, 
ı11,Ff,29,90F,38,e9,01,85,d4,c9 
data 00,f0,0d,ad,11,Ff,29,F0,05,d4,8d, 
11,ff,4c,c0,2b,a9,00,8d,11,ff 
data a6,d6,bd,80,3e8,23,7f,3d,00,3e,20, 
14,2b,20,el,ff,d®,29,c6,208,a8 
data 00,c8,c0,02,d0,Fb,e8,e0,20,d0,f4, 
ee,13,ff,20,el,ff,d®,f8,33,d7 
data 8d,19,Fff,a2,00,30,00,c8,c0,20,d2, 
fb,e8,e0,00,d0,f4,20,8b,23,a8 
data 00,22,00,e8,2e0,00,d0,fb,c8,c4,49, 
dd,F4,a6,d6,bd,80,3£,29,10,c9 
data 10,d0,06,2d,00,ff,8d4,39,2b,4c,75, 
2c,38,a9,00,85,d4,98,20,a3,1c 
data a5,d4,29,490,c9,40,d0,02,30,20,38, 
60,22,00,b5,e2,20,51,2c,95,e2 
data e8,e20,04,d0,F4,60,35,4a,c9,04,30, 
06,20,66,2c,20,12,24,20,66,2c 
data 20,12,24,35,43,c9,01,d0,06,20,38, 
85,20,cd,2c,20,38,25,20,9c,2c 
data 4c,df,2c,a2,00,bd,10,26,09,2d,d®, 
OF,a4,d6,b9,00,3F,29,1F,99,00 
data 3f,a9,20,40,bc,20,c9,2e,fd,ed,cS9, 
79,£0,89,c9,3a,30,04,c9,3e,98 
data eb,9d,10,26,e8,20,04,d0,d2,60,20, 
9c,20,30,00,a2,00,e8,e0,00,d® 
data fb,c8,c®,20,d0,fF4,60,20,8b,23,a5, 
dd,c9,00,F0,03,4c,95,2d,a9,3f 
data Bd,11,Ff,ad,12,Ff,29,fc,09,01,8d, 
12,ff,a2,00,Be,de,ff,a2,f7,Be 
data 2f,ff,a2,03,8e,10,ff,ee,de,ff,see, 
19,Ff,ee,15,ff,ce,df,Ff,ae,df 
data Ff,ed,ff,d®,da,ce,10,ff,ae,10,Fff, 
ed,7c,f®,0a,a2,00,eB,e8,00,d® 
data fb,4c,09,2d,a6,d9,86,d2,a6,da,86, 
d3,a9,29,20,42,1a,a9,7e,8d,1® 
data ff,a9,40,Bd,0Ff,Fff,a9,5f,Bd,11,ff, 
ad,12,ff,29,£f0,89,01,8d,12, ff 
data a2,50,Be,de,ff,a2,00,a0,00,ee,®Be, 
Ff,ee,19,ff,ee,15,Ff,08,c0,08 
data d®,f2,e8,e0,20,d0,eb,ad,11,Fff,28, 
0F,38,e9,01,85,d4,c9,00,F0,0d 
data ad,11,ff,29,£f0,05,d4,8d,11,Fff,4c, 
5b,2d,a9,00,8d,11,ff,4c,18,32 
data a5,c6,c9,01,f8,F7,4c,29,34,ea,a?, 
00,86,d2,a2,10,86,d3,a2,dd,86 


data 86,d2,86,d4,a2,0c,86,d3,a2,021,86, 
dS,a4,d4,b9,49,2a,a2,51,24,d5 
data d®,02,a2,20,8a,a0,09,51,d2,e6,d2, 
a6,d2,e0,00,d0,02,e6,d3,a5,d5 
data 18,65,d5,85,d5,30,db,e6,d4,a6,d4, 
e8d,53,30,cf,a9,00,8d,11,ff,ad 


data d4,a2,2d,86,d5,20,f6,33,23,ef,8d, 
06,Ff,78,30,00,b1,d2,aa,b1,d4 
data 91,d2,8a,91,d4,c8,c0,00,d0,F1,e6, 
d3,e6,d5,36,d3,e0,14,90,e5,58 
data ad,06,ff,09,10,8d,06,Ff,60,00,00, 
00,4d,4F,00,00,00,008,00,06,1F 
data 62,22,18,01,10,10,18,36,13,16,38, 
10,00,00,02,0c,30,68,30,0e,02 
data 02,02,07,1a,32,1e,03,00,00,06,1a, 
32,3c,11,1e,1F,20c,08,1e,08,08 
data 08,18,00,1e,33,1d,81,09,11,06e,10, 
19,78,1c,13,12,12,31,22,06,08 
data 04,04,08,08,18,02,06,20,04,08,88B, 
48,38,20,20,28,7c,22,1c,32,19 
data 10,10,10,10,10,10,09,08,00,20,900, 
63,5d,49,49,49,20,08,008,17,3a 
data 12,12,09,00,00,18,26,21,42,24,18, 
00,08,3c,13,12,3c,180,18,90,08 
data 0f,3a,12,0F,02,06,28,00,13,3c,10, 
10,28,18,00,00,07,18,20,1c,44 
data 38,10,18,190,12,7c,10,10,30,00,00, 
21,22,22,22,22,10,00,08,21,22 
data 22,14,14,08,00,00,81,92,aa,4a,44, 
44,20,00,00,23,14,08,16,21,00 
data 00,00,11,2d,02,0c,10,08,00,40,3e, 
05,08,30,1f,20,00,20,00,00,00 
data 00,00,00,fe,7f,03,1F,8F,00,00,F0, 
7a,fd,fd,fe,78,f9,00,20,20,00 
data 00,20,00,20,00,00,00,00,00,290,20, 
00,00,00,00,00,00,00,208,00,00 
data 0c,0c,2c,0c,8c,24,00,08,093,12,00, 
00,020,90,00,00,20,008,020,00,008 
data 29,12,24,fc,c0,20,00,00,00,00,00, 
00,20,02,02,03,21,20,2e,0c,16 
data 256,14,0c,fe,7f,3F,3f,03,00,00,00, 
00,20,028,08,10,20,20,20,20,18 
data 08,10,08,04,04,04,204,08,10,80,00, 
08,94,c0,28,990,20,88,01,03,083 
data 03,03,03,01,00,00,20,00,00,04,0c, 
18,20,00,00,02,66,18,20,00,00 
data 00,00,00,00,08,18,20,FF,99,39,Ff, 
E£,93;39;££, 18, 04,48, 5276424 
data 28,10,08,38,48,08,28,08,08,18,028B, 
34,44,08,10,20,22,3c,1c,02,02 
data 0c,02,02,1c,20,18,28,4a2,7c,028,08, 
08,18,3c,42,50,68,24,08,30,40 
data 06,09,10,38,44,42,24,18,02,7c,08, 
19,18,10,20,20,2c,32,24,18,24 
data 22,14,08,18,24,24,18,08,08,48,38, 
00,00,28,10,00,08,10,00,00,00 
data 20,24,00,04,0c,10,30,30,30,30,30, 
30,30,30,2c,2c,8c,0c,0c,0c,0c 
data 2c,20,20,00,00,20,020,00,00,18,24, 
02,10,28,1c,00,08,00,00,00,08 
data 00,01,03,0e8e,00,0F,3£,7F,fc,e0,80, 
00,008,fe,fc,fc,88,00,00,00,38 
data 50,88,0e,07,03,01,00,20,00,00,00, 
80,c0,e4,78,38,3c,3c,3e,38,7® 
data 60,40,00,00,00,00,008,83,07,0F,3c, 
3f,77,66,c0,80,89,00,3F,7e,3e 
data l1e,de,06,02,00,00,08,20,00,00,00, 
80,00,00,80,00,202,00,00,00,00 
data 00,01,27,0F,0e,1c,18,38,60,d0,88, 
84,06,07,07,0F,78,£0,78,1c,0e 
data 03,01,08,1e,3c,38,70,20,c0,80,00, 
00,22,04,07,8c,0c,8c,cc,de,le 
data 1f,3F,1F,0F,06,24,8c,1c,38,70,70, 
30,18,00,080,3c,7e,fc,f8,10,10 
data 20,60,e1,fe,f8,c0,20,00,00,00,07, 
1f,3e,3e,3c,1c,1c,1c,1c,0c,8c 
data 0c,04,06,07,1F,01,00,00,00,00,00, 
00,00,00,01,07,1F,1F,1F,3e,de 
data De,04,06,0F,1f,7c,f0,00,00,20,81, 
7F,1F,07,02,00,22,00,20,00,00 
data 00,02,02,07,1F,26,0e,2c,8c,0®c,ic, 
1c,1c,10,18,38,38,3e,3F,68,080 
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data 00,00,00,00,20,c2,00,50,20,20,00, 


81 


82 


83 


84 


B5 


B6 


87 


svoumuruwnr® 
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00,020,07,Ff,fe,1c,28,88,18,18 


data 18,18,18,i1c,ic,le,Be,ie,1c,18,00, 


20,00,00,00,02,59,00,28,02,00 


data 00,920,00,02,20,00,00,00,00,04,08, 


08,08,28,08,28,28,08,18,08,00 


data 00,02,00,02,00,3f,01,81,01,01,01, 


Bd,df,21,1d,7f,3c,1c,8c,0c0,0c 


data ic,fe,fc,18,18,180,18,18,38,1e,1e, 


If,l1e,3c,38,38,20,18,08,08,02 


data 22,9e,f2,01,80,80,87,81,84,83,81, 


81,01,01,c3,02,22,c2,46,44,BF 


data 1c,70,490,490,40,40,40,f1,38,B8e,22, 


02,02,02,02,80,80,cH4,4a,41,40 


data 60,23,01,01,11,21,41,81,91,e1,87, 


Listing 5: Alle 60 Teile zu finden, ist Aufgabe in „Shogun“ 


rem shogun lader 5 
rem 

rem (ec) 1987 by 
rem ; 

rem olaf panz 

rem 

rem drosselgasse 4 
rem 

rem 20835 marschacht 
rem 


poke 56,56:clr :for t=14642 to 16382: 


read a$:poke t,dec (a$):pr-int CCpr+t* 


dec (a$))/256)+t:next t 


if pr<>19886 then print "Fehler in 


datas !” 


data d2,ff,e6,d2,a6,d2,e0,00,d0,02,e6, 


d3,e4,d4,d®d,dc,a6,d3,e4,d5,98 


data d6,60,2d,07,10,c9,29,F0,03,20,3F, 


©d,a9,04,8d4,19,Ff,Bd,15,ff,4c 


data df,32,47,41,4d,45,20,4F,56,45,52, 


53,49,45,20,48,41,42,45,4e,28 


data 45,53,20,4c,45,49,44,45,52,20,4e, 


49,43,48,54,20,47,45,53,43,48 


data 41,46,46,54,2c,44,41,53,20,5a,49, 


45,40,20,44,45,53,28,53,50,49 


data 45,40,45,53,290,53,55,20,45,52,52, 


45,49,43,48,45 ,4e,28,53,49,45 


data 20,46,41,4e,44,45,48,20,20,20,20, 


20,20,20,50,55,5a,5a,4c,45,2d 


data 54,45,49,40,45,55,4e, 44,20,45,52, 


Ss2,45,49,43,48,54,45,4e, 28,20 


data 20,20,20,20,20,20,20,50,55,4e,4b, 


54,45,1c,82,50,52,45,53,53,208 


data 46,49,52,45,84,53,49,45,20,42,45, 


53,47,49,45,47,54,45,48,20,208 


data 20,20,20,20,20,47,45,47,48,45,52, 


07,89,93,20,d2,ff,a8,0F,a2,03 


data 18,20,f0,ff,a2,32,86,d3,86,dS,a2, 


2d,86,d2,a2,36,86,d4,20,de,31 


data a2,07,a0,03,18,20,F0,FFf,a2,5a,86, 


d4,20,de,31,2a2,09,a8,03,18,20 


data FO,Ff,a2,7c,86,d4,20,de,31,18,a2, 


04,a8,03,20,f0,ff,a2,39,86,d4 


data 20,de,31,a2,10,20,03,18,20,F0,FF, 


a2,b7,86,d4,20,de,31,a2,16,38 


data Be,18,20,f0,Ff,a2,c2,86,d4,20,de, 


31,a2,12,80,03,18,20,f0,ff,a2 


data de,B6,d4,20,de,31,a2,0d,a0,0e,18, 


20,fF0d,ff,a9,00,26,2d,20,b7,38 


data a2,10,a0,12,18,20,f0,fFf,a5,e7,a6, 


e6,20,5f,a4,a2,12,380,12,18,20 


data fO,ff,a5,40,a6,4b,20,5F,a4,a9,00, 


Bd,0B,Fff,ad,@8,ff,a8,29,49,c9 


data 40,d0,07,38,29,80,c3,80,F®,ea,50, 


Be,i1l,ff,a6,3f,e0,74,d0,01,68 


data 4c,3d,29,20,3F,26,a6,d4,e4,45,b®, 


03,4c,af,29,40,c1,29,8d,11, ff 


data e6,4b,a6,4b,e0,00,d®,02,e6,4c,a5, 


49,49,ff,18,65,e6,98,02,86,e7 


data 85,e6,e6,49,a6,49,e0,ff,d®,0d,e6, 


4a,a6,4a,20,05,d80,805,c6,4a,20 


data e7,33,60,36,4d,a9,1f,38,e39,20,ca, 


e0,20,d0,F8,85,49,60,ad,086, ff 


data 7B,a2,ce,8e,15,03,22,0e,Be,14,03, 


s8,60,20,d2,Ff,20,F9,33,ad,2f 


data 10,c39,21,d0,03,20,9F,2d,a2,20,86, 


4b,86,4c,40,e27,33,20,20,25,38 


data 24,a2,ff,B6,89,60,27,09,bd,29,10, 


a8,bd,41,34,9d,20,190,98,9d,41 


122 QUD Sonderheft 
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5236 
5318 
5573 
6062 
5886 
59325 


5865 


88 
83 
lv) 
31 
32 
93 
94 


8c,890,80,80,80,80,ff,c4, 24,04 
data 04,04,04,04,Ff,40,40,40,40,40,40, 
490,c0,02,02,02,02,02,02,02,03 
data 24,21,22,20,20,20,20,Ff,81,c1,8B1, 
41,01,801,01,FFf,87,98,60,47,58 
data 60,8f,f0,e1,19,06,e2,1a,06,F1,0fF, 
12,18,18,7F,Ffe,18,18,08,87,9d 
data 66,47,5f,7c,bf,f2,e1,59,c6,e2,fa, 
76,£f9,8f,a7,9F,66,4f,5c0,6c,8f 
data f8,e9,d9,c6,e2,7a,66,f1,2f,Ff,7e, 
3c,18,66,c3,81,00,7F,fe,4B,26 
data 7c,83,00,00,00,a9,3f,20,d2,Ff,aS, 
Be,20,d2,ff,a9,08,20,d2,ff,a9 
data a6,20,d2,ff,a9,14,20,d2,Ff,a®,20, 
c8,c8,88,d0,fb,b1,d2,28 


data 34,e8,e8,40,d0,ed,4c,1e,37,03,06, 
06,02,03,07,07,0£,00,80,40,80 

data 00,c8,F0,20,07,03,07,06,2c,18,10, 
18,80,80,c0,60,60,69,40,60,90 

data 21,22,01,00,13,0F,05,c0,60,60,40, 
c0,e0,e0,F0,01,01,03,06,06,06 

data 02,06,e9,c0,e0,50,30,18,08,18,020, 
00,29,13,20,d2,ff,22,d2,ff,a9 

data 93,20,d2,Ff,a9,06,84,19,FFf,84,15, 
fFf,a2,0c,86,d3,a2,0a,86,d2,a2 

data 35,86,d5,a2,00,86,d4,a0,00,b1,d4, 
91,d2,c8,c0,de,d®,f7,35,d4,18B 

data 693,08e,85,d4,a5,d2,18,69,28,85,d2, 
c93,c8,99,e3,8d,18,18,c9,10,F® 

data 03,20,3Ff,2d,a9,008,8d,11,Ff,8d,12, 
£fF,78,a2,ec,8e,14,03,a2,34,Be 

data 15,03,58,a9,00,85,db,a9,81,85,d8, 
60,ad,00,08,78,18,69,02,a2,08 

data 9d4,20,08,28,e0,00,d0,FB,“4c, 06,36, 
48,41,42,63,20,20,20,20,20,20 

data 20,20,20,20,43,44,20,64,65,20,20, 
20,20,20,20,52,20,20,46,47,4a ” 

data 67,68,4b,4c,4Ff,52,54,57,5b,5F,62, 
48,20,20,69,45,4d,4e8,50,53,55 

data 58,5c,690,20,20,20,20,20,20,20,20, 
51,20,56,5e,5d,61,29,20,00,08 

data 1d,1e,1e,09,298,1c,19,1d,21,25,1d, 
11,2d,2d,2d,2d,1c,25,25,26,22 

data 1c,25,25,26,22,1e,22,1e,1a,1d,21, 
1Ff,29,29,1c,29,29,18,16,0c,15 

data 15,16,1e,12,16,12,08e,03,26,02,01, 
21,02,02,00,09,09,02,06,00,03 

data 09,03,06,02,06,02,02,01,05,03,08, 
03,04,15,15,1e,16,0d,15,1d,29 

data 0a,22,0d4,0e,02,11,19,26,22,1e,22, 
1e,1a,1d,29,21,24,2d,29,2d,29 

data 2d,23,15,1a,1e,1a,16,19,25,1d,20, 
29,04,28,24,29,24,15,02,06,02 

data 22,21,0d4,05,08,09,00,20,a9,00,07, 
01,53,821,80,01,c6,01,06,02,3d 

data 02,56,02,55,02,af,02,c2,02,85,22, 
25,03,21,03,2d,83,45,03,59,23 

data 63,03,74,03,84,03,92,03,58,03,a4, 
03,3e,03,b3,03,bc,0c,07,02,10 

data 24,d8,50,19,ad,11,FF,aB,29,2F,c9, 
04,98,89,a5,d8,29,0F,85,d8,4c 

data De,ce,ee,11,Ff,4c,de,ce,38,03,“4c, 
c8,36,ad,11,FFf,a8,29,0F,c9,88 

data F8,03,4c,d9,36,86,d9,a6,d9,e0,84, 
90,06,22,00,86,d9,e6,d8,20,fH4 

data 36,ea,09,40,85,d8,a6,d9,bd,49,35, 
a8,29,03,aa,bd,22,36,85,db,38B 

data 6a,6a,23,0F,aa,a5,d8,29,07,c9,01, 
d®,38,83,18,69,2e2,20,00,8a,20 

data df,36,Bd,@e,ff,88,b3,cf,35,8d,®@F, 
Ef,c8B,b9,cf,35,8d,10,ff,ad,12 

data FFf,29,fc,1d,cf,35,8d,12,ff,a2,10, 
a5,d8,29,07,c9,04,90,02,a2,30 

data Be,11,Fff,4c,de,ce,c9,02,d0,09,a0, 
00,82,18,69,07,40,64,36,09,03 

data F8,bd,c9,05,d0,04,a8,4c,a5,36,c9, 
04,d0,01,28,4c,64,36,83,18,69 

data 07,28,4c,6d,36,c6,db,a6,db,e®,00, 
d®,26,a5,d8,09,80,85,d8,4c,®8e 

data ce,ce,11,ff,4c,Be,ce,86,da,84,dc, 
98,18,65,dc,85,dc,8a4,18,65,da 

data aa,at4,dc,bd,cf,35,690,85,08,29,2f, 
c9,07,d0,02,89,01,60,85,2d,c9 

data 3d,d®,0b,a4,d6,04,d7,d0,05,a9,52, 


58508 


5922 
6075 
6742 
6540 
5855 
4259 
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84,72,0F,89,45,8d,72,8b,60,52 

74 data 84,72,0F,bd,00,3F,60,22,08,bd,19, 534® 
06,c9,52,f®,0B,e8,e0,04,d0,f4 

75 data 4c,58,38,20,bf,3B,a2,5a,86,d2,a2, 65035 
37,86,d3,86,d5,22,c8,85,d4,28 

76 data 83,31,20,84,33,29,33,20,d2,Ff,a3, 5843 
43,a2,00,394,00,0F,e8,e0,28,d0 

77 data F8,4c,ff,39,11,11,11,11,11,11,11, 6639 
05,53,49,45,20,48,41,42,45,4e 

78 data 20,44,41,53,20,53,43,48,57,45,52, 56478 
54, 29,44,45,53,20,53,48,4F,47 

73 data 55,4e,8d,84,47,45,46,55,4e,44,45, 6572 
Ye ,2e,20,47,45,42 45, 4e,20,53 

80 data 49,45,20,45,53,20,4e,55,4e,20,53, 56718 
45,49, 4e,45,4d,8d,8d,42,45,53 

81 data 49,54,5a2,45,52,2e,8d,8d,22,20,20, 6231 
20,20,20,20,29,20,20,05,82,58 

B2 data 52,45,53,53,20,46,49,52,45,84,11, 5858 
11,11,11,11,11,11,05,53,49,45 

83 data 29,48,41,42 45, 4e,20,41,40,40,45, 5939 

20,36,30,20,59,55,5a,5a,4c,45 

data 2d,54,45,49,4c,45,20,47,45,46,55, 56839 


Listin 


rem shogun lader 7 

rem 

rem (ce) 1987 by 

rem 

rem olaf panz 

rem 

rem drosselgasse 4 

rem 

rem 2035 marschacht 

rem 

poke 56,56:clr :Ffor t=14642 to 153386: 

read a$:poke t,dec (a$):pr-int (Cpr+t* 

dec (a$))/256)+t:next t 

if pr<>18794 then print "fehler in 
datas |! 

data 20,9F,2d,a2,08,bd,280,06,35,d7,e8, 

e0,08,d0,£3,60,00,00,00,00,00 

data 00,20,00,208,20,00,03,2c,30,4f,F®, 

00,0£,7F,88,03,3c,c0,00,1f,e® 


data 00,0f,f0,00,01,02,F0,0F,00,ed,1F, 
ed,18,e4,00,fe,01,02,02,82,42 
data 42,00,00,00,00,008,208,00,00,020,00, 
00,00,00,00,80,00,00,00,00,08 
data 00,00,00,200,03,02,901,02,05,206,01, 
01,24,64,92,12,12,08,99,27,24 
data 24,24,14,14,14,0c,0c,00,00,00,00, 
00,00,00,20,020,02,20,00,00,00 
data 00,00,00,00,00,20,50,83,77,0b,00, 
00,01,03,03,06,04,8d,c8,de, fc 
data 88,66,f6,f7,F7,2c,8c,2c,8c,0c,®c, 
00,2c,00,00,00,00,00,00,00,00 
data 80,00,07,3F,ed,cf,bF,78,07,07,07, 
c3,74,04,F8,F8,d9,e3,£7,Ff,Ff 
data 7f,7d,1Ff,a7,cf,cf,df,bf,00,20,020, 
18,98,98,98,d8,38,18,18,00,00 
data 00,00,00,20,00,00,F8,e2,c7,47,45, 
44,6c,28,50,F0,10,10,38,c0,47 
data 84,0Ff,0e,04,00,00,07,£f8,00,29,20, 
00,00,28,e0,1F,01,18,18,18,18 
data 18,1B,18,08,208,09,23,33,1f,8c,04, 
01,68,e8,f8,b8,18,38,F9,F3,8%4 
data 84,84,84,84,32,ce,03,00,00,00,00, 
00,00,00,00,01,01,00,00,00,021 
data 01,03,08,28,84,84,84,32,ce,23,00, 
20,9F,2d,a2,00,8e,11,ff,20,di1 
data 38,4c,4e,3a,a2,de,86,d2,a2,38,86, 
d3,a2,12,86,d5,a2,98,86,d4,a® 
data 00,b1,d2,aa,b1,d4,31,d2,Ba,31,d4, 
c8,c0,28,d0,06,36,d3,e8,33,f® 
data 2b,c®,200,d0,27,e6,d3,86,d5,4c,1d, 
3a,69,22,20,78,fe,c8,®8b,e8,e® 
data 2B,d2,FB,4c,0e,ce,20,0d,33,78,82, 
490,Be,14,03,a2,32,8e,15,03,58 
data a2,0e,86,d3,a2,F2,86,d2,35,53,22, 
02,28,00,31,d2,18,69,21,c8,c8 
data 06,90, f6,3B,a5,d2,18,69,28,390,22, 
e6,d3,85,d2,98,88,e0,06,50,e2 
data a2,00,88,13,Ff,8e,15,Fff,ca,B6,dd, 
a2,58,86,d9,c6,2d,a2,09,85,20 
data Sd,10,06,28,20,0f,d0,F8,a2,2F,56, 
dc,86,da,a2,52,86,d9,22,68,86 
data db,a2,63,86,de, 20,4B,25,20,48,25, 
20,38,25,36,de, e2,20,d0,12,26 - 
data db,86,d2,36,dc,86,d3,35,29,20,33, 
la,a2,20,4c0,b9,3a,a2,00,20,08 
data c8,c0,00,080,fb,e8,e8,490,08,f4,a5, 
d9,85,d4,85,da,85,d5,28,c4,25 
data a5,d4,09,28,F8,23,25,dd,c9,02,40, 
ba,4c,cd,3d,4c,b8,3b,11,11,11 
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Listing 7: Um das Spiel zu gewinnen, muß man hart trainieren 


WEN ASHESCHFTEREUTREL TON 


: Als Gegner stellen sich erfahrene Karatekämpfer in den We 


Ye ‚44,45, He,2e,8d,84,53,55,% 

85 data 48,45,4e,20,53,49,45 
20,44,41,53,20,53,43,48,57, 

B6 data 52,54,20,44,45,53,28,53,48,#2,47, 6572 
S5,4e,53,28,84,8d,45,53,28,45 

87 data 53,54,20,49,4e,20,45,49,49e,45,4d, 5314 
20,44,45,52,20,48,45,42,45 ,4e 

88 data 2d,52,41,45,55,4d,45,2e,8d,8d,28, 6228 
20,280,20,20,82,50,52,45,53,53 

89 data 29,46,49,52,45,84,a5,2d,c9,32,F@, 5434 
03,40,62,2b,20,bf,38,a2,37,85 

30 data d3,e28,86,d5,a2,c9,86,d2,a2,58,86, 5431 

= 


d4,20,e3,31,20,84,33,20,ce,38 

91 data 20,14,2b,e6,2d,a6,d6,ad,22,fFf,25, 5946 
21,28,ad,00,Ff,29,40,c3,20,d8 

92 data Ba,82,38,f9,88,38,30,28,4c,a3,38, 5749 
Ba,18,79,38,38,b9,de,85,d7,4c 

93 data 62,2b,01,10,ea,ea,8a,38,e3,10,4c, 58341 
a0,38,ca,4c,8e,38,e0,3d,d®,01 

94 data ca,4c,5f,a4,a2,00,b5,d7,9d,20,86, 453% 
eB,e8,08,d0,f6,4c,83,34 


data 11,11,11,11,48,45,52,5a,40,49,43, 
48,45,4e,20,47,40,55,45,43,4b 

data 57,55,4e,53,43,48,20,21,21,21,8d, 
84,53,49,45,28,48,41,42,45, 4a 

data 292,45,53,20,47,45,53,43,48,41,46, 
46,54,20,44,45,4d,20,53,48,4 

data 47,55, 4e,20,44,41,53,84,8d,53,43, 
48,57,45,52,54,20,5a3,55,52,55 

data 45,43,4b,20,53,55,47,45,42,45,4e, 
Be,20,4f,4c,41,46,20,590,41,4e 

data 5a,20,55,4e,44,8d,8d,4d,41,52,43, 
20,50,45,54,45,52,20,46,52,49 

data S4,5a,45,20,47,52,41,54,55,40,49, 
45,52,45,4e,20,49,48,4e,45,4e 

data .202,21,21,8d,8d4,8d,290,20,20,20,20, 
20,82,1F,50,52,53,53,20,46,49 

data 52,45,84,29,c7,3d,a2,b8,8e,19, ff, 
8e,1S,Ff,a2,3b,86,d3,86,d5,a2 

data 02,586,d2,a2,b0,86,d4,20,de, 31,208, 
84,33,68,11,11,11,11,11,11,11 

data 11,11,43,4£f,50,59,52,49,47,48,54, 
20,20,31,39,38,35,20,20,42,59 

data 20,20,20,4f,4c,41,46,20,20,50,41, 
4e,58,8d,8d,20,29,44,52,4f,53 

data 53,45,4c,47,41,53,53,45,20,34,20, 
20,20,20,32,30,39,35,29,4d,41 

data 52,53,43,48,41,43,48,54,8d,8d,20, 
20,47,52,41,580,48,49,43,20,20 

data 42,59,20,28,4d,41,52,43,20,50,45, 
54,45,52,20,46,52,49,54,58,45 

data 8d,8d,20,20,20,20,53,50,49,45,4c, 
8d,8d,20,20,20,20,4c,45,56,45 

data 4c,8d,8d,20,20,20,29,53,50,45,45, 
44,208,83,34,a2,cc,Be,139,ff,8e 

data 15,Ff,a2,3b,86,d3,88,86,d5,a2,d®, 
86,d2,82,561,856,d4,20,de,31,a2 

data 81,856,44,85,43,86,d7,4c,d1,3c,33, 
®c,a4,d7,18,69,50,88,c0,008,d® 

data f8,85,d2,a0,02,84,d3,a0,00,b1,d2, 
e8,88,d0,05,29,7F ,4c,aa,3c,89 

data 89,91,d2,cB,c8,26,d®,ec,18,a2,®c, 
a2,11,18,20,F0d,fFf,a9,00,a6,Ha 

data 28,5F,a4,a2,13,a0,0c,18,20,F0,FF, 
a9,80,36,4d ,4c,Sf ,at,ea,a2,ff 

data 290,89,3c,22,00,38,00,c8,c0,00,d®, 
fb,e8,e0,79,d0,F4,39,88,8d,08 

data Ff,ad,08,Ff,c9,Ff,F®,F4,a8,a2,02, 
22,b0,03,4c,6b,3d,02,90,fa,a2 

data 08,58,42,b8,19,356,d7,e0,02,30,ce, 
a2,00,28,83,3c,c6,d7,4c,d1,3c 

data 4a,b98,10,36,d7,e8,03,b8,bb,a2,0®, 
29,89,3c,e6,d7,4c,d1,3c,4a,b8 

data 20,26,d7,2e0,02,390,88,e0,22,d0,0b, 
a5,42,c9,02,90,Se,c6,43,4c,di 

data 30,25,4d,09,82,30,33,c5,4d,40,di, 
3c,42,b0,8b,a6,d7,e0,02,390,85 

data e0,02,00,06,535,42,c9,04,b8,ea,e&6, 
4a,4c,d1,3c,35,4d,c9,88,b2,df 

data e6,4d,4c,d1,3c,36,d7,e0,01,d0,F7, 
22,a4,2a,4c0,61,3c,01,02,83,01 

data 8f,1c,36,227,88,48,c0,80,e0,70,d8, 
B8,23,28,14,10,e8,9c,f8,803,28 

data SF,2d,a2,00,bd,77,3d,3d,00,10,e8, 
e0,10,d0,F5,22,90,33,11,20,d2 

data Ff,a0,00,c8,c8,00,d0,Ffb,e8,e0,17, 
dd,ef,a9,94,20,d2,FFf,39,08,28 

data d2,ff,a9,13,28,d2,Ff,20,d2,FFf,4c, 
581,30,20,04,32,40,83,34,29,0d 

data 33,29,33,20,d2,FF,a9,84,20,d2,FF,° 
üUc,eb,2c 


Sonderheft Quo 123 


System: C64 
Typ: Actionspiel 
Sprache: Basic 


Bis zu 9 Spieler in Reihenfolge 
steuern die Zielangaben der Flak. 
Von ihnen hängt ab, wie viele 
Bomber ihr Ziel erreichen. Nach 
Starten des Programmes mit RUN 
sind die Spielerzahl und deren 
Namen einzugeben. Danach be- 
ginnt das Spiel. Ein Kampfflug- 
zeug erscheint. Mit den Tasten: 

C = Schuß im Winkel von 45 Grad 

nach links oben 


Spiele Listing 


Angriff auf 
Schlummerland 


Steff’sche Flugzeuge 
greifen das. friedliche 
Schlummerland an. 
Nur eine Flak steht 
zwischen den Äggres- 
soren und den 
Schlummerländern. 


V = Schuß im Winkel von 22 Grad 
nach links oben 
B = Schuß im Winkel von 22 Grad 


nach rechts oben 
N = Schuß im Winkel von 45 Grad 
nach rechts oben 
Leer-Taste = Schuß senkrecht 
nach oben 
gibt man die Feuerbefehle. Je 
Spiel stehen bis zu 60 Granaten 
zur Verfügung. Ab dem 30. Schuß 
bricht das Programm ab, wenn 
man die (RETURN-Taste drückt. 
FLAK gibt nach jedem Schuß die 
Trefferquote aus. Gewonnen hat, 
wer den höchsten Durchschnitts- 
wert erreicht. 


solttean EEE TUNZENREIERSEN 


goto 53038 

poke vo,3:poke sz,33:poke hf, ,uf:poke 
sz, 32:return 

For mz=1 to 255 step “4:poke vo,7:poke 
sz,33:poke hf ,mz:poke sz,32:next mz: 
return 

For mz"=255 to 1 step -4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 
return 

print ”"[clr,Sspaces]*** Flak - 
schiessen ***":print :print :z%=1 
print "sie muessen mit dem ortsfesten 
Flak - 

print "geschuetz moeglichst viele 
Jagdflugzeuge 

print "[Luplabschiessen, die zulaessige 
schusszahl 

print "liegt zwischen 38 und 6® 
schuessen, 

print "danach wird die treffer-rate 
bewertet, 

print "nach dem 30.schuss kann mit 
[rvslreturnloff] ab- 

print "gebrochen werden. 

print "folgende 5 schuesse sind 
moeglich: ”:print 


print "1) taste [rvs, 2spacesic 


C2spaces,off] : 45 grad nach links 

print "2) taste [rvs, 2spaces]Jv 
[2spaces,off] : 22 grad nach links 
print ”3) taste [rvs]spaceloff] : 
senkrecht nach oben” 

print ”"4) taste [rvs, 2spaces]Jh 
[2spaces,off] : 22 grad nach rechts 
print ”5) taste [rvs, 2spaces]n 
C2spaces,off] : 45 grad nach rechts 
print :print "(winkel jeweils von der 
senkrechten aus) 

print :print :print "bitte druecken 
sis [rvsIreturnloff] zum start I”: 
gosub 3:gosub 4 

get a$:if a$<>chr$ (13) goto 21 
print ”"Cclr,downlanzahl der spieler 
CI=33-7. 9% 

for i=1 to 100:get a$:if as<>"” goto 
27 

next :print ”[Lrvs] Cleft]”; 

for i=1 to 100:get a$:if ag<y""” goto 

27 

next :print ”"Loff] [leftJ”;:goto 23 
if a$<”1” or a$>”"9” goto 23 

print "[LoffJ”a$:x%=val (as) 
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print "CdownlJdruscken sis [rvslreturn 

Coff] nach jedem namen!” 

print "[down]”:for k=1 to x%: print 
"name von spieler”k”? [L1Odchbm @,18left] 
".;bger" 

for j-1 to SO:get a$:if as<>”"” goto 34 

next :print "[rvs,cbm @,left]”;:for j- 
1 to Sd:get a$:if a$<>"" goto 34 

next :print ”Coff,cbm @,left]”;:goto 
31 

a=asc (a$):if a=13 then print ”Loff, 

cbm @J”; :goto 39 

if a=28 and len (b$)>1 then b$-left$ 
(b$,len (b$)-1):print ”Coff,cbm @, 
2eleft,cbm @,left]”;:goto 31 

if a=28 and len (b$)=1 then b$="": 
print "Coff,cbm @,2left,cbm @,left]”;: 

goto 31 

if a=-32 or (64<a and a<S8) then print 
"Coff]”a$;:b$=b$+a$:if len (b$)>9 goto 
39 

goto 31 

nSöC(k)=b$:print :print :next k 

print :print "[4spacesldruecken sis 
[rvs]lreturnloff] zum start | 

print :print "[7spaces, rvsJhomeloff] 
zum spiel-abbruch |! 

get a$:if a$<>chr$ (13) and as<>”" 
Chome]” goto 42 

if a$=-"Chome]” then p%=p%-1:if p%<1 
then p%=x% 

if a$-"[Chome)” then print ”[downlich 
hoffe es hat spass gemacht, "n$(p%) 
if aS="[Chome]” then print "[Cclr]":end 
pl<=pl%+1:if pl%>x% then pli%=1 
t%=0:5%=-1 

print ”[clr,23down]”; 

print "[rvs,SspacesJFflak[l5spaces]- 
[4spaces]schiessen[8spaces, off ,up]”; 
print "[Chome,4down, 7right]J”;:For j=1 
to len (n$Cpl%)):print mid$ (n$cpl%), 
J,12;” Cdown]”; :next J 


rem print "SEHEREREREREOEEEREGEREE 


m a EEE FESTE IR 
p=33665: f-32808+42*int (28*rnd (5)):c= 
49:g=f-39 

x=-int (4*rnd (5)+6)/18:ri%=int C rnd 
(7)+.5) 

poke p,233:poke p+1,214:poke p+2,223: 
poke p-39,65 

s=p-73 

if s%=-1 then for j-1 to 4008:next j 


print ”"Chome ,4down, 7right]”;:for j=1 
to len .(n$(pl%)):print ”[2spaces, down] 
”;:next J 

print ”[Chome ,22down]” 

get aS:if a$l>”” goto 138 
s%=s%+1l:r%"d:if s%>B® then r%=t%/s%*122 
print ”[rvs]”s%”"[left] schuss[l2spaces] 
”"t%”Cleft)] treffer[3spacesJrate: ”r%” 
Cleft] % Lup]” 

if s%-68 goto 1588 

get a$:if a$=""” then gosub 999:goto 
135 

if a$=-"” ” goto 598 

if a$="b” goto 808 

if aS=-"v” goto 908 

if a$="n” goto 698 

if a$="c” goto 708 

if aS=chr$ (13) and s%>23 goto 1598 
gosub 1808:goto 132 

for i=® to 28 

uf=-i+50:gosub 2 

i%=i*40 

jJ%"peek (s-i%):if 3%=-62 or j%-62 or 
3%"67 goto 1108 

poke s-i%,46 

poke s-(Ci+1)*48,46:poke s-i%,32 

gosub 1088:next i 

poke s-i%,32 

goto 138 

for i=-® to 28 

uf=-i+5d:gosub 2 

i%=39%i 

jJ*"peek (s-i%):if 3%-68 or j%"-62 or 
J3%"67 goto 1108 

poke s-i%,46 

poke s-(i+t1)*39,46:poke s-i%,32 

gosub 1080:next i 

poke s-i%,32 

goto 138 

For i=d to 208 

uf=-i+68:gosub 2: 

ix=41®ri 

j3%"peek (s-ix):if j%"58 or 3%"52 
3%"67 goto 1108 

poke s-i"41,46 

poke s-Ci+1)*41,46:poke s-i%,32 

gosub 1000:next i 

poke s-i%,32 

goto 138 

For i=® to 28 

uf=i+55:gosub 2 

i%=-int (i*39,5) 

J%"peek (s-i%):if j%-58 or jJ%=-E2 or 
J3%"67 goto 1108 

poke s-i%,45 

:poke s-int ((i+1)*39.5),46:poke s-i%, 
3 : 

gosub 12088:next i 

poke s-i%,32 

goto 138 

For i=-ß to 28 

uf=-i+55:gosub 2 

ix=-int (i*49,5) 

J%"paeek (s-i%):if j%-60 or )J%-B2 or 
J3%"67 goto 1108 

poke s-i%,45 

poke s-int ((i+1)*48.5),46:poke s-i%, 
32 

gosub 1008:next i 

poke s-int (i*49,5),32 

goto 138 

for j=-1 to 28:next j 

if ri%=1 goto 1050 

poke F,68:poke F-1,67:poke f+1,32:Ff=f- 
X:c=C-X 

if c<2 then poke fF+1,32:poke F,32:poke 
£-1,32:ri%=@:if rnd (5)>.,5 then ri%=1 
if c<2 then c=49:f=-32897+40*int (29* 
end (5)):x=int (7*rnd (59+3)/19:g-f-39 
return 

poke g,62:poke g+t1,67:poke g-1,32:g"g+ 
KORrE=X 

if c<2 then poke g-1,32:poke g,32:poke 
g+1,32:ri%=®:if rnd (5)>,5 then ri%"1 
if c<2 then c=4B:f=-32807+40*int (20* 
rnd (S)):x=int (7*rnd (59+3)/198:g-f-33 


Mit der „Flak“ im Kampf gegen Feindflugzeuge 


a ee ee 


19882 
11980 


1118 
1128 
1125 
1126 
1127 
1138 
1140 
1168 
1170 
1175 
1188 
1208 


1388 
1398 


14008 
1508 
1502 
1503 
1507 


1518 


15228 


1530 


1540 
1558 


1560 
15708 
15808 


1598 
1608 


1619 
1620 
1639 


1659 
1659 


1678 
7498 


7410 
63039 


63240 
63059 
63855 
63068 
63340 
63358 
63368 


635908 


return 

poke s-i% ,42:t%=t%+1:for j=1 to 78: 
next j 

For 3-78 to 2088 step 18:uf=j:gosub 2: 
next 

poke s-i%-1,42:poke. s-i%+1 ,42:poke s- 
i%x-48,42:poke s-i%“+4B8,42 

for j-78 to 208 step 18:uf=j:gosub 2: 
next 

for j-208 to 78 step -1B:uf=j:gosub 2: 
next J 

uf=-208:gosub 2 

poke s-i%,32 

poke s-i%-1,32:poke s-i%+1,32:poke s- 
i%-48,32:poke s-i%+40,32 

for j*i% to -128 step -409:poke s-j-48 
58:poke s-j,22:uf-200+3/208:gosub 2 
if peek (s-j+49)<>32 goto 1389 

poke s-j+40,93 

For q=-1 to 2:uf=-200+abs (25*g):gosub 
@:next 

next 

uf=-15:gosub 2 

For q=22 to 1 step -1:poke s-j-4Q@"*ga, 
32:uf=-255-4*g:gosub 2:Ffor xx=1 to 2:. 
next xx,q 

goto 198 

For j-1 to 2000:next 5 

if m(pl%)=-® then m(pl%)"=r% 
r%Cpl%x)I*r% 

mCpl%)=.1*int CCmCp1l%)*lz%-1)+ 
r%Cp1l%))/2%*10) 

print "Cclr,down,3right,cbm a, 
13shift *,cbm r,9shift *,chbm r, 
Sshift *,cbm s]” 

print "C3right,shift -,2spaces]spieler 
C4spaces, shift -,3spacesJrate(l2spaces, 
shift -,2spacesJmittel [shift -] 
print "C3right,cbm q,13shift *, 

shift +,9shift *,shift +,3shift *, 
cbm w] 

For i=-1 to x% 

print "C3right,shift -,13spaces, 

shift -,Sspaces,shift -,9spaces, 

shift -)] 

next i 

print "C3right,cbm 2,13shift *,cbm e, 
Sshift ",cbm e,Sshift *,cbm x] 

for i=-1 to x%:print "Cup]”; :next 
print "Cup]”; 

For i=1 to x% 

print tab(S);n$(i);:if i=-pl% then 
print tab(15);"*"; 

print tab(19);r%Ci)”%”;tab(28);mli)”%” 
next i 

if pl%=x% then z%=z%+l:print :print "” 
C7spaces,rvs]es Folgt spiel nummer"”z% 
p%"pl%+l:if p%>x% then p%-1 

print "[2down, 7spaces] jetzt ist ” 
nSCp%)” dran !!! 

print :goto 48 

sm-54272:hf=sm+1: vo=sm+24:sz=sm+4: For 
i=sm to sm+24:poke i,®:next 

poke sm+5,8:poke sm+5,8:return 

For i-50008 to 50035:read a:poke i,a: 
next 

gosub 7408 

sys 508008: print chr$ (147);chr$ (5) 
print chr$ (142); "[yell]” 

goto 5 

data 169,0,141,32,208,141,33,208,1“41, 
8,4,141, 1,4 

data 141,2,4,1569,149,141,0,221,169,5, 
141,24 

data 208,169,128,141,136,2,133,56,56, 
96 : 

rem c64-version by softteam 
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142 
2647 


2634 
4928 
2634 
2434 

971 
19003 
5838 
4542 
2244 
1078 
2731 

139 


By42 
6234 


556 
1852 
2204 
1125 
3344 


3482 
3757 
3515 


772 
2651 


276 
3434 


2035 


772 
3273 


3330 
276 
4566 


2170 
2756 


471 
5561 


1578 
e626 


531 
e471 
1182 

e33 
5103 


4oB6& 
4236 


TTS Spiele Listing oem ame mann u 


EEE RETTEN VOTE Spiele Listing 


1 


| 
Rt 
t 


| 
| 
| 
i 
; 


| 
| 
| 
| 


! 
| 
a 
| 
| 
| 


System: C64 
Typ: Spiel 


Sprache: Basic 


Gleich zu Beginn printet der Com- 
puter 28 Gimmy's. In der ersten 
Reihe sind 7, in der zweiten Reihe 
6, in der dritten Reihe 5, etcetera. 
... und in der siebten Reihe ein 
Gimmy. Je Durchgang muß man 


Gimmy’s 
entführen in NIM 


NIM ist ein Denkspiel. 
In 7 Reihen sind 28 
Gimmy’s aufgeteilt. 


Wer den letzten 
Gimmy vom Feld 


1128 
2009 


sm-54272:hf=sm+1 : vo=-sm+24: sz=-sm+4: For 
i=sm to sm#+24:poke i,®:next 

poke sm+5,8:poke sm+5,B:gosub 63808: 
goto 18 

rem idee: andreas dripke 

rem <c> 1988 pet-version 

rem c6E4-version: softteam 

rem <c> 1986 c6E4-version 

poke vo,3:poke sz,33:poke hf,qg:poke 
sz,32:return 

rem 

rem 

rem 

tp=198 

dim £%(8,8),£f1l%(7),£s%(c3) 

q95="Chome, 14down]”:x$="[38spaces)" 


gosub 120088:rem erklaerung 

gosub 1108:rem alle gimmys da! 
gosub 1208:rem gimmys zeichnen 
gosub 20000:s=1:rem c54 gewonnen? 
if F=1 then gosub 2888:rem c64 zug 
gosub 6008:rem eingabe (z,w) 

gosub 78088:rem tabelle korrigieren 
gosub 1808:rem gimmys zeichnen 
gosub 200088:s=®:rem sie gewonnen? 
gosub 30088:rem ihr zug 

gosub B808:f=1:rem c64 denkt 

gosub 7000:rem tabelle korrigieren 
goto 128 


print "[clr,down]” 

For j=1 to 7 

print J;”"Cleft].Lup)”; 

za 

For -irVito7 

if £%CJ,i)=® then i=7:goto 1968 
gosub 100800 

t=t+5 

next i 

print ”[3downJ” 

next j 

rem 

8g9=-2:for jJ=1 to 7:for i=1 to B8-j:if 
£%(C4},i)=1 then gg=gg+1 

next i,j:if gg=® then print "+++ es 
sind keine gimmys mehr da! +++”: 
return 5 

if gg”l then print "tft es ist nur 
noch 1 gimmy da! ttTL3spaces]":return 


print ”*** es sind noch”;gg; "gimmys 
da! ***°": return 

for j=1 to 7:for i=1 to 8-3:f%(J,i)=1: 
next i,j 

for jJ=1 to 7:f1%(3)=B-j:next J 

g=51:gosub B:return 

print q$:print tab(31); "[SuplJmein zug: 
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MEN HOW ERW FED 


719 
638 
634 
1398 
1457 
644 
646 
634 
1388 
638 
1847 
646 
564 


469 
320 
1144 
393 
318 
2626 
563 
434 
276 
518 
278 


4736 


5772 


4195 


4397 
3384 
2238 


1856 
2328 


2010 


2050 
3908 


39018 


3058 
4008 
4010 
4915 


4920 
4030 
4940 
4950 
5009 


5210 


5920 
5030 
6000 


6005 
6010 


6928 
56938 


6040 
6050 
6060 


6070 
6198 


6118 


6120 
6138 


6148 
6150 
6168 


6170 
7998 
7005 
7018 
7820 
7930 
7048 
8099 


8958 


nimmt, hat gewonnen. 


mindestens einen Gimmy neh- 
men. Maximal sind so viele Gim- 
my’s möglich, wie in der gewähl- 
ten Reihe vorhanden sind. Bei- 
spiel: In Reihe 1 sind 7 Gimmy’s. 
Davon darf man zwischen ] und 7 
nehmen. Gewinner ist, wer den 
letzten Gimmy aus dem Spielfeld 
nimmt. 


a EG 


print tab(31);”zeile";z:print tab(31), 
"anzahl”;w 
return 


print q$:print tab(31); "[Suplihr zug: 


print tab(31);"zeile";z:print tab(31); 
"anzahl" ;w 

return 

For i=-1l to 3:fs%Ci)=®:next 

For j-1 to 3:for i=1 to 7 

print q$:print "C2dowun]”:t=28:gosub 
100288: print 

a=-fl%Ci):gosub 59008 

£s%CJ)=Fs%CJ)+val ( midS (as, J,1)) 
next i,j 

return 

b=B:if a>Cb-1) then aS="*#““Fahler""w"; 
return 

a$=-"":for n=1 to 3:b=int (b/2+,2):a=a- 
b:if a<® then aratb:a$=a$+"0":goto 
5030 

a$-as+"1" 

next n:return 

cu=31:print q$:print tab(25); "Cdown] 
sie sind dran![down]":poke tp,® 

print tab(25);"zeile [Lup, 3spaces, down) 


print tab(cu); "Lup]";mid$ C"?lcbm +3”, 
d%“+1,1) 

i=-9:d%=1-d% 

get uS:z=val (yS):if (z>8) and (z<B) 
then 6060 

i=-i+l:if i<1®8 then 5038 

goto 6818 

if F1l%Cz)>® then print tab(cu)"CL2up, 
cbm G@)”:print tab(cu);chr$ (1B8)+yS: 
goto 6120 

goto 6930 

print tab(25); "Cdownlanzahl [Lup, 
3spacss,, down)”: cu=cu+1 

print tab(cu); ”"Lup)”;mid$ C”?L[Lchm +)”, 
d%+1,1) 

i=d:d%=1-0% 

get yS:w=val (yS):if (wB) and (w<B) 
and (w<=F1%(z)) then 6168 

i=i+1:if i<1® then 6130 

goto 61128 

print tab(lcu)*"[2up,cbm @J”:print tab( 
ceu);chr$ (18)+y$ 

for i=1 to 11®8®:next i:return 

if w>Ffl%(Cz) then w=fl%(z) 

for i-fl%lz)+1 to fl%lz)-w+l step -1 
£f%(z2,i)-® 

next i 

£ElXCZI=F1ACZI-w 

return 

print q$:print tab(25);”"[Liicbm @3”: 
print tab(25)3;”[rvsJich denke !LoffJ""” 
print g$:print "[2down]”:t=28:gosub 
18888: print 


3697 


142 
3067 


3697 


ie 
1761 
1648 
e497 


1041 
2493 
534 
142 
3258 


Go42 


822 
634 
3713 


1507 
2492 


1586 
3642 


1639 
577 
4379 


533 
3271 


2432 


1586 
4803 


1671 
SsB1 
3023 


1446 
1840 
2739 
960 
276 
1840 
142 


5226 


2497 


8188 
8118 


8128 
5138 
8150 


82008 
8210 


8220 
8230 
8250 


8300 
8318 


8329 
8339 
8358 


8400 
8410 


8420 
8430 
8450 


8500 
8518 


8520 
8538 
8559 


86008 
8610 


8629 
86390 
8650 


87008 
8710 


8720 
8739 
8758 


8800 


8885 
8819 


8820 


8830 


BBH® 


BB5® 


[212121] 


8870 


8880 
8900 
8305 


8310 


8920 


8338 


8350 
89393 


9990 
9212 
9212 
9914 


S216 


z=1:w=B:if f1l%(1)=® then 8208 

ElXCII=fF1XC1)I-1:gosub 8988: w=w+1:if 
(pl-1) and Cp2=1) and (p3=1) then 8339 

if £fl%C1)>8 then 8112 

FlAC1I-EI1XCHIHW 

print qg$:print "[2downJ”:t=28:gosub 

108888: print 

z=-2:w=Bd:if FlI%XC2)=-® then 830808 

EIXCDI=FISC2)I-1:gosub 8989: w=w+1:if 
(pi1-1) and (Cp2=1) and (p3-1) then 8393 
if El%C2)>8 then 82108 

EISCOI=-FIACDItuw 

print g$:print "[2down)J”:t=28:gosub 

18088: print 

z=-3:w-d:if Fl%C3)=-2 then 8400 

F1%C3I-FIXC3BI-1:gosub BS09d:w=w+1: if 
(pi=1) and Cp2=1) and (p3=1) then 8999 
if £1l%(3)>8 then 8312 

E1%CBI-EIRCHI +HW 

print q$:print "[2down]”:t-28:gosub 
18888: print 

z=4:w=-B:if Fl%C4H)=D then 8500 

EISCHI=FISCH)I-1:gosub 8908: w=ew+1:if 
(pl=1) and (p2=1) and (Cp3=1) then 8999 
if Fl%C4)>® then B41O 

EIACHI=EISCHI +W 

print q$:print "[2down]”:t=28:gosub 
10008: print 

z=-5:w=Bd:if E1l%(5)-® then 8699 
FIACSI=-FIXCSI-1:gosub 8998: w=-w+1:if 
Cpi=1) and (Cp2=1) and (p3=1) then 8999 
if £fl%(5)>8 then 8510 

EIXCSI-EIKCHI+W 

print g$:print "[2down)”:t=-28:gosub 
10880: print 

z=-5:w-d:if Fl%C6E)-d then 8700 

EIXCEI-EFIXCEI-1:gosub B90B:wrw+l:if 
Cpil=1) and (Cp2=1) and (p3=1) then 83999 
if Fl%(C6)>8 then B61O 

F1L%CEI-EFIKCE)IHW 

print q$:print ”[2dowun]”:t=2B:gosub 
10088: print 

z=-7:w=®:if Fl%C7)-® then BB00 

FIXC7TI=-EFISC7)I-1:gosub 8B308:w=-w+1:if 
(pi=1) and (Cp2=1) and (p3=1) then 8999 
if El%C7)>® then 8718 

ELIXCTI-EIKCTIHW 

print q$:print "[2down)”:t=28:gosub 
10088: print 

print q$:print ”[Bdoun, 3spaces]sie 
spielen wirklich gut![11spaces)” 

For i=1 to 2500:next i 

z=-1:iF £El%Cz)>® then Fl%CzI-Fl%Cz)-1: 

w=1:return 

z-2:iF Fl%(Cz)>O 

w=1l:return 

z=-3:ifF £l%(z)>0 

w=1:return 

z-4:if Fl%Cz)>® 

w=1:return 

z=-5:if Fl%(z)>® 

w=1:return 

z=-6:if Fl%Cz)>0 

w=1:return 

z=-7:iF Fl%(z)>® 

w-l:return 

print ”*#**Fshler***":stop 

gosub 4208: p1-B:p2=-8:p3=® 

print q$:print "[2down)”:t=2B:gosub 

188098: print 

if (£s%C1)/2)-int (fs%C1)/2)=-® then 

pl=l 

if C£s%(l2)/2)-int (fs%l2)/2)-® then 

pe=1 

if Cfs%(3)/2)-int (fs%(3)/2)-® then 

p3=1 

return 

El%CzZI-ElSCZI+W:t=23:gosub 9888: return 


then Fl%Cz)=fl%(lz)-1: 
then fl%Cz)=-f1l%lz)-1: 
then F1%Cz)-Fl%(z)-1: 
then fl%(z)=-Fl%Cz)-1: 
then fF1%Cz)I=-fl%Cz)-1: 


then Fl%Cz)-F1l%lz)-1: 


print q$:print "[down]” 

print tabtlt); "[Sspaces)]*[2spaces]I*" 
print tab(t); "[4spaces)* ** *" 

print tab(lt); "C[3spaces]* M[L2shift -IN 
*n 

print tab(t); "[4spaces]*[shift *Joo 
Cshift *J*” 


5919 


1340 
1589 
2497 


2083 
5343 


13898 
1613 
2497 


2133 
59367 


1428 
1637 
2497 


2177 
5331 


1460 
1661 
2497 


2221 
6015 


1508 
1685 
2497 


2265 
6039 


1549 
17039 
2497 


2309 
6063 


1589 
1733 
2497 
4116 


1187 
3835 


3833 
3303 
3907 
3311 
3915 
3313 
1857 
2123 
2437 
2836 
8372 
3048 


142 
3383 


974 
1115 
1208 
1716 


14593 


> UNEBENSERNNTEREORD.EON 


9918 
3839 


100098 
10818 


10928 
190059 


198198 
120118 
18128 
18130 
190158 
10168 
190170 
18188 
192920 
10218 
10220 
10238 
10258 
10260 
10278 
10280 
103008 
18318 
103208 
10338 
10350 
10368 
10378 
103808 
104008 
10410 
104208 
10439 
190450 
104568 
10470 
104808 
10508 
18510 
10520 
10538 
10550 
10569 
10579 
10588 
10608 
10610 


10620 


10639 
19658 
19669 
10670 
10688 
10798 
10718 
10720 
10738 
10758 
10768 
10779 
10789 
10890 
10818 
10828 
190838 
18858 
18862 
10878 
108808 
120908 
12905 
12018 


12012 
12015 


12028 


12030 


print tab(t); "[6spaces]JK” 

For i=248 to 117 step -S:q=i:gosub 8: 
for n=1 to S®:next n,i:q=®d:gosub B: 
return 

tt=-16*rnd (1)+1 

on tt gosub 10188,19150,10298, 18250, 
10300, 18359, 18400,10450, 10500, 18558 

if tt>18 then on tt-18 gosub 105688, 
10650,10700,10750, 12800, 10858 
q=239*rnd (ti)+15:gosub B:print "[3up] 
”-»:return 

print tab(t); "M##N” 

print tab(t);” oo ” 

print tab(t);” JK ” 

return 

print tab(t); "Ml2chm £J "” 

print tab(t);” WWM” 

print tab(t);” JK ” 

return 

print tab(t);"[shift *JIUlshift *]” 
print tab(t);" 00 ” 
print tab(t);" JK ” 
return 

print tab(t); "UIUI” 
print tab(t);” SS ” 
print tab(t);” [cbm 
return 

print tab(t); "ML2cbm EIN” 


z,cbm x] ” 


print tab(t); 


” WuCshift-space)” 


print tab(t);” JK ” 
return 

print tab(t);" C2cbm p] ” 
print tab(t); ”NWWM” 

print tab(t);" JK " 
return 

print tab(t); "MHHN” 

print tab(t);” SS ” 

print tab(t);” JK ” 
return 

print tab(t);” [C2chbm £IN” 
print tab(t); "NWWLshift-space)” 
print tab(t);” JK ” 
return 

print tab(t);" C2cbm £] ” 
print tab(t); "NooM” 

print tab(t);" JK ” 
return 

print tab(t); "JL2cbm oJK” 
print tab(t);”Ccbm cJoolchm v2” 
print tab(t);” JK " 
return 

print tab(t);” ww ” 

print tab(t); "NooM” 

print tab(t);” JK ” 
return 

print tab(t); "MuwN” 

print tab(t);” oo ” 

print tab(t);” JK ” 
return 

print tab(t); "M[l2chm r] "” 
print tab(t);” ooM” 

print tab(t);” JK ” 
return 

print tab(t);” C2cbm rIN” 
print tab(t); "Noo ” 

print tab(t);” JK " 
return 

print tab(t);"” [L2chm r] ” 
print tablt); ”"[shift *Joolshift *]” 
print tab(t);” JK ” 
return 

print tablt);” [L2chbm £] ” 
print tab(t); "C[shift *JWWLshift *]2” 
print tab(t);" JK "” 
return 

rem 


print ”"[clr]":ra=102:gosub 52880 


print "[Sright ‚4spaces,Scbm @3”; print 
"[Sright]*** [rvslgimmy-nimlof£f) **#” 
rem : 

For t=-5 to 38 step 5:gosub 180888:next 
E 

print "[Sdown,Zrightlabwechselnd 
nehmen sie und der com-” 

print ”"[down,2Zrightlputer aus einer 


1303 
4086 


1535 
5448 


4657 
2803 


1213 
1073 
1137 
142 
1132 
1374 
1137 
ı42 
1373 
1274 
1137 
ı42 
1455 
1277 
1235 
142 
1285 
1284 
1137 
142 
1223 
1545 
1137 
142 
1213 
887 
1137 
142 
1178 
1455 
1137 
142 
1085 
1341 
1137 
142 
1495 
1179 
1137 
142 
1031 
1341 
1137 
142 
1231 
1973 
1137 
142 
1207 
1178 
1137 
142 
1193. 
1250 
1137 
142 
1198 
1184 
1137 
142 
1085 
1388 
1137 
142 


1838 
4627 
15617 
44208 
6346 


reihe eine be-”:print tab(8);” [15cbm tJ” 


Sonderheft Qu 127 


12840 print "[2rightlliebige anzahl gimmys 
weg. jeder” 

12058 print ”[down, ZrightJmuss mindestens 
einen gimmy weg-” 

12868 print "Cdown,Zrightinehmen, wenn er am 
zuge ist.” 

12078 print "[down,2ZrightJwer den letzten 
gimmy wegnimmt, der” 

12082 print "[Cdown,2Zrightlhat gewannen! Lup]” 


12108 rem 

12158 gosub 55888:print "[L2up]”;:return 

200882 if gg?® then return 

20218 if s=1 then 20200 

20180 print "Chome, 3down,Sright, 26cbm 23” 

20105 print ”[Sright,rvs]Jleider haben sie 
verloren!” 

20118 print ”Cdown,5Srightlbekommen sie 
deswegen aber keine” 

20120 print ”Cdown,Srightldepressionen, 
sondern versuchen” 

20138 print ”[down,Srightlsie es doch noch 
einmal![2down]” 

20140 For i=-58 to 240 step S:qri:gosub 8: for 
n=1 to 188:next n,i:goto 28399 

20208 print ”Chome, 3down,Sright,26cbm EI” 

20210 print "[Sright,rvslgratuliere, sie 
haben gewonnen! ” 

20220 print "Cdown,Srightlaber geben sie mir 
doch noch” 


NIM: Wenn der C64 Grimassen macht 


print "[down,Srightleine chance, auch 
mal zu gewinnen!” 

For i=248 to SB step -5:q=i:gosub B: 
for n=1 to 188:next n,i:goto 208388 
gq=®:gosub B:gosub 55099 

run 

For n=32768 to 32807: poke n,ra:poke n+ 
S68,ra:next 

for n=32808 to 33688 step 48: poke n, 
ra:poke n+39,ra:next :return 

poke tp,d:print tab(31);”[6cbm @J”: 
print tab(38),; ”<CrvsIJreturnloff)J>”: 
wait tp,l:return 

for i-50800 to 50035:read a:poke i,a: 
next 

data 163,0,141,32,208,141,33,208,141, 
0,4,141,1,% 

data 141,2,4,169,149,141,2,221,169,5, 
141,24,208,169,128 

data 141,136,2,133,56,96,36 

sys 50008:print "Ccir)”;chr$ (S);chr$ 
(142);chr$ (8) 

return 


3 in einer Reihe 


System: C64 


Typ: Denkspiel 
Sprache: Basic 


5 Steine in einer Reihe des Spiels: 10 Züge lang springt 


man mit bereits gesetzten Steinen 


lollel DEI EST TeReIE von bisherigen Standorten auf be- 
diesem Denkspiel. 30 


liebige, freie Felder. Bleiben auch 
in Teil 2 des Spieles beide Partei- 


Das Spielfeld ist 9 mal 9 Quadrate Züge hat man Zeit, um en erfolglos, endet der Spiel- 


groß. Zuerst ist der Y-Achsenwert, 
dann der X-Achsenwert einzuge- 
ben. „Gomoku" setzt seine Steine 
nach kurzer Bedenkzeit. 5 Steine 


den elektronischen 
Gegner zu besiegen. 


durchgang unentschieden. Nach 
jedem Spiel zeigt „Gomoku" die 
Punktestände an. Danach ist ein- 
zugeben, ob man weiterspielen 


sollen in einer Reihe stehen. Da- Steine auf beliebige, freie Felder 


bei ist es unwichtig, ob die Reihe 
senkrecht oder diagonal liegt. Die 
ersten 20 Züge bestehen darin, 


zu setzen. Gelingt es in dieser Zeit 
keinem Kontrahenten, 5 Steine in 
eine Reihe zu setzen, folgt Teil 2 


oder aufhören will. „J" eingeben 
und es geht weiter in die nächste 
Runde. 


softtean EEE EEE 


gato 63089 

poke vo,3:poke sz,33:poke hf,5:poke 
s2,32:return 

For mz=1 to 255 step 4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 
return 

for mz-=255 to 1 step -4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 
return 

data 169,0,141,32,208,141,33,208,141, 
8,4,141,1,4 

data 141,2,4,169,149,141,0,221,169,5, 
141,24,208,169,128 

data 141,136,2,133,56,96,36 

dim v“#(81),n1%(1483,n2%(C140),pt%c3, 
25) ,mt%(58), zt%(99), i5C(25):m1=28:m2=-12 


128 UM Sonderheft 
UN FORST ERWORLE.CON 


a=-13:8=-2000:bl$="Lup, 13spaces]”:w=25B: 
pn=32904 

for i=1 to 73 step 9:for j-® to 4:k=k+ 
1:n1%Ck)=i+j:n2%Ck)=1:next :next 

For i=® to B:for j-1 to 37 step 9:k=k+ 
1:n1%Ck)=i+j:n2%Ck)=9:next :next 

For i=1 to 37 step 9:for j=8 to 4:k=k+ 
1:n1%Ck)=i+j:n2%Ck)=18:next :next 

for i=-5 to 41 step 9:for j=® to 4:k=k+ 
1:nl%Ck)=-i+j:n2%Ck)=8B:next :next 

data 1,3,5,10,0,2,0,0,0,0,0,4,0,0,0,0, 
0,6,2,0,2,0,0,0,08 

data 2,4,5,10,0,1,0,0,0,0,0,3,0,0,0,0, 
0,6,0,2,0,0,0,0,0 

data 0,0,0,0,0,0,0,0,5,5,0,92,0,0,0,0, 
0,5,0,8,8,0,0,5,5 


SE RITTER Spilele Listing 


for i=1 to 3:for j=1 to 25:read pt%(i, 
J?:next :next :if r=B then r=1:goto 
60008 
For i=-1 to 81:v%Ci)"=®:next :F=9:mk=1: 
p=-int C rnd (1)*2+1):mc=B:s1-B:wi=B: 
FF-®:ph=2 
print ”"[Cclr]”;tabla)”[7chbm +]***go- 
moku**#*[6cbm +) 
print tabla);:for i=1 to 13:print ” 
[2cbm +)”;:next :print 
print tab(a)”C3cbm +) [cbm a,shift ®, 
cbm r,shift *,cbm r,shift *,cbm r, 
shift *,cbm r,shift *,cbm r,shift *, 
cbm r,shift *,cbm r,shift *,cbm r, 
shift *,cbm s,3cbm +] 
For i=1 to 9:print tab(a)"C3cbm +)”; 
right$ ( str$ (i),1);"[Cshift -, 
shift-space, shift -,shift-space, 
shift -,shift-space, shift -, 
shift-space, shift -,shift-space, 
shift -,shift-space, shift -, 
shift-space,shift -,shift-space, 
shift -,shift-space, shift -,3cbm +" 
print tab(a)”[3cbm +] [Ccbm q,shift *, 
shift +,shift *,shift +,shift *, 
shift +,shift *,shift +,shift *, 
shift +,shift *,shift +,shift ®, 
shift +,shift *,shift +,shift *,cbm w, 
3cbm +] 
next :print tab(la)”Lup,3cbm +J [chbm z, 
shift *,cbm e,shift *,cbm e,shift *, 
cbm e,shift *,cbm e,shift *,cbm e, 
shift *,cbm e,shift *,cbm e,shift *, 
cbm e,shift *,cbm x,3cbm +) 
print tab(la)”[3chm +,2spacesJ]1 2345 
6 783 C3cbm +] 
print tab(a);:for i=-1 to 13:print ” 
[2chbm +J”;:next :print :if F=® then f= 
1:goto 168 
if al then al-®:return 
print ”"[2up]lzugnr. 1”:gosub 2 
poke ph,oi:ph=B:print ”[Chome, down)”: 
for i=-1 to 7:print :print bl$:next 
:z2=6:ch=B:ch=8:xh=9: f1=2: f5=B: 
"Chome,down,rvslihr zug[l2spaces] 
mk>ml goto 308 
190008:iF FS5S goto 195 
1288:on f5+1 goto 498,135 
"Ervs)von :”:fil=1:gosub 1888: if 
ES goto 195 
if v%Cx)<>1 goto 398 
poke pk,oi+12B:ph=pk:rh=r:ch=c:xh=x 
print ”[rvs]zu: ":gosub 1888:on FS5+1 
goto 396,195 
if v%(Cx)=® then wi1$S="[rvs)das Feld 
C3spaces,off)J”:w2$="[rvslist Frei. 
Loff]":goto 393 
w1$=-"CrvsJlich setzeloff]”:w2$="[rvs] 
auf's Feld.[Loff]” 
print wi$:print w2$:For i=1 to e:next 
:goto 195 
F2=d:gosub 1200:if F2 goto 394 
gosub 1208:iF f5 goto 185 
v“(xh)=B:poke pn+ch+ch+Crh-1)*80,32 
v“(x)=1:poke pk,oi:mc=mc+t1:if mc=2 
then gosub 8000 
print "Chome,downlihr zugl2spaces):”: 
if mk=<mil then print ”C1®down]”; :goto 
425 
print ”"von:”:print "[2downJnach:”: 
print ”C&6down]”; 
print "Crvs]c64’er zug:":if mk>mi goto 
9008 
print :print bl$:print :print b1lS: 
print "C2up]”; 
if mk>1 goto 583 
x=-42:iF v%C4H1)"-B then x=4l 
goto 718 
hv=-8:k=B: for i=1 to 149:ct=9 
for jJ=n1%Ci) to n2%Ci)*4+n1%(li) step 
n2%li):ct-ct+v%CJ):next :if ct=d goto 
550 
if ct=5 goto 3008 
if ct=-24 goto 2008 
vl=pt%Cp,ct):if vl>hv then hv=vl:kel: 
mt%“(Ck)=i:goto 550 


HR, SENSEON STERNEN CH 


if vlehv then k=k+1:mt%Ck)=-i 
next 

1=-d:for i=1 to k:ii=mt%li):For j= 
n1%(ii) to n2%lii)*4+n1%(ii) step 
n2%(ii) 

if v%xCJ)=-® then 1l=1+1:zt%C1)=j 
next :next 

hv=-8d:ii=-d:for i=-1 to l:ct=®:for j-i to 
1 

if zt%Ci)=zt%C)) then ct=ct+i1 

next 

if ct>hv then hv=ct:ii=1:mt%lii)- 
zt%Ci):goto 678 

if ct=-hv then ii=ii+1:mt%lii)=zt%li) 
next 

x-mt%C int C rnd (1)*ii+1)) 

if £f goto 970 

vrCcx)=-6:xc=d 

if x>9 then xc=xc+1:x=x-9:goto 7208 
poke pn+x+x+xc*#B®,pi:if mk<=mi then 
print "[Lup]lc64’er zug: 

print ”y-wert”;xc+1:print ”x-wert";x 
gosub 3 

me=-mc+l:if mc=2 then gosub 8008 

on Ff+1 goto 195,399 

k"d:for i=1 to 149:ct=® 

for j=n1%Ci) to n2%li)*4+n1%Ci) step 
n2%li):ct=ct+v%CJ):next :if ct=® goto 
835 

if ct=5 goto 3008 

if pt%(3,ct)=5 then k=k+1:mt%ck)=i 
next :if k=® goto 878 

1=-8:for i=1 to k:n=mt%li):for j= 
n1%(n) to n2%Cn)*4+n1%(n) step n2%(n) 
if 'vsCj)=6 then 1=1+1:zt%C1)=J 

next :next 

x=-int C rnd (ti)*81+1) 

for i=x to x+81:x=x+1:iF x>B1 then x=1 
if v%(cx)<>6 goto 839 

For j=1 to l:if x=zt%(j) goto 899 

next j:goto 318 

next i:x=-39:goto 318 

print "[rvs]von :”:for i=1 to 7:print 
:print bl$:next :print "[L7up]”;:goto 
892 

if x<>99 goto 349 

For i=1 to Bl:if v%Ci)=6 then x=i:goto 
349 

next 

vs(x)=-B:xc=9d:xh=x 

if x>3 then xc=xc+1:x=x-9:goto 9598 
poke pn+x+x+xc*B8,pi+l2B:print "x- :”; 


’ 
xc#+l:print ”y-wert:”;x:print "E[rvs]zu: 
» 


xi=-x:r2ö=-xc:Ff=1:goto 598 

if x<>xh goto 718 

For i=<xh to xh+B1:x=x+l:if x>81 then 
x-1 

if v%Cx)=® goto 718 

next 

print "Chome)”:Ffor i=-1 to 11:print : 
next :print ”"c64’er zug:” 

print "von :[2down]”:print "zu:":poke 
pn+xi+x1+r2*80,32:ph=®:goto 195 

d=-d: print "y- :” 

get a$:if a$=""” goto 1005 

if peek (515)"27 goto 1158 

print "Lup)”;tab(5S)a$:r-val (CaS);: if r< 
1 or r>9 goto 1130 

print ”x-wert:” 

get a$:if a$=""” goto 1040 

gosub 2 

if peek (515)-27 goto 1158 

print "Cup]”;tab(B8)a$ 

c"-val (Ca$):if c<1 or c?9 goto 1130 
x=CCr-1)*9)+c:pk=-32904+c+c+Cr-1)*808: if 
£fl then fi1"2®:return 

if r=rh and c=ch goto 1158 

if v%(x)=® then return 

print ”"[rvs]basetzt ![LoffJ”:gosub 4: 
goto 1149 

print ”[rvsInur 1 bis S![lofFf]"”:gosub 4 
for i=-1 to e:next 

fS5=1:return 

poke pn+c+c+C(r-1)*890),131 

for i=1 to w:get a$:iF a$-"” goto 1248 


3026 - 


138 
5457 


2723 
256 
2503 


2409 
1398 
3755 


3367 

139 
1861 

639 
1463 
2853 
4229 


2738 

243 
1958 
1268 
1998 
SB64 


1007 
3119 

708 
s543 


2732 

eS6 
1618 
2817 
1791 
2681 

783 
1467 
3743 


1258 
2651 


138 
1703 
2951 
6171 


2407 
1282 
3133 


1462 
138 
3183 


4763 


1311 
1323 
1481 
3271 


1924 
1392 

241 
1481 

902 
2093 
5928 


1908 
19086 
1976 


1632 
1063 

887 
1924 
2541 


Sonderheft um 129 


a Spiele Listing 


";print "buchstabe[l5spaces]'";left$ 
(pn$,1); 


teine senkrecht oder diagonal hintereinander bedeuten den Sie 


chr$ (5);chr$ (142);chr$ (B):goto 9 


poke pn#+c+c+C(r-1)*88),32 print ”’ Fuer ”;pn$;”. 1865 

1238 F5=1:return BB7 50838 print "[downlJanleitung[l2spaces]”?” 1508 
1248 next :return 394 6835 print ”’J’ oder 'n’.” 1852 
2008 w$="c64 gewinnt! ":pw=pw+l:wi=pi:goto 3440 6097 get a$:if a$-"”"” goto 6897 1530 

4908 79008 if a$-"n” goto 98 1282 

3008 w$="sie gewinnen! *:ow=ow+1:wi=oi 3823 7818 al=1:gosub 188:print ”Chome,downldas 3252 

40828 for jJ=n1%Ci) to n2%li)*4+n1%li) step 4188 ist”:print "das feld.” 
ne%li):x=j:xc=® 7828 print ”CdownJman gewinnt”:print "durch 4781 

4018 if x>9 then xc=xc+1:x=x-9:goto 4818 2823 5 zu-":print "”sammenhaeng-” 

4015 if v“Cj)=®8 and wi=pi then print ”x- 4123 7838 print "ende Felder,”:print "egal in 5714 
wert”;xc*+1:print "y-wert”;x wel-”:print "che richtung”:print ”sis 

4028 poke pn+x+x+xc*BQ@, wi+12B:next :if mk> 5771 gehen.” 

mi then poke pn+ch+ch+rh*B8, 32 7885 print "[down,rvsJreturnloff] ”:print 3489 

4035 if FE then poke pn+xi1+x1+r2*B2,32 2249 "blaettert.”:poke 198,8:wait 198,1 

49037 bs=18:if wi=oi then bs=19 2903 7108 print ”[cir,downlwir haben ”;mi; 61208 

4048 print "Chome)”:for i=-1 to bs:print : 4595 "steine.”:print "man muss”; mi; "steine 
print bl$:next :if wi=pi then print "” setzen.” 

[downIc64’er zug: ” 7128 print "das Feld muss unbesetzt sein.” 2828 

4843 if mk>mi and wi=pi then print "von :": 3153 7138 print "nachdem alle steine”:print ” 6268 
print "C2dowun]zu:” Cdownlgesetzt sind":print "muss man 

4858 print ”"[Chome)”:print "[rvs)”;w$:print 2159 mit den figuren” 

"Crvs)lpunkte:[Loff)] 7148 print "auf dem feld herumfahren,” e3le 

4068 print no$;":";ow:print pn$;”:”;pw: 3584 7158 print "das ziel der Fuenf steine in 3024 
print ”"remis:”;tg einer” 

4078 print "CdownlJwollen sie ":print 3858 7168 print "reihe ist gleich.":print ” 5415 
”nochmal”:print ”spielen?” Cdown)Jgewinnt keiner in”;mi+m2d; 

4075 gosub 3:gosub “4:gosub 3:gosub 4 1266 "zuegen” 

- 4080 get a$:if a$-"”” goto 4980 1283 7178 print "ist das spiel remis.” 2108 
4098 if a$="j" goto 98 1154 7188 print ”"[downJlgeben sie weiter, dann 4188 
4885 print "[Cclr)”":end 495 C2spaces,rvs]Jreturnloff) druecken.” 

6000 print ”"Cclr,downJwillkommen zu 5401 7288 print ”"[down, 3spaces, rvsJreturnloff) 4135 
[5Sspaces,rvs) '’go-moku’ [Coff].”:print startet das spiel.”:poke 198,8:wait 
”Cdownlmein name ist pit.” 198,1 

6818 print "Cdownlgeben sie ihren namen 4982 7238 poke 138,8:goto 908 1361 

ein.”:print "danach [rvs]returnloff] 7408 sm-54272:hf=sm+1: vo-sm+t24: sz=sm+4: For S561 
! Ccbm @,3left]”;:input a$ i=-sm to sm+t24:poke i,®:next 

6028 if a$="[cbm @J” then print "[L3up]”;: 2427 7418 poke sm+5,8:poke sm+5,B:return 1578 
goto 6019 8088 print "Chome)":For i=1 to 21:print 1576 

6038 no$"a$:0oi-asc (a$)-64:pn$="pit":pi=-16: 6352 next 
if oi=16 then pi=3:pn$="computer” 8005 mk=mk+1:iF mk>mi+m2 then wS="game 4B76 

6050 print ”[downJhallol2spaces]”;no$;: 2196 tied.”;tg=tg+1i:goto 4035 
print ” I» 8010 mc=®:if mk>mil then print "[rvs)”; 2083 

6055 print "CdownJihr zug wird durch den” 2216 8028 print tab(6)mk:return 1043 

6968 print ”"buchstaben[2spaces)’”;left$ s274 630098 For i-50008 to 50035:read a:poke i,a: 2626 
(no$,1);”’ Fuer ”;no$;” gezeigt.” next 

6078 print ”Cdownlmeine zuege sehen aus wie 5028 63048 gosub 74008:sys 50080: print "Cclr)"; 4394 


Umleitungen im Computer 


System: C64 
Typ: Spiel 


Sprache: Basic 


Schnell reagieren und die Mauern 
überlegt setzen: Nur so gewinnt 
man bei „Trapskrip". Nach Start 
mit RUN gibt man die Spieleran- 
zahl (1 bis 9), Namen der Teilneh- 
mer und das Schwierigkeitslevel 
ein. Danach zeichnet der 64’er das 
Spielfeld mit zwei Bällen: Geschoß 


goto 63938 


poke vo,7:poke sz,33:poke hf,5:poke 


s2,32:return 


for mz*i to 255 step ":poke vo,7:poke 


s2z,33:poke hf,mz:poke sz,32:next mz: 
return 
px=1:dim n%(3), pn$(3), ps%(3), pm%(3) 


print "Cclr,down, 3spaces]*** trapskrip 
“m...” 
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Einen Sprungball muß 
man ins Ziel lenken, 
um zu gewinnen. 


Mit den Tasten „N“ und 
„M“ baut man die dafür 


notwendigen Ecken, 
Gänge und Winkel. 


und Ziel. Das Geschoß fliegt mit 
hoher Geschwindigkeit über’s 
Spielfeld. Mit Taste „N" setzt man 
ein „/"-Winkel direkt vor das Ge- 
schoß und lenkt es damit gezielt 
auf das Ziel. Taste „M" setzt den 
„\"-Winkel. Nach jedem Durch- 
gang zeigt „Trapskrip" die zuletzt 
benötigte Zeit, um den Zielball zu 
treffen und die bisherige Durch- 
schnittszeit an. „E" beendet das 
Spiel. F. Bastian 


38 print "[2down, 2spaces]*** treffen sie 


’Im’ 11 J" 


bastian” 


NUN RONERSENTETERNF END. COM 


das ziel[l2spaces]-- U **#*” 
48 print "[down,2spaces)(tasten 'n’ und 


45 print "[down]Jc64 - version von fF, 


S® print "[down, 2Zspaces)Janzahl der 
spieler (1-9) ? ”;:gasub 838: py=x 


print "[down,Zspaces}]’return' nach 
nameneingabe drusecken”:gosub 8S® 

print :print :print tab(18)"’return' 
druecken”; 

get a$:if a$<>chr$ (13) then 88 
pl-pl+1:if pl>py then pl=1 

b$="[rvs, 40spaces]”: v5=-"[23down]"” 
ts="ti:tx=ts+6009:pc=1: pk=-33268:d=1:rem 

** draw border * 

print "Cclr]"bS"Chome, rvs, 3spaces] 

spieler"pl"[2spaces)-[2spaces]" lefts 
Cpn$(pl),10) spce(12); 

for i=1 to 22:print "[rvs] [3Bright] * 


next :print "[rvsJdruecke ! Fuer ende 
--[3spaces]levell4spaces]-"(20- 

n%Cpl))/2"Cleft]” left$ (bS,4); 

t=int C rnd (1)*908+32768):ifF (33248< 

t) and (t<33288) then 150 

td=1:nn=n%(pl) 

if peek (t)<>32 then 150 

poke t,87:rem start 

rem 

For ii=-1 to nn:if peek (pe)-Bl then 

poke pe,32 

pe"pk:get i$:if i$<c>"" then 310 

if peek (pk+d)<>32 then 260 

pk"pk+td:poke pk,Bl:next :poke t,32:t= 

t+td*d 

if peek (t)<>32 then td=-td:t=t+tded 

poke t,87:goto 228 

if ti>tx then ps=d:goto 458 

if peek Cpk+d)-78 then pk=pk+d:d=d-sgn 

(d)*41:gosub 2:goto 298 

if peak (pk+d)=77 then pk=pk+d:d=sgn 
(d)*CC abs (d) and 1)*4B+C abs (d) and 

49)/48):gosub 2:goto 138 

d=-d:if peek (pk-d)=B7? then 449 

poke vo,7:poke sz,33:poke hf, 208:poke 

sz,32 

goto 208:rem volltreffer 

if i$=-"n"” then 358 

if i$=-"m"” then 388 

if i$="!" then ps=®:goto 458 

goto 228 

o=d:pc=pc+1:poke pk,78 

d=d-sgn (d)*41:goto 2008 

if peek (pk+d)=78 then pk-pk+d 

o=d:pc=pc+l:poke pk,77 

if o=--1 then d=-4B:rem Mm” 

if o=-4® then d=-1 

if o=-1 then d=4B 

if 0o=--48 then d--1 

goto 288 

ps"19008-12*Cpc-1)-int Clti-ts)/56): if 

ps‘® then ps-1 

gosub 3 

ps%Cpl)=ps 

pm%Cpl)=int CCpm%Cpl)*Cpx-1)+ps)/px) 

print "Cclr,down,3right,rvs,chm a, 

i1shift *,cbm r,Sshift *,cbm r, 

7shift *“,cbm r,7shift *,cbm s)" 

print "C3right,rvs,shift -, ° 

shift-spacelspieler[3spaces, shift -] 
lev [shift -] pktel2spaces,shift -] 
dusnt [shift -]” 

print "[C3right,rvs,cbm q,iishift ®, 

shift +,Sshift *,shift +,7shift ®, 

shift +,7shift *,cbm w]” 

print "[C3right,rvs,shift -,off, 

i1spaces,shift -,5spaces, shift -, 

7spaces, shift -,7spaces,rvs,shift -]” 

For i=1 to py 

print "C3right,rvs,shift -,off] ” 

pnsCi)C20-n%Ci))/2” [shift -). "ps%li) 

tab(29)”[shift -] "pm%Ci) tab(37)” 

Crvs,shift -)" 

next 

print "C3right,rvs, shift -,off, 
ilspaces, shift -,Sspaces,shift -, 

7spaces, shift -,7spaces,rvs,shift -]"” 

print "[3right,rvs,cbm z,l1shift “, 

cbm e,Sshift *,cbm e,7shift *,cbm e, 

7shift *,cbm x,off]" 

print spc(9)"C2down,rvs] spielende = 
'x 


print spc(9)"C3up,rvs]spiel nummer # ” 
) 


x 
print ”Chome]";:For kk=1 to “4+pl:print 
"Cdown]";:next :print "C4right]®":Ffor 
kk=pl to py:print "[down)”;:next 
if pl=py then gosub 690: Ffor i=-1 to py: 
PS%Ci)=®:next :px=px+1:goto 79 
print "[Sdown]” spc(9)"Crvs)’return’ 
druecken”:goto 88 
print "C6down]” spc(7)"Crvsllevel 
aendern (J/n) ?Loff] ";:gosub 7708 


„Irapskrip“: Den Bildschirm verwinkeln 


4163 
2941 
2188 
2133 
37893 
3621 


3768 


6237 
5718 


5383 


1834 
1616 
874 


2184 


2197 
1976 
3202 


2647 
1141 
1818 
4950 


PESSDECORESTERWORD CH 


if a$="n" then return 

if aS="<x" then 1199 

if a$<>”j" then return 

print "Cclr,3down]spieler-nr .[2spaces] 
? ";:gosub 838:xx=x:iF x>py then 5298 

aS=-pn$(xx):aa=19 

if mid$ (aS,aa,1)=-" " and aa>i then 

saa=-aa-l:goto 640 

aS-leftS (a$,aa)+"'s ”:print "[2down]"” 

a$"level zur zeit ist "C20-n%(Cxx))/2 

print spce(len (a$))"durchschnitt ist" 

Pm%(xx) 

print spc(len (aS))"letzte punktzahl 
"ps% (xx) 

print "Cdown]neues level[l1®spaces](1- 

9) ? ";:gosub 830: n%(xx)=20-x*2 

print :print "Cdownlweitere 
aenderungen (j/n)? ";:gosub 77®:if 

a$="j" then 6209 

if a$<>”"n” then 690 

return 

For i=1 to 180:get aS:if a$<>""” then 

758 

next :print "[rvs] [Lleft]"; 

For i=1l to 190:get a$:if a$<>"” then 

758 

next :print "[Coff] Cleft)”;:goto 718 
if val CaS)=® then 719 

print "[off)"”a$:s=-val (a$):return 

For i=1 to 198:get a$:iF a$<>""” then 

819 

next :print "[rvs] [left)”; 

For i=1 to 188:get a$:iF a$<>"” then 

8198 

next :print "Coff] [Lleft]";:goto 778 
if a$c>"j” and a$<>"n" and a$<>"x" 

then 778 

print "[rvs] [offJ"a$:return 

For i=1 to 188:get a$:if a$<>”” then 

878 

next :print "[rvs] [Lleft)”; 

for i=-1 to 189:get a$:if a$<>"”" then 

879 

next :print ”"[off] [Cleft)”; 

if a$="®” then 1108 

if a$<”1” or a$>”9" then 830 


‚print "[Coff] [Lleft]J”a$:x=val (as): 
"return 


print ”£[downJ”:for k=1 to py:print ” 

[2spaces]name des spielers ”k"”? 
£1@cbm @,18left)”; 

gosub 930 

print :print "[2spaces] 
schwierigkeitslevel spieler”k”C1-9) ? 
"-:gosub B38:n%(k)=29-2*x 

next :return 

bs="* 

For j=1 to S®:get a$:if a$<>"” then 

978 

next :print ”"[rvs,cbm @,left)”;:for j- 
1 to S®:get aS:ifF a$<>”” then 370 

next :print "[off,cbm @,left]";:goto 

948 

a=asc (a$):if a=13 then print "Coff, 

chm @]”:goto 1928 

if a=-20 and len (b$)>1 then b$*=left3 
(b$S,len (bS)-1):print ”[off,cbm @, 

eleft,cbm Q,left]"”;:goto 349 

if a=-28 and len (b$)=1 then b$="”: 

print "Coff,cbm @,2left,cbm @,left}";: 

goto 940 

if a=-32 or (64<a and a<S8) then print 
"Coff]"a$;:bS=-b$+a$:if len (CbS)>9 then 

190208 

goto 940 

b&-bS+"[1®spaces)”:pnStk)=left$ Cb$, 

10)*+"Cshift -] ":return 

end :rem ende von trapskrip 

print "C[clr,4down, Sspaces]®## ein 
anderes spiel (j/n) ? + 

get z$:if z$=-"j" then run 

if z$<>”n" then 1119 

print chr$ (147); "ade ...”:end 

sm-54272: hf=sm+1: vo=sm+24:sz=sm+4: for 

i=-sm to sm+24:poke i,®:next 

poke sm+5,8:poke sm+5,8:return 

data 169,0,141,32,208,141,33,208,141, 

8,4,141,1,4 

data 141,2,4,169,149,141,0,221,169,5, 

141,24 

data 208,169,128,141,136,2,133,56,86, 

36 


for i=-50808 to 50035:read a:poke i,a: 
next 

gosub 7498 

sys 50092:print chr$ (147);chrS (6) 
goto 18 
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Spiele Listing za tem y 


€64 ist elever! 


System: C64 
Typ: Spiel 
Sprache: Basic 


Nachdem der Spieler mit einer 
kurzen Melodie und den Spielre- 
geln begrüßt wurde, baut der 
Computer das Spielgatter auf. 
Dieses Gatter umschließt 8 mal 8 
Quadrate. Ziel ist es, die Quadrate 


Der Commodore 64 
fordert heraus. Wer 


schlägt ihn im Denk- 
spiel „Cleverness“? 


= schräg links hoch 
= senkrecht nach oben 
= schräg rechts hoch 


einzukesseln. _ = nach links 

Schließt man ein Quadrat vollkom- = stehenbleiben 
men an seinen Gatterrändern ein, = nach rechts 

erhält man das Spielfeld und darf = schräg links runter 


den nächsten Zug machen. Den 
Eingabecursor steuert man mit: 


ZWI<STAN<4% 


= senkrecht nach unten 
= schräg rechts runter 


RETURN setzt ein Mauerstück an 
die augenblickliche Stelle des 
Eingabecursors. Es ist zu vermei- 
den, ein Quadrat an 3 Seiten einzu- 
kesseln, da sonst der Computer in 
seinem nächsten Zug die vierte 
Seite schließt und somit das Feld 
vollends einkesselt. 


Zu Beginn eines Spieles sollte man 
in der Mitte des Feldes beginnen, 
Mauern zu setzen. Gewonnen hat, 
wer am Schluß die meisten Spiel- 
felder sein eigen nennt. Selten 
kommt es am Ende eines Spiels 
zum Unentschieden. 


softtearn HEMER 


goto 5632838 

poks vo,3:poke sz,33:poke hf,5:poke 

sz,32:return 

Eor mz=1 to 255 step 4:poke vo,7:poke 

sz,33:poke hf,mz:poke sz,32:next mz: 

return 

For mz=355 to 1 step -4:poke vo,7:poke 

sz,33:poke hf,mz:poke sz,32:next mz: 

return 

data 169,0,141,32,208,141,33,208,141, 

0,3:1417154 

data 141,2,4,169,149,141,0,221,169,5, 

He 

data 20B8,169,12B,141,136,2,133,56,56, 

96 

gosub 60098 

cert=32768 

teend C=tI) 

tba=d:hz=1: vt=2:hu=1:co=2 

rs=6:cs*6B: sq=rs*cs 

r£f=11-rs:0f=19-cs 

r*-rs+t2:c=cs+t2:dim lc(r,c),vhlr,c), 

DECHn) 

tarnarl=ci? 

For i=-8 to 3:for jJ-® to 3:read rt(i, 

JI:next j:next i 

data 3,4,2,6,4,5,1,7,2,1,0,8,6,7,8,9 

dim sv(1):sv(O)=-9:5vC1)-1 

q$="[3cbm tJEDCLshift *IFRC3cChm @IRF 
[shift *JICDE”:q$5-g$+g$8:q$5-gS+g$ 

For i=1 to 3:read rm(i),cm(i):next i 

data 1,-1,2,8,1,1, 8,-2, 8,90, 2,2, -1, 

Ks a 1 

gosub 70988 

pl=-hu:sv(O)=-9d:svC1)-1 

if pl=hu then gosub 1508:goto 1010 

gosub 500B:if dir-tba then 2808 

gosub 55008:gosub 5609 

gosub 5888:if n=B® then pl-3-pl 

if sq?® then 998 

if hq?cq then 1970 

if hq=cq then 1088 

print "Chomelc64 gewinnt mit "”;cq;” 
gegen ":print ”hgq; "Ffelder”; :gosub4: 
gotol188 

print ”Chomelsie gewinnen mit "”;hqg;” 
gegen ”;cg; ”felder”;:gosub 3:goto 
1188 

print ”ChomeJunentschieden mit je ”; 
hgq;” Feldern”; :gosub 3:gosub 4 

print ”"[Lleft].” 

print ”[38spaces,up]” 

input "noch ein spiel ? J[L3left]”;t$ 
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if left$ (t$,1)="j” then 1290 

if left$ (t$,1)<>”n” then print "CLup]” 
;:goto 1195 

end 

for i=® to rs+2:for j=-® to cs#+2:lcli, 
32=®:vhli,jJ)=-@:next j:next i- 
sq=rs*cs:cq=®:hq=® 

goto 388 

r=sv(®):c=sv(1) 

gosub 399808 

pk$=chr$ C peek Ccrt+4Q*Cr+rf)+Cct 

cf))+12B) 

get t$:if t$<>”” then 15608 

print mid$ C”GD”,1+Cc and 1),1);” 
Cleft]”; 

print pk$; "[left)]”; 

goto 1538 

if t$<>”e” and t$C>”t” and t$<>”y" and 
tS<>”f” and t$<>”g” and t$<>"h” then 

uf=1 

if t$<>”h" and t$<>”"v” and t$<>"b" and 

t$<>”n” and uf=1 then uf=d:goto 1700 
if t$5="r" then t$5="7" 

if t$5="t" then t$="8” 

if t$="y" then t$="9” 

if t$="f” then t$="4” 

if t$="”g” then t$="5” 

if t$="h"” then t$="6” 

if t$5="v” then t$="1,” 

if t$="b"” then t$="2" 

if t$="n"” then t$="3” 

t=val (tS):c=-r+trmet):o=-c+com(t) 

if r<®ß or r?>2*rs or c<® or c?2*cs then 
r*-r-rmlet):c=c-cm(t) 

if t$<>chr$ (13) then 1800 

gosub 2 

row=int (r/2)*+1:col"int (c/2)ri 

v-(r and 1):h=1-v:dir=-hz:if v then 
dir-vt 

if vhlrow,col) and (vt*v+hz*h) then 
1530 

sv(B)=-r:sv(l1)=-c 

return 

if t$<>” ” then 1510 

input ”[home ,28downJwirklich aufhoeren 
P";af$:if af$<>"”j” then 1510 

print ”"[clr]”:end 

mx=--1:dir=-tba:row=col=-1 
r=2*rs+1:c=® 

For i=-1 to rs 

For 3eF to-cs+I 

::gosub 5298 

::iE vhli,jJ) and vt then 5978 


1705 
2355 


128 
4766 


ell6 
572 
134e 
573 
BS4S 


1925 
2492 


817 
603 
5657 


Se15 


1613 
1693 
1614 
1691 
1739 
1532 
1645 
1531 
1676 
2378 
4598 


1622 

e41 
BBE2 
3436 


3400 


1945 

142 
1345 
Se4S5 


495 
2498 
1472 

974 
1063 

459 
1728 
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5040 :::f=rt(lcli,j-1),1c(i,J)) 7850 For c=2 to 2*cs-2 step 2:print mids 3838 
5058 :::if F<mx or (f=mx and rnd (1)>,5) 3578 (m$,r+1,2);:next c 
then 5970 7868 print mid$ (r$,r+1,1) 1446 
59608 3121 7878 next r es4 
59708 598 7888 return 192 
5088 :: 258 7400 sm=54272:hf=sm+1:vo=sm+24:sz=sm+4: for Ss561 
5118 For i=1 to rs+1 1188 i=-sm ta sm+t24:poke i,®:next 
S128 :For j=1 to cs 735 7418 poke sm+5,8:poke sm+5,8:return 1578 
5125 ::gosub 5298 458 8930 : 
5130 ;:if vh(li,)) and hz then 5170 1840 9008 print ”Chome)J”; :r=r+rf:c=c+cf 2920 
SINBTENESTeCIcli-1,32, 1004,33) 1876 3218 if r then print left$ C”L24doun]”,r); 3882 
S1S® :::if F<mx or (f=mx and rnd (1)>,5) 3572 3020 if c then print left$ ("[39right]”,c); 6488 
then 5178 9838 r=-r-rf:c=c-c£ 1501 
S168 :::dir=-hz:mx=f:row=-i:col=j 3128 9248 return 142 
S178 :::next J 538 Ss0202 print ”"[down,rvsIreturnloff] druecken 2237 
5188 ::next i 258 Rp 
5182 gosub 3 243 50218 get z$:if z$=""” then 50010 1589 
51B5 gosub 9888:print "[39spaces)”; 2104 58822 return 142 
5198 return 142 6002828 print ”Celr, 3down, 4spaces]softteam 4549 
5208 gosub 9908:print left$ (q$,2*cs+1); 2505 proudly presents”:print :print :print 
5205 uf=uf+B:if uf>205 then uf=® 2185 ’C2down]” 
5207 poke vo,l:poke sz,33:poke hf,uf:poke 29569 60005 print "[ilspaces, rvslcleverness 64 3295 
sz,32 [off]”:print :print "[L2down]” 
S21® q$S-mid$ (q$,2,255)+left$ (q$,1) 2040 60018 print ”[4spacesIc64 version von 3957 
S228 return 142 softteam[L1®spaces]” 
5332 : 60011 print :print :gosub 3:gosub 4:gosub 3: 1966 
5488 tyj=-ti+dl 854 gosub 4 
541@ if ti<tj} then 5418 1372 60022 input ”"[Sdownlerklaerungen ?[2spaces)n 2497 
5428 return 142 E3left]”;t$ . 
5438 : 60030 if lefts (t$,1)-"n” then return 1688 
5508 lc(row,col)"lcCrow,col)+1 3185 600848 print "Celr,2down,rvsJIclevernesstloff, 2214 
5518 if dir<>hz then 5548 1283 edown]” 
S528 l1cCrow-1,col)=leCrow-1,col)+1 3475 608058 print ”spielen sie [rvsIcleverness 3952 
5538 vhlrow,col)=vhClrow,col) or hz:return 3483 [off] gegen ihren” 
5548 lcCrow, col-1)=lcelrow,col-1)+1 3655 60268 print "commodore 64.[C2spaces]Jnehmen 3486 
SSS® vhlrow,col)=vhlrow,col) or vt:return 3491 sie die heraus-” 
5538 : 60272 print "Forderung an !!!Cdown]” 1491 
5608 r=-Crow-1)#*2:0=-(col-1)*2 3178 60088 print "versuchen sie, die felder so 3292 
S605 if (Cr and 1) or (c and 1) then stop 1108 einzu-” 
SE1® gosub 39900 73 60030 print ”kesseln, dass sie mit ihrem zug 3032 
5628 t$-"[down,shift -]I”:if dir=hz then t$= 2359 das ” 
"Cright,shift *J” 60102 print "gesamte quadrat umschliessen. 3411 
5638 print t$;:if pl=hu then return 1716 das feld” 
SE4B di-5:for gqgq=-® to 6 1651 60125 print "gehoert dann ihnen und sis 3368 
5658 gosub 5488:print "[left] ”; 1351 duerfen ” 
Ss668 gosub 5489:print "Lleft]”;rights (ts, 1982 60118 print "nochmals ziehen.[down]” 2035 
29; 60128 print "waehrend der c64 denkt, 3363 
5678 next qq:return 802 zeichnet er” 
5630 : 60138 print "ein wellenmuster auf den 3355 
5708 r=r*2-1:c=c*2-1:gosub 90008 1732 bldschirm, ” 
5718 sq=sq-1 815 601408 print "begleitet von ansteigenden 3889 
5720 if pl=hu then print "W”;:hq=hg+1:gosub 3848 toenen.” 
3:gosub 3:return 60158 print ”sene denkzeitliegt zwischen 5 3869 
5730 print "Q”;:cq=-cq+1l:gosub Y4:gosub 4: 2358 sekunden” 
return 60168 print ”und maxmal einer minute.” 2611 
5730 : 60178 print 153 
5808 n-® a2 60180 gosub 50000 577 
Er ee ie 60198 print ”Cclr,2down,rvs] clevernessloffl 4388 
5839 r-rau:;c=oul-1:gosuh 5398 1918 „est version by softteam[3spaces, down] 
5B4® return 142 69208 print "die steuerung erfolgt ueber :” 2838 
5838 69218 print "tastel2spaces]Ifunktion:[down])” 1817 
59388 if lc(r,c)<>4 or vhlr,c) and 12 then 2535 62228 print " FE -[3spaces]links[4spaces)” 1467 
return 60238 print ” h -[3spaces)rechts” 1348 
5918 vhlr,c)=vhlr,c) or 12%#pl:nen+1 3312 69248 print 153 
5920 gosub 5782:return 833 692508 print ” t -[3spacesIhoch” 1165 
5339 60260 print ” b -[3spacesIrunter” 1355 
60088 print "Cclr]”; 435 60278 print 153 
6018 For i-1 to cs;print ”[cbm r] ”;:next 2411 60288 print ” y -[3spaces]Jschraeg rechts ey2y4 
i:print ”[cbm s]” hoch” 
6022 print ”Lup,chbm a,down]” 593 60298 print ” r -[3spaces]schraeg links e212 
6838 For j-2 to rs 984 hoch” 
6048 For i-1 to cs:print ”[shift +] ”;:next 2145 60308 print ” v -E3spaces]Jschraeg links 2455 
i:print ”[cbm w]” runter” 
6058 print ”Lup,cbm q,down]” 469 60318 print ”" n -[3spaces]Jschraeg rechts 2758 
6068 next j 278 runter” 
6078 For i=-1 to cs:print "[chm eJ ”;:next 2332 69338 print "[down,rvsJreturnloff) c64 nimmt 2485 
i:print ”"[cbm x]2” zug an” 
6082 print "[Cup,cbm z,home]”; 723 69348 print "[down, rvs]spaceloff ,‚2spaces] 2506 
68398 return 142 beendet das spiel” 
6902 end 128 603598 print "(mit sicherheitsabfrage)” 2598 
7088 print "[clr]”:1$="[cbm a] ":r$="” 2307 603628 gosub 59098 577 
Ccbm s]) ”:m$="[chm r] ” 638228 return 142 
7018 For i=2 to rs:1$5=-1$5+”"[cbm q] ”:r$=r$+” yayg 630398 For i-58908 to 50035:read a:poke i,a: 2626 
Cchbm w] ”:m$=m$+”"Cshift +] ”:next i next 
7020 1$=1$+”Ccbm zZ] ”:m$=m$+”[chm e] ”:r$= 3161 63048 gosub 7480:rem sound 662 
r$S+”"[cbm x] ” 63058 sys 58808: print chr$ (147);chr$ (5) 2471 
7030 For r-® to 2*rs step 2 ı218 63855 print chr$ (142); ”"Cyel]” 1192 
7048 c=®:gosub 9008:print mid$ (1$,r+1,2); 224B 63968 goto 58:rem zurueck zum hauptprogramm 644 


Der Commodore C64 fordert heraus in „Cleverness“ 
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a SE re Ve ee 


A FRDEN DE Ai 


MATHE Fi 


ET ATTERSEE 


DEE Da AS 1 EEE a U u 


System: C64 
Typ: Spiel 
Sprache: Basic 


Nachdem das Programm gestartet 
ist und die Namen der Spieler ein- 
gegeben sind, beginnt „Artillery" 
per Zufallszahlen ein Spielfeld zu 
entwerfen. Zwei Geschütze er- 
scheinen am Bildschirm, ein Ge- 
birgsrücken entsteht. Windstärke 
und -richtung zeigt das Programm 
in der ersten Zeile. Danach gibt 
Spieler 1 seine Schußwerte ein. 
Höhenunterschiede sind genauso 
zu berücksichtigen wie die mo- 
mentanen Windverhältnisse. Um 


gosub 63030:goto 5 


Spiele Listing 


RUN an die 
Geschütze 


Zwei Spieler sitzen sich 
in ihren Kampfgeschüt- 
zen gegenüber. Schuß- 


winkel und Schußkraft 
sind präzise einzuge- 
ben, damit man den 
Gegner zerstört. 


über die hohe Gebirgskette zu 
schießen, ist ein Schußwinkel von 
mindestens 80 Grad ratsam. Mit 
6.5 ist die Schußkraft bei Rücken- 
wind ausreichend, um das Ge- 


next i 


poke vo,15:poke sz,33:poke hf,5:poke 3-d 
k=180/Cx2-x3+1) 


sz, 32:return 


For mz=1 to 255 step 4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 


return 


For mz=255 to 1 step -4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 


return 


ho$="Chome)]”+s$+s$+"Chome,rvs] ":s$5-" 


Chonme , 37spaces]” 


h93=h(39)+d2 
SSOTK 


next i 
goto 550 


Jo 


schoß an sein Ziel zu schleudern. 
Fliegt eine Granate höher, als das 
Spielfeld anzeigt, errechnet „Artil- 
lery“ weiterhin die Koordinaten, 
denn oftmals taucht ein Geschoß 
wieder am Bildschirm auf und fin- 
det sein Ziel. Ein Spieldurchgang 
geht so lange, bis einer der bei- 
den Kontrahenten zerstört ist. Da- 
nach muß man entscheiden, ob 
man weiterspielt oder endet. Da- 
bei zeigt der Computer den aktu- 
ellen Spielstand an. Jedes Spiel- 
feld wird neu entwickelt. Dadurch 
sind immer neue Schußwerte not- 
wendig, um den Gegner zu ver- 
nichten. 


satten RENTE 


For i=x3+1 to x2-1 


hti)=h9+cos (jJ*[Lpil/180)*d2 


d=Ch(1)-h(39))72 


k=188/(x2-x1+1) 


print "Cclr,3down,Zright,rvs, 3spaces)a 
rti 11 er y[3spaces,off]"” 

input "”Chome, 7down]name des 
1.spielers(links) ?C3left]2”;n1$ 

IE n1$="?* then 7 

input ”[home, Sdown)Jname des 
e.spielers(rechts) ?C3left]”;n2$ 

if n2$=-"?” then 9 

dim a(180),b(1280),h(39),al(2),bi1(2), 

aed(l2),b2C2),1C2) 

for i=1 to 500:next i 

print ”"[clr]”:poke 59468, 12:gosub 8999 

z$5=-"[rvs,cbm +,up,left]”:for x=1 to S: 

25=25+zZ8:next x 


a$=-"[right)”:for x"1 to B:a$=aSt+tas: 
next x:b$="[down]”:Ffor x=1 to 5:b$=b$+ 
b$:next x 

n=2 

rem 


xl-int C6+trnd (1)*8B) 

x2=int (25+rnd (1)*8) 

1C1)=int (3+(x1-3)*rnd (1)) 
IC2)=int (x2+1+C36-x2)*rnd (1)) 
h9=rnd C1)*11+1 
Forsirtritox1:hCiI=h93:nexti 
hS=rnd (13*%11+1 

for i=x2 to 39:hCi)=h9:next i 
if abs Ch(1)-h(39))<4 then 178 
x3=-x1+int C rnd (1)*Cx2-x1-6))+3 
h(cx3)=rnd (1)*11+3 
di1=Ch(x3)-h(1))/2 
d2=Ch(x3)3-n(393)/2 

if di*d2<=® then 478 

3”-188 

k=1898/(x3-x1+1)9 

h9=h(l1)+d1 

Bor Iex1+1 *07x3-1 

Jestk 

hCi)=h9+cos (j*[pi1/180)*d1 
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h9=h(39)+d 

For’ i=x1+1 to x2-1 

J=Jj+k 

hCi)=h9+cos (j*[pi]/180)*d 

next i 

print "Cc1lr)]”; 

w=int (108*C rend (1)-.5)) 

print left$ C(b$, 22); 

For i=-1 to 39:hli)=int Chli)+.5):next 
= 

For x=1 to 39:if x=1 then 618 

print "C[Cright]”; 

print mid$ (z$,1,h(x)*4); 

for z=1 to h(x):print "Cdown]”;:next 'z 
next x:print "[Loff]J” 

print "[Chome]”; 

print mid$ Cb$,1,22-h(1));:if 1(1)-1 
then 788 

print mid$ (a$,1,1(1)-1); 

print "[left,rvs,shift £]”;left$ (ni1$, 
1);"Ccbm *,off ,up,2leftIN”; 

print ”Chome]”; 

print mid$ Cb$,1,22-h(39)); 

print midS (a$,1,1(2)-1); 

print "[left,rvs,shift £]”;leftS5 (n2$, 
1);”Ccbm *,off,up,2leftJM"; 

print ”Chome]”; 

print midS (b$,1,24); 

print ”[CBspaces]”; 

KT 

if w>=® then 820 

print -w;” km/h wind[2spaces="" <== )"; 
goto B4B 

print w;” km/h wind[l2spaces)( ==> )”; 
print "C[Chome]”; 

print ”Chome]”; :n=-3-n:if n=1 then 888 
print ho$;n2$+” ”;:input "[home, 
15rightlwinkel:C3spacesIT[4spaces, 
7left]1”;e 


BS5S print s$ 463 
B6® print ho$;n2$+” ”;:input ”Chome, 5858 
15right]pulver:[3spacesJ?[3left]";v 
BES print s$ 463 
870 qa%"=3:goto 318 12000 
875 print ss 463 
888 print ho$;n1$+” ”;:input ”Chome, 5743 
15rightJwinkel:[3spaces]?[L3left]";e 
885 print s$ 463 
898 print ho$;n1$+” ”;:input ”"Chome, 5734 
15rightJpulver:[3spaces]?T[3left]"”;v 
908 q%=5 Ss26 
912 k-ktl:if e=® then 3908 1428 
930 a2(n)=-a2(n)-2,86 1592 
948 e-S0-e 881 
958 if n-1 then 970 1024 
S68 e--e 386 
978 x1i=l(n) 831 
988 yi=hll{in))+1 12901 
398 t-2:m=O 836 
18018 vi=-sin le*[pi)/189)*v 2303 
1028 v2=cos (e*[piJ/180)*v*,7 2539 
1030 t=t+.5:m=m+1 1690 
1948 virvi+lvirw*,5)/1509 22085 
1059 x=-x1+Cvi+w* ,5/50)*t 2110 
1068 x=int (x+,5) 1928 
1078 y-yl+Cv2-t/3)*t 1767 
1888 y=int (y+.5) 1037 
18938 z=23-y:print ”[Chome]”; 1544 
1892 aCm)=-z:bCm)=x:if x>39 or x<1 then 1358 3215 
1094 if y-h(x)<=® then 13498 1755 
1188 if z<® then 1152 18392 
111® if z=@® then 1138 19887 
1128 print left$ (Cb$,z);:if x=1 then 1149 2199 
113®8 print left$ (a$,x-1); 1269 
1148 print ”*”:gosub 2 8856 
1158 print ”Chome]”; 453 
1168 if m-4<1 then 1038 1452 
1162 if alm-4)=® then 1180 1615 
1164 if alm-4U)<® or b(m-4)<-B® then 1038 2641 
1172 print leftS (b$,a(m-4)),;, 1469 
1188 print left$ (a$,b(m-4)-1); 1731 
1198 print ” ”; 545 
1288 print "C[Chome]”; 493 
1228 goto 1038 583 
1238 if m=1 then 1038 188S 
1232 if b(m)<1 or b(m)>39 then 848 2087 


1233 rem schwierigkeitsgrad liegt bei ’1.5’ 
I 


1234 gosub 4: if abs Cb(m-1)-1(n))<1.5 then 3241 


1258 
1248 goto 12560 615 
1258 if t>1 then 1519 19879 
1268 if abs CbCm-1)-1(3-n))<1.5 then 1568 2976 
1278 if t<1 then 1038 1823 
12808 goto 14568 623 
1298 print ”[Chome]” 314 
1308 For i=-® to 18®88:next 928 
1318 gosub B888:goto 98 950 
1348 print "Chome)”; 493 
1358 For j-4 to 1 step -1 1128 
1368 if m-j<-® then 1440 1497 
1378 if atm-j)=® then 1410 1466 
1388 if alm-J)<® or b(m-)J)<=® then 1440 2658 
1488 print left$ (Cb$,a(lm-J));:if bim-J)-1 3079 
then 1428 
1418 print left$ (Ca$,b(m-j)-1); 1564 
1829 print "9; 545 
1438 print ”"Chome)”; 493 
14490 next J:if m=-1 goto 1698 1658 


Unter Beschuß: Artillery 


»BEBAUEN UND BEWAH- 
REN - das ist der Auftrag, den 
Gott den Menschen für die 
. Schöpfung mitgegeben hat- nun 
ist er selbst für sie zur Bedrohung 
geworden. 
Besonders hart treffen die Folgen 
des Raubbaus an der Schöpfung 
die arme Bevölkerung in den 


WER HENERSNTERDIRI CH 


1458 if b(m)<1 or b(m)>39 then 16108 
1455 goto 1238 
1468 if b(m-1)=1 then 1470 
1465 print left$ (a$,b(m-1)-1); 
1478 print left$ (b$,23-hCb(m-1))); 
1472 for z=1 to 3:print "Cup, leftJ£W/Lup, 
3left]£!/";:Ffor x=1 to 5:next x 
1474 print "[3left,down, 3spaces,up,3left, 
3spaces,2left,2down]";:Ffor x=1 to 5: 
next x:next z:print "[cbm 02”; 
1488 goto 1608 
1518 print "Chome]”; 
1528 print left$ (a$,1l(n)-1) 
1538 print left$ (Cb$,24-h(l(n))); 
1548 For z=1 to 9:print "Cup,left,rvs, 
cbm *JOC[shift £,off,up,4tleft]£Clchbm b2! 
Ervs,cbm b,off)/[Sleft upl£M!IN/C2left, 
Sedoun)”;”Cleft)”; 
1541 w%=B 
1542 For x=1 to 5:next x 
1544 print ” [3left,up,Sspaces,Sleft,up, 
Sspaces,3left ‚up, 4down]”; 
1545 For x=1 to x:next x:next z 
1546 For x=1 to 58:next x 
1548 gosub 3:gosub 3:gosub 3 
1558 goto 1238 
1568 print ”Chome)”; 
1578 print left$ Ca$,1(3-n)-1); 
1588 print leftS Cb$S,24-h(C1(3-n)-1)); 
1538 goto 15498 
15628 rem 
1618 w=w+int (198*C rend (1)-,5)) 
1628 print ”Chome)”;left$ (b$,24);” 
[8Bspaces)”; 
1638 if w>=8 then print ’[3spaces,3left]”; 
w;” km/h wind[2spaces]( ==> )";.goto 
849 
1648 print "[3spaces, 3leftJ”;-w;” km/h wind 
[2spaces]( <== )”;:goto 848 
7492 sm-54272:hf=sm+1:vo=sm+24: sz=esm+4: For 
i=sm to sm+24:poke i,@8:next 
7418 poke sm+5,8B:poke sm+5,8:return 
8228 print "[clr,3down,rvs,3spacesJla rti 
1 ler y[3spaces,off)” 
8218 print ”"[Sdown]”; 
8050 if q%=5 and w%=B then s1=s1+1 
8955 if q%-3 and w<=8 then s2=s2+1 
8108 print n1$;tab(28);s1;tab(24)J”siege !!” 
8208 print ”"[3down]”; 
8308 print n2$;tab(20);s2;tab(24)”siege !!” 
85988 print ”"[Sdown,4right] noch ein spiel ? 
(} oder n) 
8608 get u$:if q$="”" then 8690 
8788 if q$="n"” then end 
8750 q%-9:w%=9:3%- 0 
8888 return 
63000 data 169,0,141,32,288,141,33,208,141, 
N 


63010 data 141,2,4,169,149,141,0,221,169,5, 
341,24 

630208 data 208,169,128,141,136,2,133,56,S6, 
96 

630308 For, i-50008 to 500835:read a:poke i,a: 
next 


63048 gosub 7400 

63058 sys 50088: print chr$ (147) 
63060 return 

63290 rem commodore 64 version 
63228 rem <c> by softteam 


2137 

ss1 
15308 
1719 
2650 
4305 


3971 


583 
493 
1426 
el26 
6031 


556 
1179 
3185 


1368 
1231 
957 
633 
433 
1423 
e565 
E11 


1723 
1762 


4998 


3788 
5561 


1578 
1733 


628 
2624 
2481 
2733 

716 
2751 
3634 


1578 
1304 
1304 

142 
5103 


4086 


4236 


[-1=112) 


591 
1728 
142 


Entwicklungsländern. Sie ver- Postfach 476, 7000 Stuttgart 1 


liert ihre Lebensgrundlage... 


Viele Partner von »Brot für die 
Welt« versuchen mit großem 
Einsatz die Ursachen der Not zu 


wollen se mi unseren genden FF IE Welt 
RS 20 22 a en u 2 20 u 0 22 


tatkräftigunterstützen.« 


(Auszug) Postgiro Köln 500500-500 
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Spiele Listing 


Mit dem Kopf 
dureh die Wand 


System : C16/116/Plus4 
Typ :Spiel 
Sprache: Basic 


Mit Joystick oder Tastatur steuert 
man seine Fahrbasis am unteren 
Bildschirmrand. Trifft der Ball auf 
dieses Spielbrett, schleudert er 
wieder auf die Wand zu und trifft 
dort (hoffentlich) einen Stein. Ist 
die Mauer komplett abgeschos- 
sen, ertönt eine Sieges-Hymne. 


Danach erscheint eine weitere: 


Mauer. Allerdings ist der Spreng- 
ball diesmal schneller und das 
Spiel daher schwieriger. Gute 
Nerven und schnelle Reaktionen 
sind Grundlage, um den auf Kas- 
sette gespeicherten High-Score zu 
brechen. 


Deshalb ballert’s im C16 
EIRERERTRTERBETLNE 


Zeile 120 bis 180 

— Anfangsbildschirm 
Variablendefinition 

Zeile 190 

— Zufallsrichtung des Balls am 
Anfang des Spiels bestimmen 

Zeile 200 

— Ballbewegung: neue Position 
auf Kollision untersuchen, Ball 
zeichnen 

Zeile 210 bis 320 

— 1. Ballroutine: 
— Ball auf dem Boden 


zeichnen, 


DET Bra kn —oDätiee 


In „Break-Out“ geht es 
darum, einen Ball ge- 
gen Mauerstücke zu 
feuern, um damit die 
Wand einzureißen. Je 

nach Aufschlagwinkel 


kommt der Ball direkt 
oder angeschnitten zu- 
rück. Nur mit viel Ge- 
schick gelingt es, die 
Mauer komplett 
niederzureißen 


— Richtungsänderung des Bal- 
les nach Kollision mit Wand 
oder Schläger 

Zeile 330 bis 350 
— Joystick/Tastaturroutine 
Zeile 360 bis 380 
— Spieler (Schläger) 
und bewegen 
Zeile 390 bis 400 
— Steine zeichnen 
Zeile 410 bis 430 
— Score erhöhen, anzeigen 
Zeile 440 bis 470 
— 2. Ballroutine 

— Richtungsänderung des 
Balls nach Abschuß eines 
Steins 


zeichnen 


Zeile 480 bis 510 
— Lebensabzugsroutine 
Zeile 520 bis 560 
— Endroutine 
— Highscore? 
— Highscore abspeichern? 
Zeile 570 bis 575 
— Ballwarteschleife verringern 
— Freileben geben 
Zeile 580 bis 680 
— Datas für Vorspann und Hymne 
Zeile 690 bis 720 
— Hymne spielen 
Zeile 730 bis 820 
— Vorspann: 
— Highscore einladen? 
— Steuerung mit Tastatur/Joy- 
stick 
Zeile 830 
— Highscore auf Band schreiben 


Wichtige Variable 
HS = Highscore 
N$ = Name des Highscore- 


inhabers 

L = Leben 

SC = Score 

S = Position des Schlägers 

J = Ballwarteschleife (vom 
Level abhängig) 

V = Anzahl der abgeschosse- 
nen Steine pro Level 

Q = Scoremultiplikator (vom 
Level abhängig) 

A = Position des Balls 

M = Richtung des Balls 

JT = Joystick/Tastaturvariable 

Martin Goes ÜiEEEEEEEEEEE 


vol B:gosub 738 
g=-1:1=9:sc=9:s=28: j=48:v=8:color 2,1 


q=q+1:color 1,8:scnclr 


:for i=3112 to 


3151:poke i,64:poke i+920,64: next 


von martin goes 
philosophenweg 2 
7488 tuebingen 


poke 3112,391:poke 3151,91:poke 3992, 
91:poke 4831,91 

for i=3152 to 3952 step 48:poke i,566: 
poke i+39,66:next : 
char 1,90,0,” ” 
»[Srightlhigh:”;hs 
s=-28:char 1,s,23, ”[2cbm +J”:a=3972- 
168: 0-481® 

y-int C rnd (DO)*2)+1:iF y=1 then m=-- 
41:else if y=2 then m=-39 

gosub 330: a=a+m:poke a-m,32:poke a,Bl: 
b=peek (a+m):if b=32 then 208:else if 
b=S8 then 419 

sound 1,168,3:if b=BE6 then 25ßB:else if 
b=E4 then 228:else if b=102 then 308: 
else 328 


u 
I 
l 
l 
l 
I 
ı 
! 
l 


alle rechte vorbehalte "tilright]li:”;1; 


ein spiel der 
imago software 
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Nr. 


EEE Spiele Listing am mm mu 


if 
TE: 
if 
if 
if 
if 
if 
if 


b=64 
b=64 
b=64 
b=54 
b=E6 
b=56 
b=66 
b=E6 


and 
and 
and 
and 
and 
and 
and 
and 


m=-41 then 4B8 

m-39 then 458 

m--41 then m=-39:goto 288 
m--39 then m=-41:goto 2088 
m-41 then m=-33:goto 288 
m=--39 then m=--4l:goto 288 
m=-39 then m=4i:goto 288 
m=--41 then m=-33:goto 288 


if b=-182 and m=39 then m=--41:goto 288 
if b=-192 and m=41 then m=-39:goto 208 
if b=-91 then m=-m:goto 298 

For i=-® to j:next :on jt goto 358,348 
get a$:if a$="[right]” then n=-2:goto 
368:else if a$="[left]” then n=-2:goto 
368:else return 

if Joy (1)=7 then n=--2:else if joy (1) 
=3 then n=2:else return 

s=s+tn:if s?=1 and s<-37 then 388:else 
s=-s-n 

char 1,s,23,"[2cbm +3”:char 1,s-n,23,” 
[C2spaces)”:poke 33932,31:poke 4031,91: 
return 

char 1,s-n,23, "[2spaces]”:char 1,s,23, 
"C2cbm +)”:return 

for i=1 to 3:char 1,8,1+i*3,"[Cred, 
Mright,3cbm i,2spaces,3cbm i,2spaces, 
3cbm i,2spaces,3cbm i,2spaces,3cbm i, 
Espaces,3cbm i,2spaces,3cbm i)”:next 
return 

sc"-sc+18+18*q:v-v+1:for i=atm-2 to a+m 
+2:poke i,32:next :if v=21 then v=B: 
goto 578 

char 1,2,80,” ":print sc:sound 1,812, 
18:sound 2,854,18:sound 1,854,1® 

sound 2,881,1®8 

if m=--41 then m*39:goto 208 


if m=--39 then m=-41:goto 
if m=-41 then m=-39:goto 
if m=-39 then m=--41:goto 


200 
208 
200 


l-1-1:for i=-39393 to 4038:poke i,32: 

next 

For i-1080B to 108 step -48:sound 3,i, 

E:next :char 1,0,80,” ”:if 1<® then 520 

print ”"C[ilrightJli:”;1 

goto 188 

print "[clr,rvs,yel,iispaces)b reak 
- o u t£Ll2spaces)": for t=1 to 1d:get 
r$:next 

if sc>hs then hs=sc: input "[pur, 3down] 
wie heissen sie ";n$:if n$="" then n$ 
N... 

print "[4down,cbm 3,Srightlhighscore: 
Cright]”;n$,hs 


Destruktiv: Mauern fällen in „Break-Out" 


Ihre Spende. 


Das deutsche Seenotrettungswerk wird ausschließlich durch 
freiwillige Zuwendungen finanziert. Zum Beispiel auch durch 


Deutsche Gesellschaft zur Rettung Schiffbrüchiger 


Werderstr. 2, 2300 Bremen 1 - Postscheck Hamburg 
(BLZ 20010020) 7046-200 wir danken für die gespendete Anzeige 


WIEN RENERENFSTERNOER ZEN 


print ”[cbm 4,6down) highscore 
abspeichern ? (j/n) ”:get key a$:if 
a$5="j” then gosub 838 

goto 128 

3"3-10:if jJ<=® then j-®:s=29 

1=1+1:if 1>=9 then 1=9 

data v,o,n[2spaces),m,a,r,t,i,n 
[2spaces],g,o,8&,s 

data 1,881,10,2,0,0,1,834,280,2,0,0,1, 

8190,18,2,881,1® 

data 1,796,20,2,834,20,1,768,10,2,812, 
18,1,739,20,2,7936,20,1,768,10,2,768,18 

data 1,796,5,2,739,190,1,768,5,1,739,5, 

2,644,180,1,1022,5 

data 1,796,10,2,739,10,1,834,20,2,756, 

280,1,854,180,2,818,10 

data 1,834,20,2,796,20,1,810,10,2,768, 

18,1,796,30,2,739,30,1,768,20,2,721,28 

data 1,881,10,2,0,02,1,834,20,2,0,0,1, 

818,180,2,881,18 

data 1,796,20,2,834,20,1,768,10,2,812, 
10,1,739,20,2,796,280,1,768,10,2,768,108 

data 1,796,5,2,739,18,1,768,5,1,739,5, 

2,644,10,1,1022,5 

data 1,796,10,2,739,10,1,834,20,2,796, 
20,1,854,10,2,810,10 

data 1,834,20,2,796,20,1,810,10,2,768, 

10,1,796,40,2,739,480,1,768,40,2,721,408 

restore 

For i=1 to 13:read aS:next :for u=1 to 

34:read a,b,c,d,s,f:sound a,b,c:sound 

d,e,f 

next :sound 1,796,118:sound 2,881,118 

for t=1 to 2088:next :goto 1408 


eolor ®,1 

print "Cclr,rvs,yel,ilspacesJb reak 
- o u t[12spaces]” 

restore 

print :print :print :for i"=1 to 13: 

read a$:print a$;:sound 3,908,5 

For u=l1 to 1508:next :next :print 

print "[Sdown,cynlhighscore einladen ? 
(J/n)”:get key a$:if a$=")" then 790: 

else B0® 

open 1,1,8,”"highscore”:input#1,n$: 
input#1,hs:close 1 

print :print "[wht,2down) jJ- Joystick 
[3spaces]k- keyboard”:get key a$ 

if a$="k” then Jt=-2:else jt-1 

return 

open 1,1,1, "highscore”:print#1,n$: 
print#1,hs:close 1:return 


WILLLLL 


Spiele Listing 


FOG — Nebel des Grauens 


System: C16/116/Plus 4 
Typ: Spiel 


Sprache: Basic 


Nachdem der Computer den 
Schwierigkeitsgrad, Eingabege- 
rät (Joystick/Tastatur) und High- 
Score-Bedarf kennt, beginnt das 
Spiel. Nebel entsteht auf dem 
Spielfeld. Am unteren Bildschirm- 
rand befindet sich der Spieler. 
Nach Abfeuern der Leuchtrakete 
muß man das Geschoß durch zahl- 
reiche Nebelpunkte nach oben 
steuern. Stößt die Rakete auf ein 
Nebelpartikel, gibt es keine Punk- 
te. Erreicht man den oberen Bild- 
schirmrand, naht Rettung. Danach 
beginnt das Spiel in einem höhe- 
ren Level. Nach 10 Runden gibt es 
einen Freischuß. 


So funktioniert's! 
5 ee 


Zeile 10 bis 40: Vorspann 
— Spiel mit Joystick oder Tastatur 
— Schwierigkeitsgrad 


12 graphic 8:color ®,2:print 
(3spacesJf o glBspaces]” 


k For keyboard”:get key a$ 


16 if aS="k" then jt=2:else jt=-1 
28 input "[3down, red, 2spacesIdifficulty 


[4spaces](0-3) 
>int (q) then 20 


38 print "[2down,blu]J shall i load the 


"[clr,cvs, 
flashon,blk,7spacesId angerous 


Dichter Nebel zieht 

auf. Gespenstische 
Wesen begleiten die 
Wolken. Einzige Hoff- 


nung: Hilfe aus 
der Luft. Man muß 
Leuchtraketen durch 
die dünnsten Nebel- 
schichten schießen. 


— Highscore von Kassette einla- 
den? 

Zeile 50 bis 100 

Bildschirm zeichnen (Nebel, Ab- 

schußrampe) 

Zeile 110 

Rakete zeichnen, alte Raketenpo- 

sition löschen 

Zeile 111 bis 136 

Joystick beziehungsweise Tasta- 

turabfrage 

Zeile 140 bis 160 

Festsetzen der neuen Raketenpo- 


siion und Überprüfung nach 
Crash, Bonuspunkten, Ziel Zeile 170 
Lebensabzugsroutine 

Zeile 190 bis 270 

Abschußrampe löschen 


Zeile 300 

Crasheffekt 

Zeile 310 bis 320 

Rakete im Ziel 

Zeile 330 

Nebel auflockern 

Zeile 350 

Variablenreset für Neubeginn 

Wichtige Variablen: 

JT = Joystick/Tastaturvaria- 
ble 

Q = Schwierigkeitsgrad 

K = Dichte des Nebels 

LI = Leben 

M,N = Richtunng der Spieler- 
bewegung 

X,Y = Nebelposition 

(®) = Abschußrampenort 

A,B = Raketenposition 

SZ,SC = Scorevariablen 

N$ = Name des Highscore- 


Martin Goes 


168 if rdot (2)-1 or a<ßd or a?159 then 
178:else if rdot (2)-3 then 1BB:else 


= if b<S then 318 

15 print "[2dounlpress j For Joystick or 4 178 li=li-1:gosub 300:if li<® then 158: 
else gosub 280:goto 998 

188 li=li+.1:for i-S00 to 908 step 50: 


sound 1,i,2:next :goto 118 
";gq:if q<d or g’3 or q£ 198 graphic ®:print "[Cclr,Flashon, 7spaces) 


sie erreichten”s2*15+sc"punkte”:Ffor i= 


1 to 18:get aS 


highscore (y/n)”:get key a$:if asg="y” 208 next :sc=s2*15+sc:if sc>hs then hs=sc: 
input "[C2down] enter your name please” 


then 4B:else 50 


48 open 1,1,8:input#1,n$:input#1,hs:close ‚ns 
1 


SO graphic 3,1:k=250+q*79:vol 8: li=3 

68 color 1,2:color 3,3,4:color ®,1:color 
8,7,4:m"d:n=2:z=1:color 4,18 

78 y=int ‚C rnd (CBO)*100)+30:if y/2<>int (y 


/2) then 79 


80 x-int C rnd (DO)*159):draw z,x,y:9=s#+1: 


iE s<>k then 70 


98 b*188:0o"-int ( rnd (B)*150)+5:draw 2,0- 
1,191 to o+t1,191:draw 2,0-2,192 to o+ 


2,192 


draw 2,0,193 to o,1S4:draw 2,0-2,195 
to o*2,195:draw 2,0-1,196 to o+r1,196:a 


-o 


draw 3,a,b:if m<>® then draw @,a-m,b 
to a-m,btl:else draw d,a,b+4 


on jJt goto 120,135 


if Joy (1)-® then 149:else if joy (1)- 
1 then m=®:n=2:else if joy (1)-3 then 


m=1:n=® 
if Joy C1)-7 then m=-1:n-® 
goto 148 

get a$:if as-"" 


" then m=1:n=® 


if aß="[left]” then m=--1:n-8 
a-ratm:b=b-n:locate a,b:if rdot (2)-8 
and a?® and a<159 and b>5 then 119 


FOG — undurchsichtiges Spiel im C16 


138 QUUWD Sonderheft 


then 148:else if as-"” 
[up)” then m-B:n=2:else if a$=-"[right) 


print "C2down,rvs,cyn,Bspaces}h a 1 1 


if ns="" 


C3spaces)]o F[3spaces)f a m elS9spaces]”" 
then n$="---” 


print "Cred, 3down, Bright]”;n$,hs 


print ”"C2down,blu, 6spaces)press s to 


save the highscore[lSspaces)" 


print "Cdawn,2left, 3spacesJpress any 


other key to continue":For i=1l to 1®: 


get aS:next 
get key a$:if a$<>"s" then 358 


open 1,1,1,"highsore":print#1,n$: 


print#1,hs:close 1:goto 250 
draw B,0-1,151 to o+r1,191:drau 8,0-2, 


192 to o+2,192:draw 2,a,b-1 to a,b+4 


draw 8,0,193 to 0o,194:draw ®8,0-2,195 


to or2,135:drau ®8,0-1,1936 to o+1,196: 


return 


for i=-308 to 508 step -59:color B,2: 
sound 1,i,2:color B,1:next :return 


sound 1,559,2®:sound 2,684, 28:sc=sc+3: 
z=1:if sc=15 then s2=s2+1:sc=9:goto 


330 


s"d:k-40+g*29:gosub 2B9:goto 79 
z=-8:For i=-1 to 5®:color ®,2:sound 1, 


int C rnd (B)*1088),1:color ®,1:next : 


s=-d 


N HONBSSRFOTERW OR. SCH 


k-4B+2*g*29:gosub 2B9:goto 78 
s2=-Bd:sc=-d:s=-d:k=-d:goto 18 


Sie zielbewufßst 
Schritt 
halten, erfolgs- 
bewußt 
investieren un 
gewinnbew 
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Erfolge sind berechenbar, im Computer- 
zeitalter mehr als je zuvor. Machen Sie PC-Welt 
zu Ihrem Informations-Kapital. Jeden Monat 
mit dem kompletten Wissen über PCs 

& Co. PC-Welt vermittelt Ihnen erfolgreich 

den aktuellen Stand allen PC-Know-hows 

— bis ins Detail. Praxisecht und professionell 
— inclusive aller wichtigen Wettbewerber. 

Mit den objektiven und aussagefähigen Tests. 
So gründlich, aufwendig und umfassend, 

wie es nur ein Monatsmagazin kann. PC-Welt 
verhilft zu den richtigen Entscheidungen. 
Darum sollten Sie sich für ein Jahres- 
abonnement der PC-Welt entscheiden — für 
nur 80,— Mark im Jahr*. Dabei sparen Sie pro 
Heft 83 Pf. im Vergleich zum Kiosk-Preis. 

Das Entscheidende wissen. PC-Welt. 


* Inlandspreis (inkl. MwSt. und Vertriebskosten) 


PUBLIKATIONEN 


Ihre starke Verbindung zur Computerwelt 


Postfach 40 04 29, D-8000 München 40 


Wer findet den 


System: C64 
Typ: Spiel 
Sprache: Basic 


Zirka 30 Sekunden benötigt „Su- 
perlabyrinth“ um den Irrgarten zu 
konstruieren. Danach präsentiert 
es die Gänge des Labyrinthes in 
dreidimensionaler Form. 

Mit den Tasten: 

„I’= ein Schritt nach vorne 

„J = nach links drehen 

„L'= nach rechts drehen 

„K'= um 180 Grad drehen 


Spiele Listing 


Ausweg? 


Dieses Spielprogramm 
entwirft ein dreidimen- 
sionales Labyrinth. 
Ziel ist es, mit wenigen 
Schritten den Ausgang 
zu finden. 


geht man dem Ziel entgegen. Mit 
der Taste „?“ erhält man die zwei- 
dimensionale Ansicht des Laby- 
rinthes. Ziel, Ausgangspunkt und 


die bisher begangene Wegstrek- 
ke sind zu erkennen. Will man 
den nächsten Schritt gehen, nach- 
dem der Computer die Vogelper- 
spektive gezeigt hat, muß man 
diesen blind fahren. Fairerweise 
sollte man auf die Mogelfunktion „?" 
verzichten. Bei jedem Start entwik- 
kelt das Programm per Zufallszahl 
andere Spielfelder. Alle Grafiken 
haben die Commodore-Grafik- 
zeichen zum Ursprung und werden 
direkt in den Bildschirm gePOKEt. 


F. Bastıan REEEREBETZEN 


rint chr® (147):print chr$ (5):poke 
55280,0:poks 53281 ,8:gosub 7400: Joto 
so 

rem c64 version by F. bastian 

rem <c> 1986 


mz=mz+l:if mz>2508 then mz=250 

poke vo,7:poke sz,33 

poke hf,mz 

poke sz,32 

return 

for xm=20 to 5 step -1 

poke vo,15 

poke sz,33 

poke hf,xm 

poke sz,32 

return 

poke vo,15 

poke sz,33 

poke hf,5 

poke sz,32 

return 

for mz=1 to 200 step 4:poke vo,7:poke 
sz,33:poke hf,mz:poke sz,32:next mz: 
return 

pg$=-"suplab”:nm$="13”":gosub 562988 
h=12:v=7:hl=h+1: w=36864 : v1=38912 
iernd (-ti) 

dim x1l(4),n2C4) ,yl(4),xr(c4) 

For i=-® to 4:read xl(i),n2Ci),ylci), 
xrCi):next i 

data 8,20,-4,31,8,12,1,27,12,6,5,24, 
15,2,8,22,17,0,10,21 

ex=int C rnd (1)*h)+1:cy=-int (C rnd 
c1)*#v)+1 

CrcX:r=cy:s=d 

for i=® to (v+1)*hl:poke w+i,8:poke 
vi+i,8:next 

print chr$ (147); "ich konstruiere !!!" 


’ 

da=@:n=B: av-v1+c+r*hl: aw=w+c+r*hl: poke 
aw,1l:s=s+tl:if s>=h*v then 998 

print mid$ C"”[rvs,off]”,(Cs and 1)+1, 
1); "UVLleft]”;:gosub 18 

iF c?1 and peek (aw-1)=® then da=da#+?: 
n=n+i 


if ch and peek (aw+1)=® then da=da+1l: 
nen+1 

if r>1 and peek (Caw-h1)-® then da=da+ 
B:n=n+1 

if (r£v and peek (aw+h1)-8) then da= 
da+4:n=n+1 

n=int C rnd (1)*n)+1 


140 QUD Sonderhett 
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on da+1 goto 500,850,800,600, 750,610, 
620,630,700,640,650,660,670,680,680, 
695 
s=-s-1 
e=c+tl:if c>h then c=1:r=r+1:if c>V 
then r*1 
on peek (w+c+r*hl)+1 goto 510,300 
on n goto 800,858 
on goto 750,850 
on goto 750,800 
on goto 750,800,850 
on goto 708,858 
on goto 708,890 
on goto 700,800,850 
on goto 700,759 
on goto 700,750,858 
on goto 700, 750,800 
on n goto 700,750,800,850 
r-r-l:av=avchl:poke av,peek (av) or 1: 
goto 308 
poke av,peek (av) or 1:r*r+l:av=av+hli: 
goto 308 
C=c-l:aveav-1:poke av,peek (av) or 2: 
goto 388 
poke av,psek (av) or 2:c=c+l:av=avtl: 
goto 39008 
iernd (1)>,5:j-rnd C1):k=rnd (1)>,5 
if i then x=int (J*h)+1:y=v+Cv-1)*k 
if i=-® then y=int (j*v)+1:x=h+Ch-1)*k 
if Cox-x)T2+Ccy-y)t2<Cht2e+vt2)/9 then 
E14J%) 
SX=x:Sy=y 
print ”[clr) 
for i=-w to w+Cv+1)*hl:poke i,@:next 
d-int C rnd (1)*4) 
t4=ti:poke (w+x+y*h1),1 
if £-® then gosub 3098:print "Chome]”; 
int (C sqr C(x-cx)T2+rly-cy)T2)*19+.5)/ 
19 
if cx=x and cy=y then 6000 
get q$:if q$=-""” goto 1950 
if q$=-"q” or q$="?" then k=ti:goto 
6188 
if qS<>”"i” and q$<>”j" and q$<>"k” and 
gqs<>”"l” then goto 1958 
if q$="k” then d=d+2 

q$="j” then d=d-1 

qg$=-"1” then d=d+1 

d<® then d=d+4 

d’>3 then d=d-4 

gq$s<>”i” then 1045 
gosub 38 
av=vl+x+y*hl:aw=w+x+y®*hl 
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1201 
1218 


12208 
1268 


12908 
1319 


1340 
1360 


1400 
1410 


1420 


2000 
20208 


2100 


Glas 
2138 


2148 


2208 
22198 


2258 
2260 
2279 


22BO 
2238 
3220 
3805 
3818 
3025 
3826 
3027 


3830 


3935 
3948 


3045 
3058 
3068 
3108 


3105 
3119 


3115 
3128 
32008 
3210 
3226 
3230 


3235 
3240 


3245 
3250 
32608 
3308 


3305 
331® 


3315 
3320 
3400 
3410 
3426 


EN 


on d goto 1269,1310, 1368 

if y>1l and C peek (av-h1) and 1) then 
W="y-1:poke aw-hi1,1:goto 1045 

goto 1428 

if x<h and ( peek (av) and 2) then x= 
x+tl:poke aw+l,1:goto 1945 

goto 1408 

if y<v and (C peek (av) and 1) then y= 
y+tl:poke aw+thl,i1:goto 10845 

goto 1498 

if x>1 and ( peek (av-1) and 2) then 
x=x-l:poke aw-1,1:goto 1045 
dn=23:gosub 7008 

print tab(16);”[7cbm @,7left,down,rvs] 
geht nichtLup)":gosub 20:for i=1 to 
1808:next 

print tab(169; "Cup,ilspaces, 7left, 
down, 7spaces,up]”:goto 1049 

print are lee 
for i=1 to h:print 
print "[2down]” 
For j=1 to v:print ”[cbm m,up,left, 
cbm m,up,left,cbm m,2down]”; :For i=1 
to h 

k=-peek (vi1+i+j*h1) 

print mid$ C”C2chbm @,shift @,2spaces, 
cbm m,3cbm @,3spaces]”,1+3*k,3); 

if k<2 then print ”[Lup,left,cbm m,up, 
left,cbm m,2down]”; 

print ”"Lup,left]”; 

if peek (w+i+j*hl)=1 then print ” 
Giert3, 7; 

if i=-s<x and j=sy then print ”[left, 
rvs] [off]”; 

if i=cx and j*cy then print "[left, 
chbm +3”; 

if i=-x and j=y then print ”"[left]”; 
midS C”t>v<”,d+1,1); 

print ”Cright,down]”; 

next :print ”[2down)”:next :return 
s=-d:print ”[clr)] 
av-vil+x+y*hl 

on d goto 3290, 3490, 3690 
if sy*-y-s and sx=x then 
if cy=y-s and cx=x then 
k=-peek (av-(s+1)*hl1):if 
goto 3188 

if peek (av-s*hl) and 2 
4B888:goto 3840 

gosub 4208 

if peek (av-1-s*h1) and 
4508:goto 3050 

gosub 4708 

s=s+l:if s>4 goto 3988 
goto 3025 

if peek (av-s*h1) and 2 
4300:goto 311® 

gosub 4808 

if peek (av-1-s*h1) and 
4408:goto 3120 

gosub 4900 

return 

if cy=y and cx=x+s then gosub 50098 
if sy=y and sx=x+s then gosub 5108 
k=-paek (Cav+s):if k=-® or k=1 goto 33088 
if peek (av+s)"=2 then gosub 4288:goto 
3240 

gosub 42028 

if peek (av+s-h1) and 1 then gosub 
4S508:goto 32508 

gosub 4708 

s"-s+tl:if s>4 goto 3908 

goto 3208 

if pseek (av+s)=® then gosub 4BBB:goto 
3318 

gosub 4300 

if psek (av+s-h1) and 1 then gosub 
4408:goto 3320 

gosub 4998 

return 

iE cy*y+s and cx=x then gosub 5298 
if sy=-y+s and sx=x then gosub 5188 
k=peek (avts*h1l):if k=® or k=2 then 
goto 3508 


"C3chm @Q)";:next : 


gosub 5188 
gesub 5B8B 
k=9 or K-2 
then gosub 


2 then gosub 


then gosub 


2 then gosub 
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34398 


3435 
344 


3445 
3450 
3460 
35008 


3505 
3518 


3515 
3520 
3698 
3618 
3625 


3630 


3635 
3640 


3645 
3659 
3668 
3798 


3705 
3718 


3715 
3720 
3988 
4200 
4815 
4222 
4045 
4978 
49071 
4972 
4975 
4035 
42356 
4098 
4033 
42008 
ee 
4220 


4230 
4235 


4240 
4249 
4258 
4300 
4305 


4306 
4307 


4310 
4328 


4328 
4329 


4338 
4370 


4388 


if psek (av-1+s*h1l) and 2 then gosub 
4088:goto 3440 

gosub 4290 

if peek (av+s*hi1)=1 then gosub 4790: 
goto 3458 

gosub 4500 

s=-s+l:if s>4 goto 3990 

goto 3498 

if peek (Cav-1+s*h1) and 2 then gosub 
438008:goto 3518 

gosub 4800 

if peek (av+s*h1)=-® then gosub 4900: 
goto 3520 

gosub 44908 

return 

if cx=x-s and cy=y then gosub 5008 

if sx=-x-s and sy=-y then gosub 51908 
k=-peek (av-(s+1)):iF k=-d or k=1 then 
goto 3708 

if peek (av-s-h1) and 1 then gosub 
4080:goto 3649 

gosub 4208 

if peek (av-s) and 1 then gosub 4500: 
goto 3658 

gosub 4708 

s=-s+tl:if s>4 then 3908 

goto 3608 

if peek (Cav-s-h1) and 1 then gosub 
4308:goto 3710 

gosub 48088 

if peek Cav-s) and 1 then gosub 4499: 
goto 3728 

gosub 4998 

return 

dn=11:gosub 79888:print tab(1S)”"NN 
Edown, ZleftJNMChomel”:return 
dn=yl(s):gosub 7008 

if s=-® then print tab(xr(s));”"[chm E]” 
if s>® and s<4 then for i=1 to 4-s: 
print tab(xr(s)+5-s)”[chm g]J":next 

if s>® then print tab(xr(s)) mids (” 
C4cbm @,cbm g]”,s? 

if s=4 then print tab(xr(s))”[2chm g, 
down, 2left,2chm g]” 

qs=-"":if s>® then q$S=midS C"[3right, 
cbm g3”,s)? 

iF s£4 then for i=® to n2(s)+1:print 
tab(xr(s))”[chm gJ”"gq$:next 

if s>® then print tab(xr(s)) mid$ (” 
E4cbm t,cbm g]”,s) 

if s>®8 and s<{4 then for i=l to HU-s: 
print tab(xr(s)+5-s)”[Ccbm gJ”:next 

if s-® then print tab(xr(s))”Ccbm t)” 
print ”[Chome] 

return 

dn=yl(s):gosub 7088 

if s=®8 then print tab(xr(s))"N”:goto 
4238 

for i=1 to S-s:print tab(xr(s)+S5-s- 
i)”"N”:next 

dn=n2(s)+2:gosub 7108 

if s=-8 then print tab(xr(s))”M":goto 
424g 

For i=® to 4-s:print tab(xr(s)+i)"M”: 
next 

print "Chome] 

return 

J3*3-s:if s=® then j-® 

print ”Chome)”; 

if s>® goto 4328 R 
print tab(28);:print "[Cdown)”;:Ffor i= \ 
1 to 18:print "[cbm tJ”;:next :print "” | 
Ccbm t]” ; 
dn=n2(B8):gosub 7108 N 
print tab(28);:Ffor i=1 to 19:print ” } 
Ccbm @]"”;:next :goto 4398 
dn=-yl(s):gosub 7188 

for i=-1 to 5-s:print tab(J+txr(s)+2)” 
[Ccbm gJ”:next 

print tab(28);:For i=-19 to jJ+txr(s): 
print "[cbm t3”;:next :print ”[cbm gJ” 
if s<4 then for i=1 to n2(s):print 
tab( J+xr(s)+2)”Ccbm gJ”:next 

print tab(20);:for i=-15 to J+xr(s):; 


BNDTR BRITM EELTERRN 


Sonderheft Qyp 141 


En ET Eee Spiele Listing 


Aue AN A 


4385 


4398 
4393 
4400 
4406 
4407 


441® 
4420 


4430 
4431 


4432 


44708 


4488 


4485 


4498 
4499 
4500 
4515 
4528 


HoHS 


45565 


4578 


4572 


4575 


4595 


4596 
4597 
4593 
4708 
4745 


4720 


4730 
4735 


4740 


4743 
4750 
4300 
4B15 
4828 
4825 


4830 
4835 


4B4o 
4B58 


4851 
4BSS5 
4900 
4902 
4910 
4915 
4928 
4925 


4938 
4935 


print ”"Ccbm @J”;:next :print "[cbm g]” 
for i=-1 to 5-s:print tabl j+txr(s)+2)"” 
Ccbm g]"”:next 

print "Chome] 

return 

print ”"Chome]”; 

if s>® goto 4438 

print "Cdown]”;:for i=1 to 11+x1(9): 
print "[Ccbm €£3”;:next :print ”[chm t)” 
dn=n2(8):gosub 7188 s 

for i=1 to 12+x1(8):print ”[cbm @)J”;: 
next :goto 4398 

dn=-yl(s):gosub 71908 

for i=-1 to 5-s:print tab(x1(s))” 

Ccbm m]J":next 

print tab(x1l(s)); :print ”[cbm mJ”;:for 
i=xl(s) to 17:print ”Ccbm t]”;:next 
print "Ccbm t]” 

if s€4 then for i=1 to n2(s):print 
tab(x1l(s))”Ccbm m]”:next 

print tab(xl(s));:print ”[chbm m)";:for 
i=x1(s) to 17:print ”[cbm @]”; :next 
print ”[cbm @]” 

For i=1 to 5-s:print tab(x1(s))” 

Cchm m]”:next 

print ”[Chome] 

return 

dn=yl(s):gosub 7998 

if s=-d then print tab(xl(s));”[Ccbm ®@1” 
if s?® and s<4 then for i=1 to 4-s: 
print tab(x1l(s))”[cbm m]”:next 

if s>® then print tab(x1l(s)) lefts c” 
Echbm m,“4cbm 81”,6-s) 

if s=-4 then print tab(x1(s))”[L2chm m, 
@left,down,2chm mJ” 

gs="":if s>® then q$-mids (”[3right, 
cbm m)”,s) 

if s<4 then for i=® to n2(s)+1:print 
tab(xl(s))”[cbm m]”g$:next 

if s>® then print tab(x1(s)) lefts ("” 
Ecbm m,4cbm t]”,6-s) 

if s>® and s<4 then for i=1 to 4-s: 
print tab(x1(s))”[cbm mJ”:next 

if s=® then print tab(x1l(s))”Ccbm t1” 
print "Chome] 

return 

dn=ylls):gosub 79888 

if s=-® then print tab(x1(s)); "N":goto 
4730 

For i=-1 to 5-s:print tab(xl(s)+i)"n”: 
next 

dn=n2(s)+2:gosub 7108 

if s=® then print tab(x1(s))”N”":goto 
4749 

for i=-® to 4-s:print tab(x1(s)+5-s- 
i)”’N”:next 

print "Chome]” 

return 

gosub 42088 

dn=yl(s)+5-s:gosub 7008 

print tab(20), 

if s<4 then For i=1 to xrt(s)-21:print 
"Ccbm t]”;:next 

print "Plleft,down]”; 

if s<4 then For i=1 to n2(Cs):print ” 
[cbm m,doun, left]"; :next 

print "Cshift @,2left)"; 

if s<t4 then for i"l to xr(s)-29-1: 
print "[cbm @,2left]"”; :next 

print "Chome)] 

return 

if s=® then J=S:goto 4919 

J=d 

gosub 47928 

An=yl(s)+5-s:gosub 7008 

print tab(19), 

if s<4 then For i=1 to 18-x1(s)-5+s+J: 
print ”[cbm t,2left]";:next 

print "OLleft,down]"”; 

if s<4 then for i=1l to n2(s):print ” 
[cbm g,doun, left]”:.:next 


2818 


297 
142 
493 
1132 
3382 


1191 
3117 


1649 
2738 


4853 


3051 


4471 


27308 


237 
142 
1632 
1852 
3363 


26863 
2616 
2642 
3949 
2653 
3363 


1854 
237 
142 

1632 

2584 


Jess 


1739 
2377 


3671 


314 
142 
577 
2506 
Bo2 
2991 


815 
2841 


1182 
3682 


297 
142 
1668 
367 
5937 
2506 
8708 
3777 


811 
2833 


Super ist, wer das Labyrinth in 20 Schritten durchquert 
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4949 
4959 


49351 
4955 
Sp00 
5010 
5020 
5039 


5040 


5058 
5108 
s11® 
5128 


5138 
Sı“41 
sı42 


5158 
6992 


69085 
6219 


6188 
6110 
6115 


6128 
6138 


6149 
6208 


6205 
6210 


62208 
7080 
7188 


7118 
7408 
7418 
7420 
7425 
7438 


620008 
62019 
62020 
62030 
62031 


62032 
62034 


62035 


62036 
62038 


62049 
62049 


62050 
62868 
62078 


print "L”; 

if s<4 then For i=1 to 18-x1(s)-S+s+j; 
print "C[cbm @J"; :next 

print "Chome] 

return 

if s-® or s-4 then return 


dn=-18:gosub 7000 

if s=-3 then ‚print tab(20); "C3up]. 

if s=-2 then print tab(19); "Crvs,up, 
shift £,off,shift £,2left,doun,cbm +JN 
Cup,cbm g] 

if s=1 then print tab(18); "Cdown] 
[3cbm @,4left, down]Nl2spacesIN[chm g, 
Sleft,down,3cbm +] Ccbm g,5left,down, 
3cbm +JN 

return 

if s=-® or s=4 then return 

dn=-20:gosub 7000 

if s=-3 then print tab(19),”[Sup,rvs, 
Echm i,up,2left,off,2chm i) 

if s=-2 then print tab(16); ”"L3up,rvs, 
shift £,6spaces,chm *] 

if s=-1 then print tab(13);"Crvs, 

shift £,12spaces,chbm *]J 

if s=1 then print tab(12);”Crvs, 

shift £,14spaces,cbm *] 

return 

k=ti:for i=1 to 7:poke 245,22:print 
print tab(15)”super !!ıı"r 

gosub 48 

poke 245,22:print :print tab(15)” 
£12spaces]"”:next i:manni=1 

gosub 2888 

print tab(18); "Luplein anderes? ”; 
sw=-1:tm=-® 

get t$:iF t$<>”” then 6208 

if ti>tm then print mid$ C”? ”,sw,1);” 
[left]”; :tm=ti+15: sw=3-sw 

goto 6128 

if t5="j" or t$=cr$ then print "ja”: 
run 

if t$="n” and manni=1 then end 

if t$="n” then print chr$ (147)”Fahren 
sie nun einen schritt blind !”:goto 

1950 

goto 6128 

print ”Chome]”; 

if dn>® then for z=1 to dn:print ” 

Edown]”; :next 

return 

rem sid initialisieren 

sm=-54272: hf=sm+t1: vo=sm+24: sz=sm+4 

for i=-sm to sm+24:pokes i,®:next 

poke sm+5,8:poke sm+5,8B 

return 

print "[clr,down]";tab(9);"programmnr. 
";nm$; "C2spaces])”;pg$ 

print chr$ (147);” copyright (c) 1986 

C2spaces]by F, bastian” 

for i=1 to 18:print "[4shift *]";:;next 


print "Cdownlsuchen sie einen ausgang 
aus dem” 

print :print "[l2spaces,rvs] 
superlabyrinth”:print 

print "[downlihre steuerungen:” 
print "Cdoun, 2spaces]i = ein schritt 
vorwaerts” 

print ”"[down, 2spaces]j = nach links 
drehen” 

print ”[down,2spaces]l = nach rechts 
drehen” 

print "[down,2spacesJk = um 188 grad 
drehen” 

prınt ”"[down, 2spaces]? = hilfe |” 
print ”"[3down, rvsJreturnloff] 
druscken” 

get t$:if t5="" then 62059 
ak=-19B:cr$=chr$ (13) 

print ”[clr]”:goto 19808 


458 
3377 


297 
142 
1147 
1355 
1671 
2378 


5831 


142 
1147 
1235 
2935 
2397 
e175 
24293 


142 
3928 


437 
3255 


565 


2623 
1117 


1877 
5216 


583 
2363 


2213 
6403 


583 
493 
2305 
142 
3576 
2316 


1393 
4c 


3463 
4185 
1389 
3222 
2318 


1883 
2794 


1995 


2438 
1879 


1454 
2109 


1681 
1965 
676 


EEE VIVEN 


| 


Spiele Listing 


Mit High- 


Speed über’s Spielfeld 


System: C16/116/Plus4 
Typ: Action-Spiel 
Sprache: Basic 


„Speedy" ist ein schnelles Hinder- 
nisrennen. Über fünf Runden muß 
der Spieler extreme Schwierigkei- 
ten meistern. 

Nach Start mit RUN fragt der Com- 
puter, ob man einen gespeicher- 
ten High-Score laden will. Danach 
entscheidet man: Joysück oder Ta- 
statur. Im ersten Level muß der 
Spieler, durch eine Schlange von 
Kreuzen dargestellt, den entge- 
genkommenden Hindemissen 
ausweichen, die ihm auf dem gan- 
zen Bildschirm entgegenfliegen. 


— al 'sab 


Im zweiten Level muß er aufeiner 
engen Straße versuchen, den Hin- 
dernissen auszuweichen, ohne im 
Straßengraben zu landen Das 
nächste Level, eine enge Kurven- 
strecke, ist ohne Hindernisse. Hat 
man den vierten Level, überstan- 
den, wird man mit einer Bonmusrun- 
de belohnt, in der man so viele 


In keinem Level darf das Tanken 
vergessen werden. Gefährlich ist 
das in der Bonusrunde, wenn der 
Spieler die vorbeisausenden 
Tankstellen nicht beachtet un 
ohne Sprit in den Pampas sitzt Ist 
alles geschafft, erscheinen Punk- 
teaufstellung, gefahrene Killome- 
ter und verbliebene Fahrzeuge. 
Auf Knopfdruck geht's von vome 
los, allerdings mit verkürzten Re- 
aktionszeiten und somit schwer- 
ger. Nach jedem Level erhält man 
zwei weitere Fahrzeuge. 
Unterroutinen des Programmes: 
160 Initialisierung 
290 Ebene I, Level I 
400 Steuerung 

(Joystick/Tastatur) 
530 Abfrage der Tankreserve 
650 Spieler getroffen/Ende? 


„Speedy“ überzeugt 
durch Geschwindig- 
keit und Action. 


Schnelle Reaktionen 
und gute Nerven 
sind gefordert. 


Fuel 
vermindern 


==) (4) (Cm) 


Herzen, Fuels zeichnen 


Highscore? (ja) 


$ zen 


Hindernisse u. Fuels zeichnen 


Spieler fährt gegen 
etwas? 


Level ge- 
schafft? 


Spieler darst 


Spieler fährt gegen etw. 


Level ge- Fuelvariable 
schafft? vergrößern 


750 Ebene II, Level II 

930 Ebene III, Level III 
1160 Ebene IV, Level IV 
1400 Ebene V, Level V 

1560 Ziel, Level erhöhen 
1730 Spielende erreicht 
1860 Highscore speichern 
1960 Copyright-Anfangsbild 
2070 Eingabegerät-Abfrage 
2170 Highscore laden 
M. Gos BREI 


Variablendefinition 


ri Joystick- 


(Abepeichern?)->()-+[Speicherrouine] 


Anfangsbildschirm 


Auswahl zwischen Tastatur u. Joystick 
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rem 
rem s pp ss 2deg 
rem 

rem von 

rem 

rem martin goes 
rem philosophenweg 22 
rem 7488 tuebingen 
rem 

rem 


_— u u u; m 


color 8,1 

gosub 1969: 1-5:so-8:0p-® 
i=8:s=-d:color 1,2:f-200:y-1924 
scenclr :a=-3892+16B+op:color 8,1 


I 
I erste ebene | 
m 


for i=1 to 12008:char 1,8+int (C rnd 
(8)*49), 24, "CyellOldown]”:gosub 498 
if int C rnd (B)*9)-=2 then t=-4232+int 
C rnd (O)*49O):poke t-y,1BB:poke t,134 
poke 8,86:poke a-y,2:if peek (a+t49)<> 
32 or f<=® then gosub 538 

£E=-f-1:next :goto 758 


rem 0 a a a0 ab A 


rem “ joystick/tastatur * 
rem 00 


on jt goto 410,420 

get a$:if a$-""” then return :else 438 
if joy (C1)=® then return :else if joy 
(1)<>B® then 440 

if a$="[right]” then m=1:goto 450:elss 
if aS=-"[left])” then m=-1:goto 459:else 
m-d:goto 450 

if Joy (1)=7 then m=-1:else if joy 
(1)=-3 then m=-l:else m-® 

a=-atm: return 


Kan DET ES TEE ET EI I II 
rem * reaktion / kein Fusl * 
rem EEE 


E 


if £f=<B® then char 1,26,24,”"[rvs,red] 
low on fuel [off]J”:goto 658 

if pesk (a+4ß)-=192 then a=a-m:goto 658 

if peek Ca+4ß)=134 then f=f+58:char 1, 

0,24,”f:”:print F”[up)”:sound 1,500, 

19:return 

if peek (a+49)-65 or peek (a+49)-81 or 

peek (Ca+48)-113 then 658 

return 


rem 100 


rem “ lebensabzug (ende ?) * 
rem EZ ZZ ZZ US ZZ 2 ZU ZZ 2722 ZU 2 2 22 2 2 2 2 2 


for o=9388 to 188 step -25:sound 3,0,3: 
next 

l=-1-1:if 1-8 then 1738:else f=2088:char 
1,8,24,”1:”":print 1”Lup)”:return 
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rem = u I 
rem ” I zweite ebene | 
rem ” ge 


f-280:1=-1+2:b=-15: for i=1 to 2S:char 1, 
b,24,”[wht,shift -,cbm +,7spaces, 

cbm +,shift -,down]”:next 

c=-25: a=-3092+160+0p 

for i=1008 to 28@0@:char 1,b,24,”"[wht, 
shift -,cbm +,7spaces,cbm +,shift -, 
down]” 

if int C rnd (9)*4)+1=2 then char 1,b+ 
e+int C rnd (8)*7),23, "CgrnJALwht]” 
if int C rnd (8)*14)+1=2 then char 1, 
b+2+int C rnd (8)*7),23,”Ccbm 1,rvs, 
flashon]f[flashoff ‚off, wht]J” 

poke a,86 

gosub 49898 

if pesk (a+49)<>32 or F<-8 then gosub 
538 

£f=-f-1:next :goto 930 


rem 2 8) I 
rem ” I dritte ebene | 
rem ” a 


b=15:a-3092+168+op:color 8,9:color 1, 
7,8 

gosub S5®:goto 369 

For i=1 to 25:char 1,b,2&4,"[shift -, 
cbm +,cbm 7,rvs,7spaces,off,chbm +, 
shift -,down]”:next :return 
l-l+2:f-200:for u=2000 to 3008 

v-int C rnd (B)®2)+1:if v-1 then b=b+ 
l:else if v-2 then b=b-1:else print v 
if b<1 then b=b+1:else if b>26 then b= 
b-1 

char 1,b,24,”Cshift -,cbm +,rvs, 
7spaces,off,cbm +,shift -,down]”:poke 
a,2i4t:if int C rnd (8)*17)=1 then 
gosub 19878 

gosub 499 

if peek (at4ß)<>168 or fd then gasub 
1838 

£f=-f-1:next :goto 1168 

if £=® then 104B8:else if peak (Ca+49)- 
134 then gosub 538: return 

gosub 1858:1=-1l-1:if 1-8 then end :else 
char 1,0,24,”1l:”:print l”’Lup]”:gosub 
958:goto 1968 

for 0-38 to 108 step -25:sound 3,0,3: 
next :return 

a=3072+160+op+b+3: return 

char 1,b+int ( rnd (B)*8)+2,24,”Cup, 
cbm 1,rvs,flashon]f[loff,flashoff ‚down, 
cbm 7]”:return 


I 
vierte ebene | 


b=15:scnclr :color 8,3,5:1=1+2:for i= 
1 to 25:char 1,b,24,”Cchbm 7,shift -, 
cbm +,7spaces,cbm +,shift -,down)”: 
next 

c-25:f=290 

a=-3092+160+0p:b=15:for i-3008 to 3508: 
char 1,b,24,”[cbm 7,shift -,cbm +, 
7spaces,cbm +,shift -,down]” 

if int C rnd (®8)*298)+1-2 then 1200: 
else 1218 

char 1,b+2,23,"[wht,7cbm e,cbm 73”: 


1218 


1220 
1230 
1240 


1258 
1268 
1278 


1289 
1238 


1308 
1318 
1348 
1350 
1368 


13808 


1399 
1490 


1410 
1429 
1430 


1440 
1450 


14608 
1478 


1590 
1518 
1520 
1538 


1559 
1560 
1578 


1588 


1598 
1600 
1618 


RER ee 


1620 
1630 
1649 
1650 
15668 
1678 
1688 


156398 
17908 


1710 : 


1720 
1730 


NE REN TERN SRIZTERN 


1320 : 
1330 : 


1378 


1540 : 


Spiele Listing Zum uuneunn. uam. use 


char 1,b+2+int C rnd (8)=7),23,” ": 
gosub 1268 

if int C rnd (B)*14)+1=2 then char 1, 
b+2e+int C rnd (8)*7),23,”Cchm 1,rvs, 
flashon]lf[flashoff,off,wht]” 

poke a,B6:poke a-12824,2 

gosub 408 

if psek (a+4B)<>32 or F<-D® then gosub 
538 

£f=-f-1:next :goto 1498 

poks a,B6:poke a-1824,2 

if pssk (a+4B)<>32 or f<=® then gosub 


char 1,b,24,"[cbm 7,shift -,cbm +, 
7spaces,cbm +,shift -,down]”:poke a, 
86:poke a-1824,2:gosub 498 

if pesk (a+48)<>32 or f<-=B then gosub 
5308 

£=f-1:next :return 


FT 
I fuenfte ebene I 
et 


f-200: a=-3892+1608+0op:vol B:1-1+2:color 

®,1:char 1,15,21, "CSdown,rvs,wht] 
bonus round Loff)"” 

Eor x=1 to 588:char 1,8+int C rnd (B)* 
49),24, "CyellSC[Cdown)”:gosub 498 

if int C rnd (8)*9)-BD then t-4B832+int 
C rnd (B)*40):poke t-y,18BB:poke t,134 
poke a,86:poke a-y,2:if peek (a+t4D)<> 
32 or F<=® then gosub 1458 

£=-f-1:next :goto 1518 

if psek (a+4ß)-B3 then s=-s+19:sound 1, 
998,18:else gosub 530 

return 


1480 : 
1490 : 


rem ” U 
rem” I ziel srreicht !!l!! 
rem ” J 


scnelr :for g=i to 15:get a$ 

eolor ®,1:print "[rvs,red, 6Espaces]sie 
haben das ziel erreicht[7spaces)” 
print :print ”C3down,3right,grn] 
score: ” 

print ”"[4spacss,5Schm t]” 

print ”"C[Cpur]J”i”-meter ” 

print "[yel]”s”-bonus round”:print ” 
Cchbm 1]”sc”-score der vorrunde” 
sc=-sc+t(s+ti):print ”"Cblu, 2down, Zright] 
gesamt-score: ”sc 

print ”[rvs,2down,wht] die naechste 
runde wird etwas schwerer ” 

print ”"[C2down,right,cbm 8,7spaces)] 
druscken sie '’space’[9spacss]” 

get key a$:if a${!>” ” then 165B:else 
op"op+128:goto 188 


San BIETET TEST 


rem “ spielende * 
rem 00 a aa 


color ®,1:scnclr :sco=sc+s+i:print ” 
Ervs,pur  ,‚Sspacss]das spiel ist zu ende 
[12dspaces)” 


Mit Überschallgeschwindigkeit durch den Computer 


print ”C3down, Zright,, wht]Jscore: "sc:for 
t=-1 to 18:get a$:next 

if sc?hs then hs=sc: input ”[cyn,2down] 
wie heissen sie”;n$ 

if n$="" then n$="---"” 

print ”"[cbm 1,2downlhighscore: ”"n$,hs 
print ”[cbm 4,2down] highscore saven 
?Cj/n)”:get key a$:if a$-"j" then 
1860:else 1880 


rem --.— .—.—— ee 


rem * highscore saven * 
rem ee 


open 1,1,1,”highscore”:print#1,n$: 
print#1,hs:close 1 


print :print ”"[down,right,chbm 3, 
7spaces]druecken sie eine taste 
[65spaces)”:get key a$:goto 178 


rem u... 


rem = spielanfang “ 
rem -nn nun 


vol 8:print "[clr,rvs,red,ilspaces]s 86B2 
C2spaces]p[2spacesle[l?spaces]e 
C2spaces]Jd[2spaces]Jy[13spacss)” 

data b,y ‚m,a,r,t,i,n ‚9,0,8,5 3032 
print ”"[C3down,yel]” 7883 
restore :for e*=1 to 12:read u$:print 4339 
u$S;:sound 3,980,4:for t=1 to 178:next 

:next 


ae DE ZZ ZU ZU ZU ZZ ZU ZU ZZ zZ 2 ZZ zz ZU 2 2 Zr 22 23 

.. 

rem * spiel mit Joystick o. tastatur 
” 

rem WE 
.. 


print :print :print :print ”[cbm 6] 
druecken sie 'k’ Fuer keyboard” 
print "[13spaces)’j'’ Fuer Joystick” 
get key a$:if a$S-"k” then jt-l:else 
J3t-2 


rem ELISE I 25 


rem “ highscore einladen * 
rem III ES En 2 


print ”[2down,cbm 1J highscore 
einladen ?Cj/n)”:get key a$:if a$<> 
”1” then return 

open 1,1,8, "highscore”:input#1,n$: 
input#1,hs 

print :print ”[down,right,cbm 3, 
7spaces]ldruecken sie eine taste 
[5spaces)”:get key a$:return 
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Sternbilder im 


System: C128 


Typ: Lernspiel 
Sprache: Basic 


In klaren Nächten sind sie beson- 
ders gut zu erkennen; Sternbilder. 
Unzählige Sagen und Mythen 
über die Figuren am Himmelszelt 
sind bekannt. So wurde in Grie- 
chenland gerne die Geschichte 
Cassiopeias, Königin Äthiopiens, 
erzählt. Sie behauptete, schöner 
zu sein als die Göttin der Schön- 
heit, und wurde deshalb in den 
Sternenhimmel verbannt. Heutzu- 
tage erfreuen sich die Geschich- 
ten immer noch großer Populari- 


Computer 


Sternbilder vom Him- 
mel auf den Bildschirm 
holen: Das macht „Star- 

pic“. Dabei stehen 30 

Konstellationen zur 
Auswahl. 


tät; doch nur wenige wissen die 
einzelnen Sternanhäufungen rich- 
tig einzuordnen. „Starpic“ verfügt 
über Koordinaten von 30 Sternbil- 
dern und zeichnet diese am Bild- 
schirm. Ein Konstellationenquiz 
bringt spielend Lernerfolg. 


Sternbilder: 

Leier — Widder 
Zwillinge — Stier 
Kepheus — Schütze 


Drache — Wassermann 
Waage — Kleiner Wagen 
Skorpion — Herkules 
Delphin — Großer Hund 
Fuhrmann —Löwe 

Fische — Orion 

Pegasus — Schwan 
Jungfrau — Großer Wagen 
Adler — Cassiopeia 
Krebs — Steinbock 

Pfeil — Nördliche Krone 
Perseus— Hase 

Mit Taste „4' beendet man das 
Programm. 


softteaın EEE 


print chr$ (14) 

rem Starpic 

hl=2331: pl=2325: fa=2322 

fc=253:be=252 

graphic 8,1:color ®,1:print "LuwhtI” 

dim x(25),4(25),x$5(89) 

rem "Sternenkonstellationen erraten 

rem 

print ”"[clr]” 

gasub 2551 

graphic B,1:color 8,1:print ”"[LwhtJ” 

print "Dieses Programm soll Ihnen 
helfen, die” 

print "Sternenbilder am Himmel zu 
erkennen,” 

gosub 190928 

print 

print "Geben Sie nur den Namen” 

print "des Sternbildes ein: z.B, 
Stier.” 

print "Bitte waehlen Sie 1, 2, 3 oder 
4,» 

print "1 - Eine bestimmte 
Konstellation sehen.” 

print "2 - Ein Zufallskonstellationen 
ZEQuNzr gt 

print ”3 - Veberblick” 

print ”4 - Ende”:print 

poke 208,0 

print ”Ihre Wahl: ";:get z$:if zy="" 
or val (z$)<] then print :print "C2up] 
":;goto 340 

z-val (z$) 

if z>4 then print "Cclr]”:goto 169 

if z=4 then 250008 

if z=-1 then 2188 

print :print "Mit Hinweisen (J/N)? air) 
poke 208,0 

get hi$:if hi$<>”)" and hi$<>”n" then 
goto 398 

print "L[Ccelr]” 

if z=2 then 2388 

if z=3 then char ‚1,1,"”um in das menue 
zurueckzukommen[15spaceslbitte ' *« ' 
druscken.” 

print chr$ (14) 

if z=-3 then for i=1 to 1800:next i 
rem "read Sternenanzahl 

read n 
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468 


480 
5998 
520 
S4o 
558 


5608 
SB 
698 
6208 
23217] 
660 
6808 
7008 


720 


749 
760 
7808 
8008 
820 
840 
860 
BB 
902 
9208 
9308 
940 
960 
988 


981 
382 
983 
984 
1008 
19020 
1948 
1069 
1079 


10808 
1108 
1118 
1138 


nn 


if n=® then print ”Keine 
Konstellationen mehr erreichbar .”: 
restore :for i=1 to 399:next :gato 1560 

for i=1l to n:read x(i),yCi):next i 

rem y-trapert invertieren 

For i=1 to n:yCi)=-yCi):next i 

rem high x und high y Finden 

graphic 1,1:color 1,2:print ”"Celr]”: 

rem "Hintergrund schwarz 

xI3=xC1):yI9=y1:x1=xC1):yl=-ycı) 

Eor k-l ton 

if x(ck)>x9 then x9=xtk) 

if xCk)tx1 then. x1=xck) 

if yCk)>yS then y9=yck) 

if yCk)<y1 then y1-yck) 

next k 

rem werte uebersetzen um negative zahl 

en zu verhindern 

for i=-1 to n:xCi)=xli)-x1:y4Ci)=yCi)- 

yl:next i 

Tem ausmass ohne verzerrung errechnen 

s1-39/(x9-x1) 

s2=38/(y3-y1) 

if s1>8.75*s2 then s1-0.75*s2:goto 848 

s2=s1/0.75 

rem gr 

rem punkte zeichnen 

for i-l ton 

xCi)=-xli)*si:yli)=-yli)*s2 

rem 

For il=18 to 11:for i2=30 to 31 

draw 1,xCi)*299/39+i1,yCi)*164/39+i2 

next i2,il,i 

if z=-3 then read b$:read h$:char ‚8,0, 

bS:ifF his="j" then char ‚0,24,h8$ 

poke 208,0 

if z=-3 then get a$:if a$="" then 982 

if z=3 and a$="«-” then goto 168 

if z=3 then goto 448 

if z=1 then gosub 9009:goto 2180 

if z<>2 then read h$ 

print :print :print 

rem speed=-® 

char ‚8,9,”benennen sie diese 
konstellation:” 

if hi$<>”j” then 1130 

char ‚1,24,h$ 

print chr$ (14); 

gosub 11808:y$=xx$:gosub 20089: c5=y& 


1148 print :print 371 1640 data 7,10,35, 33, 8,45,43,65,90,105,73, 6421 
1158 yS=b$:gosub 28099: bis=-yS 19385 149,77, 143, 41, "Schuetze” 
1160 if b1$=c$ then 1298 1337 1560 data »die mitte der galaxis ist dort” 2807 
1188 goto 1268 615 1565 data 18,0,52,8,4,13,2,19,39,22,4, 2cH 6818 
1200 char ‚1,24, "richtig ![3spacesJweiter 3581 43,27, 55, 33, 41, 41, 5Q, 43, 63, 45 
so !!![13spaces]” 1667 data 10, 47, SB, 50, BD, 54, ® ‚54, 3,57,882, 6255 
1218 print chrS (14) a 63,80, 71, 87, "Jassermann” 
1220 For i=1 to 1808:next i 181®@ \ 1670 data »ist zwischen fisch und 3435 
1230 gosub 9098 573 | steinbock” 
1248 on z goto 2180, 23898, 440 1438 1680 data 7,0,2, 8, 5B,61,0,5690,56,118B, 64,170, 5223 
1260 char ‚1,23,"leider falsch ”:char Be br 5244 990,209, iss: "kleiner wagen? 
E4,”"die konstellation war: "”+bS$ 1788 data "beinhaltet den polarstern"” 246B 
1278 print chr$ (14); 383 1720 data 6,0,0,25,105,21,182,31, 179,64, 5238 
1288 for i=-1 to 1388:next i 1282 194, 103, 47, »herkules” 
12988 print "[celr]” chr$ (14):char ie, yug> 1740 data "bei ihr ist kugelsternhaufen 3223 
"Fuer das menue ’ « ° druecken.” m13” 
1292 char ‚1,24,”eine andere taste fuehrt 3311 1760 data 7,0,0,59, 8, 43,141,61,181,86,1380, 861408 
weiter,” 2435 116, 28, cH; "grosser hund” 
1293 print chr$ (14); 5283 1788 data "sie hat als hellsten stern den 3628 
1295 poke 208,8 =35 sirius” 
1297 get a$:if a$="”" then 1297 ı542 1800 data 9,0,0,85,24,73,77, 259,33,250,78, 7418 
1298 if asc (a$)-35 then print ”[clr]”:goto 1344 211,98 ‚203, 135, 243, 173, 270, 167, ”]oewe” 
168 1828 data "stern regulus liegt Aue der 3714 
1299 print "CclrJ” 316 ekliptik” 
1388 on z goto 2188, 23890,449 1438 1840 data 10,0,0,31, 2,41,30,41,48,41,50®, 27, 6885 
13805 data 6,0,22,7, 12, 73 27 ‚8,20,20,0,20,108, 3735 FE B2, 58, 90, 14, 171, 30, 146, "orion" 
"leier” 1860 data "beruehmt durch ein nebelfeld” 2778 
1318 data "ihr hellster stern ist die wega” 2851 1880 data 6,0,0, 65, 69,175,55,127,122,60, 5238 
1328 data 6,46,209, 17, 177,04:100,149, 1174 6373 176, 158, 175, ”"schwan” 
198, 32, 159, 29, "zwillinge” 1309 data ”so naeherte sich zeus der leda” 3638 
1348 data "sie beinhaltet eastor und 3215 13208 data 7,0,0,53, Se 99,53,157,57,134,21, 6882 
pollux” 262,62, us, 117, "grosser wagen” 
1345 data 5,0,0,0,43,33,5,37,45,28,32, 3963 1348 data »das wohl bekanntsste sternbild” 2749 
"kepheus” 1968 data 5,14,65,53,29,93,43, 124,4,159,44, 44B1 
1358 data ”cassiopeia’s ehemann” 2123 "cassiopeia” 
1360 date 14,15,59,69,163,157,235, 233,192, 8857 1980 data "sie war aethiopiens koenigin” 29331 
266,138, 254, 63 ‚283, 37 ‚354, 39,377 2002 data 13,23,145,42,136,48, 115,55,88,65, 56381 
1362 data #5,4127 115, 362, 178 345, 218, 357% 5875 453235 44, 135 21, 161 36 244 
243,400,226, »drache” 2882 data 131, 250, 151. 258, 152, 169,139,105, 5648 
1388 data "der gegner aller ritter” 2283 1923 "Steinbock" 
1385 data 6,0,0,5,10,16,75,40,97,43,20,65, 4881 2020 data "3 seiner sterne sind gut 3637 
65, "waage” sichtbar” 
1398 data ”sie gehoert zu den 3777 2040 data 9,8,56,4, 63,57,18,76,11,390,85, 5817 
tierkreiszeichen” 114,385 133, 33, 117 
1480 data 13,69,80,44,58, 35,37,63,16,112, 7291 2042 data 58, 102, 118, ”noerdliche krone” 2886 
17,148, 23, 150, Je, 154, 116, 177, 177, 183 2868 data "utensil eines koenigs” 2943 
1492 data 198 vos zoe. 268,234,243, 272, 5152 2280 data 13,43,9, 50,37,176,27, = 92,48, 6766 
"skorpion” 207,30, 20, 285, 134, 395 179,8 
1428 data ”der rote gigant antares ist in 38938 2882 data 171, 121 ‚130, 168, seat En BEZ IITE 5476 
ihm” 253, Ppersaus” 
1425 data 5,0,3,8,8,30,0,8,10,14,7, 3287 2108 data "dort gibt es 2 sternhaufen” 2325 
delphin" 2128 data 4, 8,8,11,61,54,20,64,54, "hase” 3182 
1430 data ”gelehriges meeressaeugetier" 2885 2140 data "schmeckt als braten recht gut” 3863 
1448 data 5,81,7,155,33,147, 175,70,189,42, 5462 2160 data 8 227 
113; "Führmann” 2188 graphic ®,1:print "Welche 5843 
14568 data "auch wagenlenker genannt” 2837 Konstellation wollen Sie ? ”:print 
1465 data 21,0,0,8,0,11,9,12,2,23,3,24,19, 5659 ”=)”";:gosub 119008 
SEIEN Er, 38, 3,38; Be 38 2181 peint "TelrIBitte warten.[2spaces]Ich 4928 
1467 data 21,43, 27748: 32, 52,0,80,8,990,08,308, 7452 suche, ":yS=xx$:gosub 20000: ds=yS 
9495; IE, 98,2,105,10, 114, 14, "Fische" 2182 if d$="” then 2188 1281 
1470 data »schuimme im himmelsmeer” 2726 2208 read n esı 
1480 data B,67,98,73,243, 225,248, 237,111, 7481 2218 if n<>® then 2249 1202 
405,0,303,63,479,-24,455,62, "pegasus” 2228 print ”Diese Konstellation ist mir 3588 
1500 data "man beachte ein grosses viereck" 3421 unbekannt” 
1505 data 11,0,102,20,80,22,126,42,22,52, 6754 2222 print ”Bitte versuchen Sie eine 5328 
S0,70,60,112,20,112,50,117,80,137,3 andere.”:restore :for i=1 to B90:next 
1507 data 172,8, ” Jungfrau” 1639 i:goto 2180 
1512 data "spica ist ihr einziger heller 3917 eEH® For i=l to n:read xli):read yli):next 2568 
stern” i 
1528 data 7,0,0,0,59,8,83,18,107, 213,139, S14E 2269 For i-1 to n:yli)=-yCi):next i 2346 
52476; 77! 31, "adler” 22BB read b&,h$ 772 
1548 data "ihr auffaslligster stern heisst 3592 2230 y$=b$:gosub 20000: b1$=-y$ 1936 
altair” 2308 if b1$=d$ then 2349 1388 
1545 data 7,0,10,8,17,8,37,10,21,11,28,22, 4977 2328 goto 2208 569 
0,22,17,”krebs” 23408 restore 142 
1558 data "bei ihr liegt ein offener 3598 2368 goto 548 5B2 
sternhaufen” 2388 r=-int (3@8*rnd (1)+1) 1226 
1560 data 4,85,205,375,165,545,45,585,105, 4187 2488 for k=1 to r 766 
pfeil” e4U2B read n esı 
1588 data "klein und liegt neben dem adler" 2731 e440® For j=1 to n:read x(3J), yCJ):next J 2043 
1585 data 6,0,3,5,0,14,3,37, 18,47,8,47,10, yı2E 2468 for i=1 ton: yli)=-yCi):next i 2346 
"Widder" EHB® read b$,h$ 772 
1539 data "liegt relativ parallel zur 3471 25008 next k 288 
ekliptik” 2528 restore 148 
1588 data 9,11,196,92,230,82,49,205,40 ‚el7, 7548 2540 goto 549 582 
34,228,34,229,06, 242,26, 238, ar »stier” B558 end 128 
1628 data "besteht aus dem schoenen 3701 2551 print ”"[olr]” 316 
sisebengsstirn"” 8552 print "LCedown, 3spaces]S[l2spaces]JT 2355 
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[2spaces]Al2spaces)IRl2spaces)P [4spaces]Kleiner Hund” 


[C2spaces]Il2spaces]IC[&6spaces]i1 12058 print "Krebs, [4spaces]Schuetze, 3718 

[2spaces]2[2spaces]J8” C3spaces]kKleiner Wagen” 
2553 print "[3down]” 518 10068 print ”Pfeil,[C4spaces)JPerseus, el 
2554 print "[3spacesIby[4spaces]Frank 1780 [4spaces]Grosser Wagen” 

Bastian” 10878 print ”Stier, [4spaces]Skorpion, 4238 
8556 print "[Sdawn]J published by[l4spacses] 2181 [3spaces}Noerdliche Krone” 

RUN” 18888 print "Orion, [4spaces)JFuhrmann, ” 2182 
2538 x=® 381 10030 print "Drache, [3spaces] Jungfrau” ea22 
2618 print "[4downlBitte Taste druecken.”; 2988 121902 print "Fische, [3spaces]Herkules” 1963 
2620 get a$:if a$=-""” then 2620 1552 10288 return 142 
2648 print ”"[Cclr]”:return 688 11088 rem "---Eingaberoutine fuer Input 
90028 poke 208,0 836 118018 xx$-"”: 801 
39001 get a$:if a$-""” then 9901 1512 11020 get x$:if x$="" then 11020 1569 
S922 graphic ®,1:print "Fuer das Menue ' + 3939 11038 if x$="[Lleft]” or x$=chr$ (28) then if 55562 

' druecken.” len (xx$5)>® then xx$-left$ (xx$,len 
30085 print "Eine andere Taste fuehrt 3406 (xx$)-1):goto 11108 

weiter.” 11048 if x$=chr$ (13) then if xx$<>”” then 2419 
S012 poke 208,0 836 return 
9028 get a$:if a$-"” then 3029 1512 11058 if x$=chr$ (13) then if xx$=""” then ehe 
9030 if asc (a$)-35 then print "Cclr]”:goto 1944 11920 

168 11068 if (C asc (x$) and 127)<32 then 11928 2306 
98428 return 142 110878 xx$=-xxStrx$ 955 
18888 print 153 11188 char ‚®8,1,xx$+” ” 1111 
12005 print "Loewe, [4spaces]Widder, [5Sspaces] 2908 11110 goto 11020 601 

Zwillinge” 20008 y1$5="":xa=-len (yS):for xb=1 to xa:yl1= 4618 
10818 print "Hase, [Sspaces]Schwan, [Sspaces] 2810 asc ( mid$ (y$,xb,1)) and 127 

Steinbock” 200108 if y1<>32 then yl$=y1S+chr$ C(Cyl) 2574 
10028 print "Leier ,[4spacesJKepheus, 3227 29028 next :yS=yl$:return 647 

[C4spaces]Wassermann” 25808 print ”"[clrJElshift-space]N 1145 
128398 print "Waage, [4spaces]Delphin, 3869 [shift-spacelD[Lshift-space]E” 

[4spaces]Cassiopeia” 

print "Adler, [4spacesJPegasus, 


St 


arpic“: Sternenpracht auf dem Bildschirm 


FLEXIBLE DB-ORGANISATION CONTRA 
„STUCKLISTEN-EXPLOSIONEN” 


Immer wenn die computerunterstützte Produktionsplanung 
und -steuerung mit wenig stabilen Rahmenbedingungen 
leben muß, ist die DV-technische Seite besonders gefordert 
— in kleineren und mittleren Betrieben oft überfordert. 
Häufige Produktwechsel, Störungen an den Werkzeugen 
oder Maschinen oder Unterbrechungen bei der Material- 
versorgung stellen typische PPS-Problemfälle dar. Und 
geradezu wenn eine hohe Anzahl von Varianten innerhalb 
des Erzeugungsspektrums gegeben ist, fressen Stücklisten 
und Bedarfsrechnung Speicherkapazität und Rechnerge- 
schwindigkeit auf. 

Mit der vorliegenden Arbeit werden in der Praxis entwickel- 
te und erprobte Datenstrukturen und Algorithmen gezeigt. 
Unter anderem wird ein Expertensystem für variantenreiche 
Produktionsprogramme realisiert, das durch seine Ver- 
knüpfungstechniken redundante Daten abbaut, „Stückli- 
sten-Explosion“ vermeidet und somit die wirtschaftliche 
Verarbeitung großer Datenmengen im PPS-Bereich ermöglicht. 


Prof. Dr. Paul Schönsleben 


Flexible Produktionsplanung und -Steuerung mit dem Computer r 
144 Seiten, München 1985 cH EDITION 
Best.-Nr.: 1 CW 53-2 DM 58,— Fachbücher für die Computerwelt | 
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IHR WEGWEISER FÜR DIE GBODDER-WELT 


Ausführliche Informationen über Kl 
Amiga, Atari ST und Macintosh. 

Objektive und aussagekräftige Tests, 

verbunden mit umfangreichen Markt- 
übersichten, So gründlich, aufwendig 

und umfassend, wie es Ihnen nur ein 

starkes Team von Fachleuten bieten 

kann. Nutzen Sie dieses Know-how 

für sich. 
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